diff options
Diffstat (limited to 'etc/guix/home.scm')
| -rw-r--r-- | etc/guix/home.scm | 40 |
1 files changed, 3 insertions, 37 deletions
diff --git a/etc/guix/home.scm b/etc/guix/home.scm index 3d4d255..5c81aaf 100644 --- a/etc/guix/home.scm +++ b/etc/guix/home.scm @@ -130,43 +130,9 @@ '("GPODDER_DOWNLOAD_DIR" = ("${XDG_DOWNLOAD_DIR:-$HOME/Downloads}/gPodder")))) '("gpo" "gpodder"))))))))))) -(define (with-options pkg bin opts) - (package - (inherit pkg) - (arguments - (substitute-keyword-arguments (package-arguments pkg) - ((#:phases phases '%standard-phases) - `(modify-phases ,phases - (add-after 'install 'wrap-with-flags - (lambda* (#:key outputs #:allow-other-keys) - (define (wrap-options prog options) - (let ((wrapped-file (string-append (dirname prog) "/." (basename prog) "-orig"))) - (rename-file prog wrapped-file) - (call-with-output-file prog - (lambda (port) - (format port - "#!/bin/sh~%~%exec \"~a\" ~a \"$@\"~%" - (canonicalize-path wrapped-file) - options))) - (chmod prog #o755))) - (wrap-options (string-append (assoc-ref outputs "out") - "/bin/" - ,bin) - ,opts))))))))) - -(define wget-with-options - (with-options wget "wget" "--hsts-file=\"$XDG_STATE_HOME\"/wget-hsts")) - -(define tmux-with-options - (with-options tmux "tmux" "-f \"$XDG_CONFIG_HOME\"/tmux/tmux.conf")) - -(define texinfo-with-options - (with-options texinfo "info" "--init-file \"$XDG_CONFIG_HOME\"/info/infokey")) - (define (xdg-config-home s) (string-append (getenv "XDG_CONFIG_HOME") "/" s)) - (define (slurp name) (string-trim-both (call-with-input-file @@ -270,6 +236,9 @@ cssc quilt + wget + tmux + texinfo gnupg rsync tree @@ -557,9 +526,6 @@ icedove firefox)) (list ;; cmucl - wget-with-options - tmux-with-options - texinfo-with-options hunspell-iconv gpodder-xdg (hunspell-dictionary-utf8 "en") |