screens/dashboard.el

@@ -175,10 +175,10 @@
   (setopt grid-revert-on-width-change t)  
   (enlight-content
    (concat
-    (grid-make-box `(:align center :content ,enlight-theurgy-logo :width ,(if (equal system-type 'android) 40 80)))
+    (grid-make-box `(:align center :content ,enlight-theurgy-logo :width 40))
     "\n\n"
     (grid-make-box `( :content ,(propertize "Theurgy Emacs" 'face 'variable-pitch-serif-text)
-		      :width ,(if (equal system-type 'android) 40 80) :align center))
+		      :width 40 :align center))
     "\n\n"
     (grid-make-box
      (dashboard-content))

ui.el

@@ -184,25 +184,6 @@
   (global-set-key (kbd "<volume-up> <volume-up>")
 		  '(lambda () (interactive) (frame-toggle-on-screen-keyboard (selected-frame) nil))))
 
-;; Desktop specific configuration
-;; We can replace the system bar here:
-(defcustom theurgy-replace-bar
-  t
-  "Whether to show battery and time values in the tab bar."
-  :type 'boolean
-  :group 'theurgy
-  :group 'theurgy-ui)
-
-(when (and (equal system-type 'gnu/linux)
-	   theurgy-replace-bar)
-  (display-battery-mode 1)
-  (add-to-list 'tab-bar-format 'tab-bar-format-align-right 'append)
-  (add-to-list 'tab-bar-format 'tab-bar-format-global 'append)
-  (setq display-time-format "%a %F %H:%M (%Z)")
-  (setq display-time-default-load-average nil) ;; Turn off load number by default
-  (setq display-time-interval 1)
-  (display-time-mode 1))
-
 (provide 'ui)
 
 ;;; ui.el ends here

userland/system-util.el

@@ -1,66 +0,0 @@
-;;; system-util.el --- System utilities for GNU/Linux -*- lexical-binding: t -*-
-
-;; This file is not part of GNU Emacs
-
-;; This program is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
-
-
-;;; Commentary:
-
-;; commentary
-
-;;; Code:
-
-(require 'transient)
-
-(defcustom theurgy-system-utils-enabled
-  t
-  "Whether to enable theurgy system utilities suite for GNU/Linux."
-  :type 'boolean
-  :group 'theurgy
-  :group 'theurgy-compat)
-
-(when (and theurgy-system-utils-enabled
-	   (equal system-type 'gnu/linux))
-  (use-package restart-emacs)
-
-  (use-package system-packages)
-
-  (use-package nm
-    :straight (nm :type git :host github :repo "theesfeld/nm")
-    :ensure t)
-
-  (use-package bluetooth
-    :straight (bluetooth :type git :host github :repo "emacsmirror/bluetooth")
-    :ensure t)
-
-  (transient-define-prefix system-interactions-transient ()
-    "Transient menu for interfacing with the system via system-packages and restart."
-    ["Emacs system actions" ("R" "Restart" restart-emacs)]
-    ["Package..." ("s" "Search" system-packages-search)
-     ("u" "Update" system-packages-update)
-     ("i" "Install" system-packages-install)
-     ("r" "Uninstall" system-packages-uninstall)
-     ("o" "Remove Orphans" system-packages-remove-orphaned)]
-    ["Networking" ("d" "Dashboard" nm-ui-dashboard)
-     ("S" "Status" nm-status)
-     ("w" "WiFi Browser" nm-ui-wifi-list)
-     ("c" "Connections" nm-ui-connections)]
-    ["Bluetooth" ("l" "List Devices" bluetooth-list-devices)])
-
-  (define-key global-map (kbd "C-c o s") #'system-interactions-transient))
-
-(provide 'system-util)
-
-;;; system-util.el ends here

userland/terminal.el

@@ -86,6 +86,21 @@
                (slot . 0)
                (window-height . 0.2)))
 
+(use-package restart-emacs)
+
+(use-package system-packages)
+
+(transient-define-prefix system-interactions-transient ()
+  "Transient menu for interfacing with the system via system-packages and restart."
+  ["Emacs system actions" ("R" "Restart" restart-emacs)]
+  ["Package..." ("s" "Search" system-packages-search)
+   ("u" "Update" system-packages-update)
+   ("i" "Install" system-packages-install)
+   ("r" "Uninstall" system-packages-uninstall)
+   ("o" "Remove Orphans" system-packages-remove-orphaned)])
+
+(define-key global-map (kbd "C-c o s") #'system-interactions-transient)
+
 (provide 'terminal)
 
 ;;; terminal.el ends here

workflows/lisp-custom.el

@@ -36,17 +36,6 @@
 			      (define-key paredit-mode-map (kbd "RET") nil)
 			      (define-key paredit-mode-map (kbd "C-j") 'paredit-newline))))
 
-;; Slimey
-(use-package slime
-  :config
-  (setq inferior-lisp-program "sbcl"))
-
-;; Scheme (with Chickens)
-(use-package geiser)
-
-(use-package geiser-chicken
-  :after (geiser))
-
 ;; SICP my beloved
 (use-package sicp
   :ensure t)

workflows/org-custom.el

@@ -647,7 +647,8 @@
   :config
   (setq org-roam-ui-sync-theme t
         org-roam-ui-follow t
-        org-roam-ui-update-on-save t))
+        org-roam-ui-update-on-save t
+        org-roam-ui-open-on-start (if (equal system-type 'android) nil t)))
 
 ;; Bibliography stuff
 (setq bibtex-dialect 'biblatex) ;; Use biblatex instead of bibtex.