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

Update grid API

Browse source
This commit is contained in:
BirDt_ 2025-09-27 09:26:32 +08:00
parent 80b0c943e9
commit 89a2019176
1 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

22
screens/dashboard.el
View file

@ -91,20 +91,20 @@
:custom :custom
(enlight-content (enlight-content
(concat (concat
(grid-get-box `(:align center :content ,enlight-theurgy-logo :width 80)) (grid-make-box `(:align center :content ,enlight-theurgy-logo :width 80))
(grid-get-row (grid-make-row
(list (list
(grid-get-box (grid-make-box
`(:content ,(concat `(:content ,(concat
(grid-get-box (grid-make-box
`( :content `( :content
,(concat ,(concat
(grid-get-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)))
:width 80)) :width 80))
enlight-calendar "\n\n" enlight-calendar "\n\n"
(grid-get-row (grid-make-row
(list (grid-get-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")
@ -112,14 +112,14 @@
("Capture" org-capture "c"))))) ("Capture" org-capture "c")))))
:align left :align left
:width 20)) :width 20))
(grid-get-box `(:content ,(concat (grid-make-box `(:content ,(concat
(enlight-menu (enlight-menu
'(("Projects" '(("Projects"
("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-get-box `(:content ,(concat (grid-make-box `(:content ,(concat
(enlight-menu (enlight-menu
'(("Userland" '(("Userland"
("Dired" (dired "~") "d") ("Dired" (dired "~") "d")
@ -129,7 +129,7 @@
("Weather" theurgy-show-weather "w"))))) ("Weather" theurgy-show-weather "w")))))
:align center :align center
:width 20)) :width 20))
(grid-get-box `(:content ,(concat (grid-make-box `(:content ,(concat
(enlight-menu (enlight-menu
'(("Meta" '(("Meta"
("Elisp Scratch" open-elisp-scratch "s") ("Elisp Scratch" open-elisp-scratch "s")
@ -140,7 +140,7 @@
:width 20))))) :width 20)))))
)) ))
)) ))
;(grid-get-box `(:content ,(enlight-weather) :align center)) ;(grid-make-box `(:content ,(enlight-weather) :align center))
))) )))
(setopt initial-buffer-choice #'enlight) (setopt initial-buffer-choice #'enlight)