refactor(config): Clean up and reorganize Emacs configuration

Remove unused packages (EMMS, jinx, god-mode), simplify terminal
setup with ido instead of vertico/orderless, and reorganize
keybindings. Add new packages (debase, discomfort, git-timemachine,
edit-indirect) and improve EXWM, dired, and theme
configurations. Move restart-fcitx5 to kbd-func and update Linux
PATH for Guix.

lisp/init-exwm.el

@@ -15,15 +15,6 @@
                           (let ((display-buffer-alist
                                  '((".*" . (display-buffer-no-window . nil)))))
                             (async-shell-command command))))
-    
-    (defun restart-fcitx5 ()
-      "Kill and restart fcitx5, to fix random issues in exwm."
-      (interactive)
-      (if (zerop (shell-command "pgrep fcitx5"))
-	  (progn
-	    (eshell-command "pkill fcitx5")
-	    (eshell-command "fcitx5 -d"))
-	(eshell-command "fcitx5 -d")))
 
     (defun my--exwm-switch-to-workspace (delta)
       (let ((target
@@ -113,7 +104,6 @@
 
     (defun my/exwm-update-class ()
       (exwm-workspace-rename-buffer exwm-class-name))
-
     (add-hook 'exwm-update-class-hook #'my/exwm-update-class)
 
     (require 'exwm-xim)
@@ -121,15 +111,14 @@
     (exwm-wm-mode))
 
   (use-package desktop-environment
+    :after exwm
     :init
     (desktop-environment-mode)
-    
     :config
     (advice-add 'desktop-environment-screenshot :after
                 (lambda (&rest _) (message "Saved fullscreen screenshot.")))
     (advice-add 'desktop-environment-screenshot-part :after
                 (lambda (&rest _) (message "Saved partial screenshot.")))
-
     :custom
     (desktop-environment-screenshot-command
      "import -window root ~/Pictures/screenshot-$(date +%Y%m%d-%H%M%S).png")
@@ -152,7 +141,20 @@
     (with-eval-after-load 'consult
       (unless (memq 'xdg-launcher-consult-source consult-buffer-sources)
 	(setq consult-buffer-sources
-	      (append consult-buffer-sources '(xdg-launcher-consult-source)))))))
+	      (append consult-buffer-sources '(xdg-launcher-consult-source))))))
+
+  (use-package debase
+    :straight
+    (debase :type git
+	    :host codeberg
+	    :repo "emacs-weirdware/debase"))
+
+  (use-package discomfort
+    :commands discomfort
+    :straight
+    (discomfort :type git
+		:host codeberg
+		:repo "emacs-weirdware/discomfort")))
 
 (provide 'init-exwm)