home: Move more (the last remaining) files to be managed by guix-home

.guix/rekahsoft/guix-config/home.scm

@@ -468,6 +468,11 @@ single certifcate used for local development with caddy.")
         ("wofi/style.css" ,(local-file "../../../user-config/wofi/.config/wofi/style.css"))
         ("zathura/zathurarc" ,(local-file "../../../user-config/zathura/.config/zathura/zathurarc"))))
 
+     (simple-service
+      'extra-xdg-data-files-service
+      home-xdg-data-files-service-type
+      `(("applications/org-protocol-override.desktop" ,(local-file "../../../user-config/emacs/.local/share/applications/org-protocol-override.desktop"))))
+
      (simple-service
       'extra-home-files-service
       home-files-service-type
@@ -475,9 +480,16 @@ single certifcate used for local development with caddy.")
         (".racketrc" ,(local-file "../../../user-config/racket/.racketrc" "racketrc"))
         (".guile" ,(local-file "../../../user-config/guile/.guile" "guilerc"))
         (".ghci" ,(local-file "../../../user-config/haskell/.ghci" "ghci"))
+
+        (".bin/emacs-mail.sh" ,(local-file "../../../user-config/emacs/.bin/emacs-mail.sh" "emacs-mail.sh" #:recursive? #t))
+        (".bin/org-protocol-open.sh" ,(local-file "../../../user-config/emacs/.bin/org-protocol-open.sh" "org-protocol-open.sh" #:recursive? #t))
+        (".emacs.d" ,(local-file "../../../user-config/emacs/.emacs.d" "emacs-config" #:recursive? #t))
+
         (".bin/start-sway.sh" ,(local-file "../../../user-config/sway/.bin/start-sway.sh" "start-sway.sh" #:recursive? #t))
         (".xmobarrc" ,(local-file "../../../user-config/xmonad/.xmobarrc" "xmobarrc"))
         (".xmonad/xmonad.hs" ,(local-file "../../../user-config/xmonad/.xmonad/xmonad.hs" "xmonad.hs"))
+        (".bin/vol.sh" ,(local-file "../../../user-config/xmonad/.bin/vol.sh" #:recursive? #t))
+        (".bin/xmonadClose.sh" ,(local-file "../../../user-config/xmonad/.bin/xmonadClose.sh" #:recursive? #t))
         (".xinitrc" ,(local-file "../../../user-config/xorg/.xinitrc" "xinitrc" #:recursive? #t))
         (".bin/startx.sh" ,(local-file "../../../user-config/xorg/.bin/startx.sh" "startx.sh" #:recursive? #t))
         (".bin/keyboard.sh" ,(local-file "../../../user-config/xorg/.bin/keyboard.sh" "keyboard.sh" #:recursive? #t))

user-config/emacs/.emacs.d/.mc-lists.el

@@ -1,16 +0,0 @@
-;; This file is automatically generated by the multiple-cursors extension.
-;; It keeps track of your preferences for running commands with multiple cursors.
-
-(setq mc/cmds-to-run-for-all
-      '(
-        backward-sexp
-        forward-sexp
-        kill-region
-        org-beginning-of-line
-        org-delete-char
-        org-self-insert-command
-        ))
-
-(setq mc/cmds-to-run-once
-      '(
-        ))

user-config/emacs/.emacs.d/config.org

@@ -182,7 +182,7 @@ as a TODO item.
 
 #+begin_src emacs-lisp
   ;; Load customization's made by customize
-  (setq custom-file (no-littering-expand-etc-file-name "custom.el"))
+  (setq custom-file (no-littering-expand-var-file-name "custom.el"))
   (load custom-file)
 #+end_src