From 737d962a60082398853f0b12a7fc4e748a9cd38f Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Thu, 24 Nov 2022 19:44:32 -0300
Subject: etc/guix/home.scm: Remove previous generation of email tools

Namely:
- msmtp
- isync
- notmuch
- afew
- alot
---
 etc/guix/home.scm | 27 +--------------------------
 1 file changed, 1 insertion(+), 26 deletions(-)

diff --git a/etc/guix/home.scm b/etc/guix/home.scm
index 74a2e86..a539a76 100644
--- a/etc/guix/home.scm
+++ b/etc/guix/home.scm
@@ -113,23 +113,6 @@
       ANSI Common Lisp standard."#)
     (license licenses:public-domain)))
 
-(define msmtp-non-hardcoded
-  (package
-    (inherit msmtp)
-    (name "msmtp-non-hardcoded")
-    (arguments
-      (substitute-keyword-arguments (package-arguments msmtp)
-        ((#:phases phases)
-         #~(modify-phases #$phases
-             (add-after 'install-additional-files 'patch-hardcoded-paths
-               (lambda* (#:key outputs #:allow-other-keys)
-                 (let* ((out (assoc-ref outputs "out")))
-                   (substitute* (string-append out "/bin/msmtpq")
-                     (("LOG=.*$")  "LOG=\"$XDG_LOG_HOME\"/msmtpq.log\n")
-                     (("^Q=.*$")   "Q=\"$XDG_DATA_HOME\"/msmtp/queue\n")
-                     (("^MSMTPQ_Q=.*$")   "MSMTPQ_Q=\"$Q\"\n")
-                     (("mkdir -m 0700 \"\\$Q\"")   "mkdir -p -m 0700 \"$Q\"")))))))))))
-
 (define gpodder-xdg
   (package
     (inherit gpodder)
@@ -172,9 +155,6 @@
                                              ,bin)
                                              ,opts)))))))))
 
-(define isync-with-options
-  (with-options isync "mbsync" "--config=\"$XDG_CONFIG_HOME\"/mbsync/config"))
-
 (define wget-with-options
   (with-options wget "wget" "--hsts-file=\"$XDG_STATE_HOME\"/wget-hsts"))
 
@@ -511,10 +491,6 @@
             httpd ;; for htpasswd
 
             weechat
-            alot
-            notmuch
-            w3m
-            afew
             qtox
             telescope
             imagemagick
@@ -584,8 +560,7 @@
             ungoogled-chromium
             icedove
             firefox))
-     (list msmtp-non-hardcoded
-           ;; cmucl
+     (list ;; cmucl
            isync-with-options
            wget-with-options
            tmux-with-options
-- 
cgit v1.2.3