diff options
| -rw-r--r-- | etc/guix/home.scm | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/etc/guix/home.scm b/etc/guix/home.scm index b137744..08f933d 100644 --- a/etc/guix/home.scm +++ b/etc/guix/home.scm @@ -13,6 +13,7 @@ (gnu packages dunst) (gnu packages freedesktop) (gnu packages gnupg) + (gnu packages gpodder) (gnu packages libreoffice) (gnu packages mail) (gnu packages music) @@ -129,6 +130,24 @@ (("^MSMTPQ_Q=.*$") "MSMTPQ_Q=\"$Q\"\n") (("mkdir -m 0700 \"\\$Q\"") "mkdir -p -m 0700 \"$Q\""))))))))))) +(define gpodder-xdg + (package + (inherit gpodder) + (name "gpodder-xdg") + (arguments + (substitute-keyword-arguments (package-arguments gpodder) + ((#:phases phases '%standard-phases) + #~(modify-phases #$phases + (add-after 'install 'wrap-with-environment-variables + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (for-each + (lambda (bin) + (wrap-program (string-append out "/bin/" bin) + '("GPODDER_HOME" = ("${XDG_DATA_HOME:-$HOME/.local/share}/gPodder")) + '("GPODDER_DOWNLOAD_DIR" = ("${XDG_DOWNLOAD_DIR:-$HOME/Downloads}/gPodder")))) + '("gpo" "gpodder"))))))))))) + (define (with-options pkg bin opts) (package (inherit pkg) @@ -545,7 +564,6 @@ inkscape libreoffice quodlibet - gpodder ungoogled-chromium firefox)) (list msmtp-non-hardcoded @@ -557,6 +575,7 @@ mpv-with-options openssh-with-options hunspell-iconv + gpodder-xdg (hunspell-dictionary-utf8 "en") (hunspell-dictionary-utf8 "pt") (hunspell-dictionary-utf8 "fr") |