From 79a52665b02f2cec5b9ea24b15ad57c1a52d04f2 Mon Sep 17 00:00:00 2001
From: BirDt_ <birdt_@cyan.sh>
Date: Sat, 27 Sep 2025 11:21:50 +0800
Subject: [PATCH] Android dashboard

---
 screens/dashboard.el | 80 +++++++++++++++++++-------------------------
 1 file changed, 35 insertions(+), 45 deletions(-)

diff --git a/screens/dashboard.el b/screens/dashboard.el
index afcbc1e..9198f54 100644
--- a/screens/dashboard.el
+++ b/screens/dashboard.el
@@ -129,46 +129,38 @@
 
 (defun android-dash ()
   "Return the android dashboard."
-  `(:content ,(concat
-	       (grid-make-row
-		`(:align center
-			 :content (concat (grid-make-column (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 center
-											    :width 20))
-								  "\n\n"
-								  (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 (list (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))
-								  "\n\n"
-								  (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))))))))
-	     ))
+  `(:width 80
+	   :align center
+	   :content ,(concat
+		      (grid-make-row
+		       (list (grid-make-column (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 center
+									       :width 20))))
+			     (grid-make-column (list (grid-make-box `(:content ,(concat
+										 (enlight-menu
+										  '(("Userland"
+										     ("Dired" (dired "~") "d")
+										     ("RSS" elfeed "r")
+										     ("Terminal" theurgy-bottom-shell "t")
+										     ))))
+									       :align center
+									       :width 20))
+						     "\n\n"
+						     (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)))))))
+	   ))
 
 (defun dashboard-content ()
   "Gets the dashboard content for the current platform."
@@ -188,11 +180,9 @@
     (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
+     (dashboard-content))
+    
 					;(grid-make-box `(:content ,(enlight-weather) :align center))
     )))