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

Android compatibility changes

Browse source
This commit is contained in:
BirDt_ 2025-09-27 09:56:59 +08:00
parent 6baffc794d
commit 0bc99bdb7e
1 changed files with 41 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

76
screens/dashboard.el
View file

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