diff --git a/screens/dashboard.el b/screens/dashboard.el index 59ccf89..3174d81 100644 --- a/screens/dashboard.el +++ b/screens/dashboard.el @@ -89,55 +89,54 @@ ;; Dashboard screen using enlight (use-package enlight :custom + (setopt grid-revert-on-width-change t) (enlight-content (concat (grid-make-box `(:align center :content ,enlight-theurgy-logo :width 80)) - (grid-make-row + "\n\n" + (grid-make-box `( :content ,(propertize "Theurgy Emacs" 'face 'variable-pitch-serif-text) + :width 80 :align center)) + "\n\n" + (grid-make-column (list (grid-make-box `(:content ,(concat - (grid-make-box - `( :content - ,(concat - (grid-make-box `( :content ,(propertize "Theurgy Emacs" 'face 'variable-pitch-serif-text) - :width 80 :align center))) - :width 80)) enlight-calendar "\n\n" (grid-make-row (list (grid-make-box `(:content ,(concat - (enlight-menu - '(("Exobrain" - ("Agenda" (org-agenda nil "a") "a") - ("Go to Inbox" open-inbox "i") - ("Capture" org-capture "c"))))) - :align left - :width 20)) + (enlight-menu + '(("Exobrain" + ("Agenda" (org-agenda nil "a") "a") + ("Go to Inbox" open-inbox "i") + ("Capture" org-capture "c"))))) + :align left + :width 20)) (grid-make-box `(:content ,(concat - (enlight-menu - '(("Projects" - ("Switch To" theurgy-open-project "p") - ("Project List" theurgy-edit-projects-list "l"))))) - :align center - :width 20)) + (enlight-menu + '(("Projects" + ("Switch To" theurgy-open-project "p") + ("Project List" theurgy-edit-projects-list "l"))))) + :align center + :width 20)) (grid-make-box `(:content ,(concat - (enlight-menu - '(("Userland" - ("Dired" (dired "~") "d") - ("RSS" elfeed "r") - ("Terminal" theurgy-bottom-shell "t") - ("Gomuks" theurgy-gomuks-workspace "G") - ("Weather" theurgy-show-weather "w"))))) - :align center - :width 20)) + (enlight-menu + '(("Userland" + ("Dired" (dired "~") "d") + ("RSS" elfeed "r") + ("Terminal" theurgy-bottom-shell "t") + ("Gomuks" theurgy-gomuks-workspace "G") + ("Weather" theurgy-show-weather "w"))))) + :align center + :width 20)) (grid-make-box `(:content ,(concat - (enlight-menu - '(("Meta" - ("Elisp Scratch" open-elisp-scratch "s") - ("Org Scratch" open-org-scratch "o") - ("Init Dir" (dired user-emacs-directory) "e") - ("Info" info "h"))))) - :align right - :width 20))))) + (enlight-menu + '(("Meta" + ("Elisp Scratch" open-elisp-scratch "s") + ("Org Scratch" open-org-scratch "o") + ("Init Dir" (dired user-emacs-directory) "e") + ("Info" info "h"))))) + :align right + :width 20))))) )) )) ;(grid-make-box `(:content ,(enlight-weather) :align center))