diff options
| author | EuAndreh <eu@euandre.org> | 2022-08-16 00:24:35 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2022-08-16 00:24:35 -0300 |
| commit | 14c314de83c9de3353aae29cf356695756d497ac (patch) | |
| tree | 201264d5003d5993839daed56b292116f35f569c | |
| parent | bin/nato: Add working version (diff) | |
| download | dotfiles-14c314de83c9de3353aae29cf356695756d497ac.tar.gz dotfiles-14c314de83c9de3353aae29cf356695756d497ac.tar.xz | |
etc/guix/home.scm: Use #~ and #$ over ` and ,
| -rw-r--r-- | etc/guix/home.scm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/etc/guix/home.scm b/etc/guix/home.scm index ddf1266..661a181 100644 --- a/etc/guix/home.scm +++ b/etc/guix/home.scm @@ -31,15 +31,15 @@ (name "msmtp-non-hardcoded") (arguments (substitute-keyword-arguments (package-arguments msmtp) - ((#:phases phases '%standard-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") - (("mkdir -m 0700 \"\\$Q\"") "mkdir -p -m 0700 \"$Q\""))))))))))) + ((#: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") + (("mkdir -m 0700 \"\\$Q\"") "mkdir -p -m 0700 \"$Q\""))))))))))) (define (with-options pkg bin opts) (package |