BirDt/theurgy
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

This don't work

Browse source
This commit is contained in:
BirDt_ 2025-09-27 11:01:27 +08:00
parent eac1c742ae
commit d1a8731c0a
1 changed files with 36 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

72
screens/dashboard.el
View file

@ -132,42 +132,42 @@
`(:content ,(concat `(:content ,(concat
(grid-make-row (grid-make-row
`(:align center `(:align center
:content ,(concat (grid-make-column (list (grid-make-box `(:content ,(concat :content (concat (grid-make-column (list (grid-make-box `(:content ,(concat
(enlight-menu (enlight-menu
'(("Exobrain" '(("Exobrain"
("Agenda" (org-agenda nil "a") "a") ("Agenda" (org-agenda nil "a") "a")
("Go to Inbox" open-inbox "i") ("Go to Inbox" open-inbox "i")
("Capture" org-capture "c"))))) ("Capture" org-capture "c")))))
:align center :align center
:width 20)) :width 20))
"\n\n" "\n\n"
(grid-make-box `(:content ,(concat (grid-make-box `(:content ,(concat
(enlight-menu (enlight-menu
'(("Projects" '(("Projects"
("Switch To" theurgy-open-project "p") ("Switch To" theurgy-open-project "p")
("Project List" theurgy-edit-projects-list "l"))))) ("Project List" theurgy-edit-projects-list "l")))))
:align center :align center
:width 20)))) :width 20))))
(grid-make-column (list (grid-make-box `(:content ,(concat (grid-make-column (list (grid-make-box `(:content ,(concat
(enlight-menu (enlight-menu
'(("Userland" '(("Userland"
("Dired" (dired "~") "d") ("Dired" (dired "~") "d")
("RSS" elfeed "r") ("RSS" elfeed "r")
("Terminal" theurgy-bottom-shell "t") ("Terminal" theurgy-bottom-shell "t")
("Gomuks" theurgy-gomuks-workspace "G") ("Gomuks" theurgy-gomuks-workspace "G")
("Weather" theurgy-show-weather "w"))))) ("Weather" theurgy-show-weather "w")))))
:align center :align center
:width 20)) :width 20))
"\n\n" "\n\n"
(grid-make-box `(:content ,(concat (grid-make-box `(:content ,(concat
(enlight-menu (enlight-menu
'(("Meta" '(("Meta"
("Elisp Scratch" open-elisp-scratch "s") ("Elisp Scratch" open-elisp-scratch "s")
("Org Scratch" open-org-scratch "o") ("Org Scratch" open-org-scratch "o")
("Init Dir" (dired user-emacs-directory) "e") ("Init Dir" (dired user-emacs-directory) "e")
("Info" info "h"))))) ("Info" info "h")))))
:align center :align center
:width 20)))))))) :width 20))))))))
)) ))
(defun dashboard-content () (defun dashboard-content ()