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

Fix a scheme-ism

Browse source
This commit is contained in:
BirDt_ 2025-09-27 10:42:06 +08:00
parent 493e9bc730
commit 7de3f78af6
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
screens/dashboard.el
View file

@ -87,7 +87,7 @@
"No connection to weather service :("))) "No connection to weather service :(")))
(defun default-dash () (defun default-dash ()
"Returns the default dashboard." "Return the default dashboard."
`(:content ,(concat `(:content ,(concat
enlight-calendar "\n\n" enlight-calendar "\n\n"
(grid-make-row (grid-make-row
@ -128,7 +128,7 @@
)) ))
(defun android-dash () (defun android-dash ()
"Returns the android dashboard." "Return the android dashboard."
`(: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
@ -171,7 +171,7 @@
"Gets the dashboard content for the current platform." "Gets the dashboard content for the current platform."
(cond (cond
((equal system-type 'android) (android-dash)) ((equal system-type 'android) (android-dash))
(else (default-dash)))) (t (default-dash))))
;; Dashboard screen using enlight ;; Dashboard screen using enlight