Browse Source

Cleanup dashboard definition

main
parent
commit
eb9dc786e9
  1. 38
      README.org
  2. 22
      modules/interface.el

38
README.org

@ -1343,7 +1343,12 @@ Toggle global ligature mode with =SPC t g=.
#+ATTR_LATEX: :width 420px
[[./docs/images/desktop.png]]
Present a dashboard when first launching Emacs.
Present a dashboard when first launching Emacs. Customize the buttons of the navigator:
+ Brain @ http://localhost:8080
+ Homepage @ https://chrishayward.xyz
+ Athabasca @ https://login.athabascau.ca/cas/login
+ Bookshelf @ https://online.vitalsource.com
#+begin_src emacs-lisp
(use-package dashboard
@ -1357,38 +1362,19 @@ Present a dashboard when first launching Emacs.
(dashboard-items '((projects . 5)
(recents . 5)
(agenda . 5)))
:config (dashboard-setup-startup-hook))
#+end_src
Customize the buttons of the navigator:
+ Brain @ http://localhost:8080
+ Homepage @ https://chrishayward.xyz
+ Athabasca @ https://login.athabascau.ca/cas/login
+ Bookshelf @ https://online.vitalsource.com
#+begin_src emacs-lisp
(setq dashboard-navigator-buttons
`(;; First row.
((,(all-the-icons-fileicon "brain" :height 1.1 :v-adjust 0.0)
"Brain"
"Knowledge base"
(dashboard-navigator-buttons `(((,(all-the-icons-fileicon "brain" :height 1.1 :v-adjust 0.0)
"Brain" "Knowledge base"
(lambda (&rest _) (browse-url "http://localhost:8080"))))
;; Second row.
((,(all-the-icons-material "public" :height 1.1 :v-adjust 0.0)
"Homepage"
"Personal website"
"Homepage" "Personal website"
(lambda (&rest _) (browse-url "https://chrishayward.xyz"))))
;; Third row.
((,(all-the-icons-faicon "university" :height 1.1 :v-adjust 0.0)
"Athabasca"
"Univeristy login"
"Athabasca" "Univeristy login"
(lambda (&rest _) (browse-url "https://login.athabascau.ca/cas/login"))))
;; Fourth row.
((,(all-the-icons-faicon "book" :height 1.1 :v-adjust 0.0)
"Bookshelf"
"Vitalsource bookshelf"
"Bookshelf" "Vitalsource bookshelf"
(lambda (&rest _) (browse-url "https://online.vitalsource.com"))))))
:config (dashboard-setup-startup-hook))
#+end_src
When running in *daemon* mode, ensure that the dashboard is the initial buffer.

22
modules/interface.el

@ -65,29 +65,19 @@
(dashboard-items '((projects . 5)
(recents . 5)
(agenda . 5)))
:config (dashboard-setup-startup-hook))
(setq dashboard-navigator-buttons
`(;; First row.
((,(all-the-icons-fileicon "brain" :height 1.1 :v-adjust 0.0)
"Brain"
"Knowledge base"
(dashboard-navigator-buttons `(((,(all-the-icons-fileicon "brain" :height 1.1 :v-adjust 0.0)
"Brain" "Knowledge base"
(lambda (&rest _) (browse-url "http://localhost:8080"))))
;; Second row.
((,(all-the-icons-material "public" :height 1.1 :v-adjust 0.0)
"Homepage"
"Personal website"
"Homepage" "Personal website"
(lambda (&rest _) (browse-url "https://chrishayward.xyz"))))
;; Third row.
((,(all-the-icons-faicon "university" :height 1.1 :v-adjust 0.0)
"Athabasca"
"Univeristy login"
"Athabasca" "Univeristy login"
(lambda (&rest _) (browse-url "https://login.athabascau.ca/cas/login"))))
;; Fourth row.
((,(all-the-icons-faicon "book" :height 1.1 :v-adjust 0.0)
"Bookshelf"
"Vitalsource bookshelf"
"Bookshelf" "Vitalsource bookshelf"
(lambda (&rest _) (browse-url "https://online.vitalsource.com"))))))
:config (dashboard-setup-startup-hook))
(setq initial-buffer-choice
(lambda ()

Loading…
Cancel
Save