diff --git a/screens/dashboard.el b/screens/dashboard.el index 22d9320..2d0506b 100644 --- a/screens/dashboard.el +++ b/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)) diff --git a/ui.el b/ui.el index df104f6..fd3488c 100644 --- a/ui.el +++ b/ui.el @@ -184,25 +184,6 @@ (global-set-key (kbd " ") '(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 diff --git a/userland/system-util.el b/userland/system-util.el deleted file mode 100644 index 49403c7..0000000 --- a/userland/system-util.el +++ /dev/null @@ -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 . - - -;;; 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 diff --git a/userland/terminal.el b/userland/terminal.el index a7d4db6..596e4ef 100644 --- a/userland/terminal.el +++ b/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 diff --git a/workflows/lisp-custom.el b/workflows/lisp-custom.el index 17e404d..de1a167 100644 --- a/workflows/lisp-custom.el +++ b/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) diff --git a/workflows/org-custom.el b/workflows/org-custom.el index 67d9c1d..cccb77e 100644 --- a/workflows/org-custom.el +++ b/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.