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

scoping

Browse source
This commit is contained in:
BirDt_ 2025-09-27 10:34:40 +08:00
parent 3a519bc657
commit aa27a46d65
1 changed files with 85 additions and 84 deletions
Download patch file Download diff file Expand all files Collapse all files

15
screens/dashboard.el
View file

@ -86,7 +86,12 @@
(concat (propertize "Weather\n\n" 'face 'font-lock-keyword-face) (concat (propertize "Weather\n\n" 'face 'font-lock-keyword-face)
"No connection to weather service :("))) "No connection to weather service :(")))
(defvar default-dash ;; Dashboard screen using enlight
(use-package enlight
:custom
(setopt grid-revert-on-width-change t)
(defvar default-dash
`(:content ,(concat `(:content ,(concat
enlight-calendar "\n\n" enlight-calendar "\n\n"
(grid-make-row (grid-make-row
@ -126,7 +131,7 @@
:width 20))))) :width 20)))))
)) ))
(defvar android-dash (defvar android-dash
`(:content ,(concat `(:content ,(concat
(grid-make-row (grid-make-row
(list (grid-make-column (grid-make-box `(:content ,(concat (list (grid-make-column (grid-make-box `(:content ,(concat
@ -165,15 +170,11 @@
:width 20)))))) :width 20))))))
)) ))
(defvar dashboard-content (defvar dashboard-content
(cond (cond
((equal system-type 'android) android-dash) ((equal system-type 'android) android-dash)
(else default-dash))) (else default-dash)))
;; Dashboard screen using enlight
(use-package enlight
:custom
(setopt grid-revert-on-width-change t)
(enlight-content (enlight-content
(concat (concat
(grid-make-box `(:align center :content ,enlight-theurgy-logo :width 80)) (grid-make-box `(:align center :content ,enlight-theurgy-logo :width 80))