Android dashboard

screens/dashboard.el

@@ -129,24 +129,17 @@
 
 (defun android-dash ()
   "Return the android dashboard."
-  `(:content ,(concat
+  `(:width 80
+	   :align center
+	   :content ,(concat
 		      (grid-make-row
-		`(:align center
-			 :content (concat (grid-make-column (list (grid-make-box `(:content ,(concat
+		       (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))
-								  "\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
@@ -154,8 +147,7 @@
 										     ("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"
@@ -167,7 +159,7 @@
 										     ("Init Dir" (dired user-emacs-directory) "e")
 										     ("Info" info "h")))))
 									       :align center
-											    :width 20))))))))
+									       :width 20)))))))
 	   ))
 
 (defun dashboard-content ()
@@ -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 `(:content ,(enlight-weather) :align center))
     )))