emacs: Don't shit up mu4e's repo

1 files changed, 6 insertions, 6 deletions

diff --git a/emacs/.config/emacs/init.el b/emacs/.config/emacs/init.el
index 182bd18..6d05b35 100644
--- a/emacs/.config/emacs/init.el
+++ b/emacs/.config/emacs/init.el
@@ -23,6 +23,8 @@
 (defconst tmp-dir (expand-file-name "tmp" local-dir))
 (defconst shared-dir (expand-file-name "shared" base-dir))
 
+(defconst local-prefix (expand-file-name "prefix" local-dir))
+
 (defconst arkta-dashboard-buffer "*ARKTA*")
 
 ;; TODO: Check how to do add smth like `:advice (fn :around advice)` sometime
@@ -395,18 +397,16 @@
                    :pre-build
                    (("./autogen.sh"
                      "--prefix"
-                     ,(expand-file-name "installation-prefix"
-                                        (straight--repos-dir "mu")))
+                     ,local-prefix)
                     ("ninja" "-C" "build")
                     ("ninja" "-C" "build" "install"))
                    :files
                    (:defaults
-                    "installation-prefix/share/emacs/site-lisp/mu4e/*.el"
-                    "installation-prefix/share/info/*"))
+                    ,(expand-file-name "share/emacs/site-lisp/mu4e/*.el" local-prefix)
+                    ,(expand-file-name "share/info/*" local-prefix)))
   :commands mu4e
   :custom
-  (mu4e-mu-binary (expand-file-name "installation-prefix/bin/mu"
-                                    (straight--repos-dir "mu")))
+  (mu4e-mu-binary (expand-file-name "bin/mu" local-prefix))
 
   (mu4e-get-mail-command "mbsync -a")
   (mu4e-change-filenames-when-moving t)