Geiser

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 40))
+    (grid-make-box `(:align center :content ,enlight-theurgy-logo :width ,(if (equal system-type 'android) 40 80)))
     "\n\n"
     (grid-make-box `( :content ,(propertize "Theurgy Emacs" 'face 'variable-pitch-serif-text)
-		      :width 40 :align center))
+		      :width ,(if (equal system-type 'android) 40 80) :align center))
     "\n\n"
     (grid-make-box
      (dashboard-content))

ui.el

@@ -184,6 +184,25 @@
   (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

@@ -0,0 +1,66 @@
+;;; 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,21 +86,6 @@
                (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,6 +36,17 @@
 			      (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,8 +647,7 @@
   :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.