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

12
screens/dashboard.el
View file

@ -102,14 +102,18 @@
(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)
'grid-make-column
'grid-make-row)
(list (grid-make-box `(:content ,(concat (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 left :align (if (equal system-type 'android)
'center
'left)
:width 20)) :width 20))
(grid-make-box `(:content ,(concat (grid-make-box `(:content ,(concat
(enlight-menu (enlight-menu
@ -135,7 +139,9 @@
("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 right :align (if (equal system-type 'android)
'center
'right)
:width 20))))) :width 20)))))
)) ))
)) ))