From ad1b942f6c222d2303e561c649fc188fc9a08a93 Mon Sep 17 00:00:00 2001
From: "Collin J. Doering" <collin@rekahsoft.ca>
Date: Mon, 25 Dec 2023 20:21:41 -0500
Subject: [PATCH] home: Move more (the last remaining) files to be managed by
 guix-home

---
 .guix/rekahsoft/guix-config/home.scm    | 12 ++++++++++++
 user-config/emacs/.emacs.d/.mc-lists.el | 16 ----------------
 user-config/emacs/.emacs.d/config.org   |  2 +-
 3 files changed, 13 insertions(+), 17 deletions(-)
 delete mode 100644 user-config/emacs/.emacs.d/.mc-lists.el

diff --git a/.guix/rekahsoft/guix-config/home.scm b/.guix/rekahsoft/guix-config/home.scm
index 880a1ab..78cf5be 100644
--- a/.guix/rekahsoft/guix-config/home.scm
+++ b/.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))
diff --git a/user-config/emacs/.emacs.d/.mc-lists.el b/user-config/emacs/.emacs.d/.mc-lists.el
deleted file mode 100644
index a000f25..0000000
--- a/user-config/emacs/.emacs.d/.mc-lists.el
+++ /dev/null
@@ -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
-      '(
-        ))
diff --git a/user-config/emacs/.emacs.d/config.org b/user-config/emacs/.emacs.d/config.org
index e91e556..23f6616 100644
--- a/user-config/emacs/.emacs.d/config.org
+++ b/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