Removed desktop-environment package

2 files changed, 58 insertions, 24 deletions

diff --git a/.config/emacs/modules/bd--exwm-windowing.el b/.config/emacs/modules/bd--exwm-windowing.el
index eb5e39e..7f52d2a 100644
--- a/.config/emacs/modules/bd--exwm-windowing.el
+++ b/.config/emacs/modules/bd--exwm-windowing.el
@@ -3,21 +3,56 @@
 ;;; Code:
 
 
-;;;; utilities
-;; desktop
-(use-package desktop-environment
-  :custom
-  (desktop-environment-screenshot-directory (xdg-user-dir "PICTURES"))
-  (desktop-environment-screenshot-command "flameshot full")
-  (desktop-environment-screenshot-partial-command "flameshot launcher")
-  (desktop-environment-volume-toggle-command "pactl set-sink-mute @DEFAULT_SINK@ toggle")
-  (desktop-environment-volume-set-command "pactl set-sink-volume @DEFAULT_SINK@ %s")
-  (desktop-environment-volume-get-command "pactl get-sink-volume @DEFAULT_SINK@ | head -n 1 | sed -e 's,.* \([0-9][0-9]*\)%.*,\1,'")
-  (desktop-environment-volume-normal-decrement "-4%")
-  (desktop-environment-volume-normal-increment "+4%")
-  (desktop-environment-volume-decrement-slowly "-2%")
-  (desktop-environment-volume-increment-slowly "+2%")
-  (desktop-environment-volume-toggle-regexp nil))
+(defun bd/lock ()
+  "Lock the screen."
+  (interactive)
+  (start-process "lock" nil "slock"))
+
+(defun bd/shoot-full ()
+  "Take a full-screen screenshot."
+  (interactive)
+  (let ((default-directory (xdg-user-dir "PICTURES")))
+    (start-process-shell-command "flameshot" nil "flameshot full")))
+
+(defun bd/shoot-part ()
+  "Take a selective screen screenshot."
+  (interactive)
+  (let ((default-directory (xdg-user-dir "PICTURES")))
+    (start-process-shell-command "flameshot" nil "flameshot launcher")))
+
+(defun bd/toggle-mute ()
+  "Toggle between muted and unmuted."
+  (interactive)
+  (start-process "sound toggle" nil "pactl" "set-sink-mute" "@DEFAULT_SINK@" "toggle"))
+
+(defun bd/set-volume (value)
+  "Sets the volume to VALUE."
+  (start-process "set volume" nil "pactl" "set-sink-volume" "@DEFAULT_SINK@" value))
+
+(defun bd/decrement-volume ()
+  "Decrements the volume."
+  (interactive)
+  (bd/set-volume "-4%"))
+
+(defun bd/increment-volume ()
+  "Increments the volume."
+  (interactive)
+  (bd/set-volume "+4%"))
+
+(defun bd/set-brightness (value)
+  "Sets the brightness to VALUE."
+  (start-process "set brightness" nil "brightnessctl" "set" value))
+
+(defun bd/decrement-brightness ()
+  "decrements the brightness."
+  (interactive)
+  (bd/set-brightness "5%-"))
+
+(defun bd/increment-brightness ()
+  "Increments the brightness."
+  (interactive)
+  (bd/set-brightness "5%+"))
+
 
 (use-package exwm
   :config
@@ -50,16 +85,16 @@ that buffer."
      ([?\s-p] . (lambda ()
                   (interactive)
                   (other-window -1)))
-     ([?\s-L] . desktop-environment-lock-screen)
-     ([f2] . desktop-environment-toggle-mute)
-     ([f5] . desktop-environment-volume-decrement)
-     ([f6] . desktop-environment-volume-increment)
-     ([f8] . desktop-environment-brightness-decrement)
-     ([f9] . desktop-environment-brightness-increment)
+     ([?\s-L] . bd/lock)
+     ([f2] . bd/toggle-mute)
+     ([f5] . bd/decrement-volume)
+     ([f6] . bd/increment-volume)
+     ([f7] . bd/decrement-brightness)
+     ([f8] . bd/increment-brightness)
      ([f9] . emms-previous)
      ([f10] . emms-next)
-     ([print] . desktop-environment-screenshot-part)
-     ([S-print] . desktop-environment-screenshot)
+     ([print] . bd/shoot-part)
+     ([S-print] . bd/shoot-full)
      ([?\s-O] . bd/visit-bookmark)
      ([?\s-P] . bd/password)
      ([?\s-r] . exwm-reset)
diff --git a/.config/guix/modules/emacs.scm b/.config/guix/modules/emacs.scm
index abfe806..3cbc820 100644
--- a/.config/guix/modules/emacs.scm
+++ b/.config/guix/modules/emacs.scm
@@ -28,7 +28,6 @@
   (list
    emacs-dash
    emacs-denote
-   emacs-desktop-environment
    emacs-emms
    emacs-exwm
    emacs-f