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

Android dashboard

Browse source
This commit is contained in:
BirDt_ 2025-09-27 11:21:50 +08:00
parent d1a8731c0a
commit 79a52665b0
1 changed files with 35 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

80
screens/dashboard.el
View file

@ -129,46 +129,38 @@
(defun android-dash () (defun android-dash ()
"Return the android dashboard." "Return the android dashboard."
`(:content ,(concat `(:width 80
(grid-make-row :align center
`(:align center :content ,(concat
:content (concat (grid-make-column (list (grid-make-box `(:content ,(concat (grid-make-row
(enlight-menu (list (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
"\n\n" :width 20))))
(grid-make-box `(:content ,(concat (grid-make-column (list (grid-make-box `(:content ,(concat
(enlight-menu (enlight-menu
'(("Projects" '(("Userland"
("Switch To" theurgy-open-project "p") ("Dired" (dired "~") "d")
("Project List" theurgy-edit-projects-list "l"))))) ("RSS" elfeed "r")
:align center ("Terminal" theurgy-bottom-shell "t")
:width 20)))) ))))
(grid-make-column (list (grid-make-box `(:content ,(concat :align center
(enlight-menu :width 20))
'(("Userland" "\n\n"
("Dired" (dired "~") "d") (grid-make-box `(:content ,(concat
("RSS" elfeed "r") (enlight-menu
("Terminal" theurgy-bottom-shell "t") '(("Meta"
("Gomuks" theurgy-gomuks-workspace "G") ("Elisp Scratch" open-elisp-scratch "s")
("Weather" theurgy-show-weather "w"))))) ("Org Scratch" open-org-scratch "o")
:align center ("Init Dir" (dired user-emacs-directory) "e")
:width 20)) ("Info" info "h")))))
"\n\n" :align center
(grid-make-box `(:content ,(concat :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 center
:width 20))))))))
))
(defun dashboard-content () (defun dashboard-content ()
"Gets the dashboard content for the current platform." "Gets the dashboard content for the current platform."
@ -188,11 +180,9 @@
(grid-make-box `( :content ,(propertize "Theurgy Emacs" 'face 'variable-pitch-serif-text) (grid-make-box `( :content ,(propertize "Theurgy Emacs" 'face 'variable-pitch-serif-text)
:width 80 :align center)) :width 80 :align center))
"\n\n" "\n\n"
(grid-make-column (grid-make-box
(list (dashboard-content))
(grid-make-box
(dashboard-content))
))
;(grid-make-box `(:content ,(enlight-weather) :align center)) ;(grid-make-box `(:content ,(enlight-weather) :align center))
))) )))