.

config.org

@@ -208,7 +208,7 @@ These services are unmodified, or have just few settings.
 
 #+NAME: root-simple-services
 | Service            | Options                                              |
-|-------------+------------------------------------------------------|
+|--------------------+------------------------------------------------------|
 | tlp                | ()                                                   |
 | thermald           | ((adaptive? #t))                                     |
 | bluetooth          | ()                                                   |

home/emacs/init.el

@@ -602,14 +602,6 @@ Point must be at the beginning of balanced expression (sexp)."
   (looking-back (rx (or ")" "}" "]"))))
 
 ;;;;; Basic
-;; (use-package symex
-;;   :custom
-;;   (symex-modal-backend 'evil)
-;;   :config
-;;   (symex-initialize)
-;;   :bind
-;;   (:map evil-insert-state-map
-;;         ("C-ß" . #'symex-mode-interface)))
 
 (use-package paredit
   :config
@@ -635,61 +627,6 @@ Point must be at the beginning of balanced expression (sexp)."
   emacs-lisp-mode
   scheme-mode)
 
-;; (use-package smartparens
-;;   :hook
-;;   (smartparens-mode . show-smartparens-mode)
-;;   (smartparens-mode . smartparens-strict-mode)
-;;   clojure-ts-mode
-;;   emacs-lisp-mode
-;;   scheme-mode
-;;   :custom
-;;   (sp-undo-pairs-separately t)
-;;   :config
-;;   (add-to-list 'sp-clojure-modes 'clojure-ts-mode)
-;;   (add-to-list 'sp-clojure-modes 'clojurec-ts-mode)
-;;   (add-to-list 'sp-clojure-modes 'clojurescript-ts-mode)
-;;   (add-to-list 'sp-lisp-modes 'clojure-ts-mode)
-;;   (add-to-list 'sp-lisp-modes 'clojurec-ts-mode)
-;;   (add-to-list 'sp-lisp-modes 'clojurescript-ts-mode)
-;;   ;; TODO: Remove the following three lines once merge request got accepted
-;;   (load-file (concat init-dir "lib/smartparens-clojure.el"))
-;;   (load-file (concat init-dir "lib/smartparens-emacs-lisp.el"))
-;;   (load-file (concat init-dir "lib/smartparens-scheme.el"))
-;;   (require 'smartparens-clojure)
-;;   (require 'smartparens-emacs-lisp)
-;;   (require 'smartparens-scheme)
-;;   (evil-define-key 'insert smartparens-mode-map
-;;     (kbd "r") (conditional-keybind #'looking-at-opening-paren
-;;                                    #'sp-raise-sexp)
-;;     (kbd "w") (conditional-keybind #'looking-at-opening-paren 
-;;                                    #'cc/move-sexp-backward)
-;;     (kbd "s") (conditional-keybind #'looking-at-opening-paren
-;;                                    #'cc/move-sexp-forward)
-;;     (kbd "c") (conditional-keybind #'looking-at-opening-paren 
-;;                                    #'sp-clone-sexp)
-;;     (kbd "m") (conditional-keybind #'looking-at-opening-paren
-;;                                    #'sp-mark-sexp)
-;;     (kbd "DEL") (conditional-keybind #'being-past-closing-paren
-;;                                      #'sp-backward-delete-sexp
-;;                                      #'evil-delete-backward-char-and-join)
-;;     (kbd ">") (conditional-keybind #'being-past-closing-paren
-;;                                    (lambda (prefix)
-;;                                      (interactive "P")
-;;                                      (call-interactively #'backward-char)
-;;                                      (call-interactively #'sp-forward-slurp-sexp)
-;;                                      (call-interactively #'sp-forward-sexp)
-;;                                      (call-interactively #'forward-char)))
-;;     (kbd "<") (conditional-keybind #'being-past-closing-paren
-;;                                    (lambda (prefix)
-;;                                      (interactive "P")
-;;                                      (call-interactively #'backward-char)
-;;                                      (call-interactively #'sp-forward-barf-sexp)
-;;                                      (call-interactively #'forward-char)))))
-
-;; (use-package evil-cleverparens
-;;   :after smartparens
-;;   :hook smartparens)
-
 ;;;;; Visual Aid
 ;; (use-package rainbow-delimiters
 ;;   :hook
@@ -749,46 +686,6 @@ Point must be at the beginning of balanced expression (sexp)."
   :after (consult eglot))
 
 ;;;;; Clojure
-;; (use-package clojure-ts-mode
-;;   :preface
-;;   (defun embark-eglot-rename (from to)
-;;     "Renames the symbol at point."
-;;     (interactive "sRename: \nsRename %s to: ")
-;;     (funcall-interactively #'eglot-rename to))
-;;   (defun cc/clojure-local-stuff ()
-;;       (setq-local sesman-system 'CIDER)
-;;     (setq-local prettify-symbols-alist '(("fn" . "λ"))))
-;;   :delight ""
-;;   :after (tree-sitter embark cider clojure-mode)
-;;   :config
-;;   (require 'sesman)
-;;   (sesman-install-menu clojure-ts-mode-map)
-;;   (defvar-keymap embark-clj-identifier-map
-;;     :parent embark-identifier-map
-;;     "c" #'embark-eglot-rename)
-;;   (add-to-list 'embark-keymap-alist '(identifier . embark-clj-identifier-map))
-;;   :hook
-;;   ((clojure-ts-mode . eglot-ensure)
-;;    (clojure-ts-mode . prettify-symbols-mode)
-;;    (clojure-ts-mode . #'cc/clojure-local-stuff)
-;;    (clojure-ts-mode . (lambda ()
-;;                         (sesman-install-menu clojure-mode-map)))
-;;    (clojurec-ts-mode . (lambda ()
-;;                          (sesman-install-menu clojurec-mode-map)))
-;;    (clojurescript-ts-mode . (lambda ()
-;;                               (sesman-install-menu clojurescript-mode-map))))
-;;   :mode
-;;   ("\\.clj\\'" . clojure-ts-mode)
-;;   ("\\.cljc\\'" . clojurec-ts-mode)
-;;   ("\\.cljs\\'" . clojurescript-ts-mode)
-;;   :init
-;;   (add-to-list 'tree-sitter-major-mode-language-alist
-;;                '(clojure-ts-mode . clojure))
-;;   (add-to-list 'tree-sitter-major-mode-language-alist
-;;                '(clojurec-ts-mode . clojure))
-;;   (add-to-list 'tree-sitter-major-mode-language-alist
-;;                '(clojurescript-ts-mode . clojure)))
-
 (use-package clojure-mode
   :preface
   (defun embark-eglot-rename (from to)

home/home-configuration.scm

@@ -101,7 +101,7 @@
                 ("ll" . "ls -l")
                 ("ls" . "ls --color=tty")
                 ("create-guix-patch" . "git format-patch --minimal --to guix-patches@gnu.org --cc dziltener@lyrion.ch --inline --no-attach master; ls *.patch | xargs sed -i '1d'")
-                ("send-guix-patch-series" . "for FILE in `find . -name '*.patch'`; do cat $FILE | msmtp -t; done")))
+                ("send-guix-patch-series" . "for FILE in `find . -name '00*.patch'`; do cat $FILE | msmtp -t; done")))
              (bashrc
               (list
                (local-file
@@ -186,7 +186,6 @@
                           "openssh"
                           "password-store"
                           "pass-otp"
-                          "passff-icecat"
                           "pavucontrol"
                           "pinentry-qt"
                           "pipewire"