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

Split android and default dash layouts

Browse source
This commit is contained in:
BirDt_ 2025-09-27 10:32:20 +08:00
parent 5a940ad8c6
commit 3a519bc657
1 changed files with 90 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

94
screens/dashboard.el
View file

@ -52,12 +52,11 @@
'face 'font-lock-keyword-face))
(defvar enlight-calendar
(when (not (equal system-type 'android))
(progn
(calendar)
(prog1 (with-current-buffer (buffer-name (current-buffer))
(concat (buffer-string) "\n\n"))
(calendar-exit)))))
(buffer-string))
(calendar-exit))))
(defun get-weather ()
"Get the weather JSON for THEURGY-CITY."
@ -87,34 +86,17 @@
(concat (propertize "Weather\n\n" 'face 'font-lock-keyword-face)
"No connection to weather service :(")))
;; Dashboard screen using enlight
(use-package enlight
:custom
(setopt grid-revert-on-width-change t)
(enlight-content
(concat
(grid-make-box `(:align center :content ,enlight-theurgy-logo :width 80))
"\n\n"
(grid-make-box `( :content ,(propertize "Theurgy Emacs" 'face 'variable-pitch-serif-text)
:width 80 :align center))
"\n\n"
(grid-make-column
(list
(grid-make-box
(defvar default-dash
`(:content ,(concat
enlight-calendar
(funcall (if (equal system-type 'android)
'grid-make-column
'grid-make-row)
enlight-calendar "\n\n"
(grid-make-row
(list (grid-make-box `(:content ,(concat
(enlight-menu
'(("Exobrain"
("Agenda" (org-agenda nil "a") "a")
("Go to Inbox" open-inbox "i")
("Capture" org-capture "c")))))
:align ,(if (equal system-type 'android)
'center
'left)
:align left
:width 20))
(grid-make-box `(:content ,(concat
(enlight-menu
@ -140,11 +122,69 @@
("Org Scratch" open-org-scratch "o")
("Init Dir" (dired user-emacs-directory) "e")
("Info" info "h")))))
:align ,(if (equal system-type 'android)
'center
'right)
:align right
:width 20)))))
))
(defvar android-dash
`(:content ,(concat
(grid-make-row
(list (grid-make-column (grid-make-box `(:content ,(concat
(enlight-menu
'(("Exobrain"
("Agenda" (org-agenda nil "a") "a")
("Go to Inbox" open-inbox "i")
("Capture" org-capture "c")))))
:align center
:width 20))
(grid-make-box `(:content ,(concat
(enlight-menu
'(("Projects"
("Switch To" theurgy-open-project "p")
("Project List" theurgy-edit-projects-list "l")))))
:align center
:width 20)))
(grid-make-column (grid-make-box `(:content ,(concat
(enlight-menu
'(("Userland"
("Dired" (dired "~") "d")
("RSS" elfeed "r")
("Terminal" theurgy-bottom-shell "t")
("Gomuks" theurgy-gomuks-workspace "G")
("Weather" theurgy-show-weather "w")))))
:align center
:width 20))
(grid-make-box `(:content ,(concat
(enlight-menu
'(("Meta"
("Elisp Scratch" open-elisp-scratch "s")
("Org Scratch" open-org-scratch "o")
("Init Dir" (dired user-emacs-directory) "e")
("Info" info "h")))))
:align center
:width 20))))))
))
(defvar dashboard-content
(cond
((equal system-type 'android) android-dash)
(else default-dash)))
;; Dashboard screen using enlight
(use-package enlight
:custom
(setopt grid-revert-on-width-change t)
(enlight-content
(concat
(grid-make-box `(:align center :content ,enlight-theurgy-logo :width 80))
"\n\n"
(grid-make-box `( :content ,(propertize "Theurgy Emacs" 'face 'variable-pitch-serif-text)
:width 80 :align center))
"\n\n"
(grid-make-column
(list
(grid-make-box
dashboard-content)
))
;(grid-make-box `(:content ,(enlight-weather) :align center))
)))