diff options
| -rw-r--r-- | etc/guix/home.scm | 91 |
1 files changed, 3 insertions, 88 deletions
diff --git a/etc/guix/home.scm b/etc/guix/home.scm index 09306bc..b87c0c2 100644 --- a/etc/guix/home.scm +++ b/etc/guix/home.scm @@ -43,91 +43,6 @@ ;; Sent upstream as: -;; https://issues.guix.gnu.org/58931 -(define-public clipmenu-latest - (let ((commit "7c34ace1fbab76eb1c1dc9b30dd4ac1a7fe4b90b") - (revision "1")) - (package - (name "clipmenu-latest") - (version (string-append "6.2.0-" - revision "." (string-take commit 7))) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/cdown/clipmenu") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1403sw49ccb8xsd8v611fzp0csaglfz8nmz3wcjsk8x11h9jvxwy")))) - (build-system gnu-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (delete 'configure) - (delete 'build) - (replace 'install - (lambda* (#:key inputs outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (bin (string-append out "/bin")) - (doc (string-append %output "/share/doc/" - ,name "-" ,version))) - (install-file "clipdel" bin) - (install-file "clipmenu" bin) - (install-file "clipmenud" bin) - (install-file "clipfsck" bin) - (install-file "clipctl" bin) - (install-file "README.md" doc)))) - (add-after 'install 'wrap-script - (lambda* (#:key inputs outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (clipnotify (assoc-ref inputs "clipnotify")) - (coreutils-minimal (assoc-ref inputs "coreutils-minimal")) - (gawk (assoc-ref inputs "gawk")) - (util-linux (assoc-ref inputs "util-linux")) - (xdotool (assoc-ref inputs "xdotool")) - (xsel (assoc-ref inputs "xsel")) - (guile (search-input-file inputs "bin/guile"))) - (for-each - (lambda (prog) - (wrap-script (string-append out "/bin/" prog) - #:guile guile - `("PATH" ":" prefix - ,(map (lambda (dir) - (string-append dir "/bin")) - (list clipnotify coreutils-minimal - gawk util-linux xdotool xsel))))) - '("clipmenu" "clipmenud" "clipdel" "clipfsck" "clipctl"))))) - (replace 'check - (lambda* (#:key inputs outputs #:allow-other-keys) - ;; substitute a shebang appearing inside a string (the test - ;; file writes this string to a temporary file): - (substitute* "tests/test-clipmenu" - (("#!/usr/bin/env bash") - (string-append "#!" (which "bash")))) - (invoke "tests/test-clipmenu")))))) - (inputs - (list clipnotify - coreutils-minimal - gawk - guile-3.0 ; for wrap-script - util-linux - xdotool - xsel)) - (home-page "https://github.com/cdown/clipmenu") - (synopsis "Simple clipboard manager using dmenu or rofi and xsel") - (description "Start @command{clipmenud}, then run @command{clipmenu} to -select something to put on the clipboard. - -When @command{clipmenud} detects changes to the clipboard contents, it writes -them out to the cache directory. @command{clipmenu} reads the cache directory -to find all available clips and launches @command{dmenu} (or @command{rofi}, -depending on the value of @code{CM_LAUNCHER}) to let the user select a clip. -After selection, the clip is put onto the PRIMARY and CLIPBOARD X selections.") - (license licenses:public-domain)))) - -;; Sent upstream as: ;; https://issues.guix.gnu.org/61823 (define-public tmux-plugin-continuum (package @@ -691,9 +606,9 @@ left it off the last time it was used.") work-packages)) (services (list - (service (home-service 'clipmenu clipmenu-latest "/bin/clipmenud")) - (service (home-service 'dunst dunst "/bin/dunst")) - (service (home-service 'poweralertd poweralertd "/bin/poweralertd")) + (service (home-service 'clipmenu clipmenu "/bin/clipmenud")) + (service (home-service 'dunst dunst "/bin/dunst")) + (service (home-service 'poweralertd poweralertd "/bin/poweralertd")) (service home-xdg-base-directories-service-type (home-xdg-base-directories-configuration (cache-home (xdg "var/cache")) |