lazy execution
This commit is contained in:
parent
aa27a46d65
commit
311990b5b0
1 changed files with 89 additions and 86 deletions
|
@ -86,12 +86,8 @@
|
||||||
(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 :(")))
|
||||||
|
|
||||||
;; Dashboard screen using enlight
|
(defun default-dash ()
|
||||||
(use-package enlight
|
"Returns the default dashboard."
|
||||||
: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
|
||||||
|
@ -131,7 +127,8 @@
|
||||||
:width 20)))))
|
:width 20)))))
|
||||||
))
|
))
|
||||||
|
|
||||||
(defvar android-dash
|
(defun android-dash ()
|
||||||
|
"Returns 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
|
||||||
|
@ -170,11 +167,17 @@
|
||||||
:width 20))))))
|
:width 20))))))
|
||||||
))
|
))
|
||||||
|
|
||||||
(defvar dashboard-content
|
(defun dashboard-content ()
|
||||||
|
"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)))
|
(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))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue