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

alignment and padding

Browse source
This commit is contained in:
BirDt_ 2025-09-27 10:46:45 +08:00
parent 65098c6080
commit eac1c742ae
1 changed files with 37 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

71
screens/dashboard.el
View file

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