System utilities and desktop configuration changes

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