nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: password-store: Install passmenu script. 

* gnu/packages/password-utils (password-store)
  [inputs]: Add dmenu and xdotool.
  [arguments]<#:phases>['patch-passmenu-path']: New phase.
  [arguments]<#:phases>['install-passmenu']: New phase.
This commit is contained in:
Jelle Licht 2017-11-10 14:22:28 +01:00
parent 011f57695a
commit 177475cfb5
No known key found for this signature in database
GPG Key ID: DA4597F947B41025
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
gnu/packages/password-utils.scm
View File

@ -54,6 +54,7 @@
#:use-module (gnu packages ncurses) #:use-module (gnu packages ncurses)
#:use-module (gnu packages pkg-config) #:use-module (gnu packages pkg-config)
#:use-module (gnu packages python) #:use-module (gnu packages python)
#:use-module (gnu packages suckless)
#:use-module (gnu packages tls) #:use-module (gnu packages tls)
#:use-module (gnu packages qt) #:use-module (gnu packages qt)
#:use-module (gnu packages version-control) #:use-module (gnu packages version-control)
@ -344,6 +345,20 @@ any X11 window.")
(modify-phases %standard-phases (modify-phases %standard-phases
(delete 'configure) (delete 'configure)
(delete 'build) (delete 'build)
(add-before 'install 'patch-passmenu-path
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "contrib/dmenu/passmenu"
(("dmenu") (string-append (assoc-ref inputs "dmenu")
"/bin/dmenu"))
(("xdotool") (string-append (assoc-ref inputs "xdotool")
"/bin/xdotool")))
#t))
(add-after 'install 'install-passmenu
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(copy-file "contrib/dmenu/passmenu"
(string-append out "/bin/passmenu"))
#t)))
(add-after 'install 'wrap-path (add-after 'install 'wrap-path
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")) (let ((out (assoc-ref outputs "out"))
@ -369,14 +384,16 @@ any X11 window.")
#:parallel-tests? #f #:parallel-tests? #f
#:test-target "test")) #:test-target "test"))
(inputs (inputs
`(("getopt" ,util-linux) `(("dmenu" ,dmenu)
("getopt" ,util-linux)
("git" ,git) ("git" ,git)
("gnupg" ,gnupg) ("gnupg" ,gnupg)
("qrencode" ,qrencode) ("qrencode" ,qrencode)
("sed" ,sed) ("sed" ,sed)
("tree" ,tree) ("tree" ,tree)
("which" ,which) ("which" ,which)
("xclip" ,xclip))) ("xclip" ,xclip)
("xdotool" ,xdotool)))
(home-page "http://www.passwordstore.org/") (home-page "http://www.passwordstore.org/")
(synopsis "Encrypted password manager") (synopsis "Encrypted password manager")
(description "Password-store is a password manager which uses GnuPG to (description "Password-store is a password manager which uses GnuPG to