Dashboard upgrades

README.org

@@ -1150,6 +1150,7 @@ Present a dashboard when first launching Emacs.
         dashboard-set-init-info t
         dashboard-set-file-icons t
         dashboard-set-heading-icons t
+        dashboard-set-navigator t
         dashboard-startup-banner 'logo
         dashboard-projects-backend 'projectile
         dashboard-items '((projects . 5)
@@ -1158,6 +1159,31 @@ Present a dashboard when first launching Emacs.
   (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
+
+#+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"
+         (lambda (&rest _) (browse-url "http://localhost:8080"))))
+        ;; Second row.
+        ((,(all-the-icons-material "public" :height 1.1 :v-adjust 0.0)
+         "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"
+         (lambda (&rest _) (browse-url "https://login.athabascau.ca/cas/login"))))))
+#+end_src
+
 When running in *daemon* mode, ensure that the dashboard is the initial buffer.
 
 #+begin_src emacs-lisp

modules/interface.el

@@ -47,6 +47,7 @@
         dashboard-set-init-info t
         dashboard-set-file-icons t
         dashboard-set-heading-icons t
+        dashboard-set-navigator t
         dashboard-startup-banner 'logo
         dashboard-projects-backend 'projectile
         dashboard-items '((projects . 5)
@@ -54,6 +55,23 @@
                           (agenda . 5 )))
   (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"
+         (lambda (&rest _) (browse-url "http://localhost:8080"))))
+        ;; Second row.
+        ((,(all-the-icons-material "public" :height 1.1 :v-adjust 0.0)
+         "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"
+         (lambda (&rest _) (browse-url "https://login.athabascau.ca/cas/login"))))))
+
 (setq initial-buffer-choice
       (lambda ()
         (get-buffer "*dashboard*")))