Wrap in list

This commit is contained in:
BirDt_ 2025-09-27 10:44:30 +08:00
parent 7de3f78af6
commit 65098c6080

View file

@ -131,7 +131,7 @@
"Return the android dashboard." "Return the android dashboard."
`(:content ,(concat `(:content ,(concat
(grid-make-row (grid-make-row
(list (grid-make-column (grid-make-box `(:content ,(concat (list (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")
@ -145,8 +145,8 @@
("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 (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")
@ -164,7 +164,7 @@
("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 ()