(define-module (ruther home passwords)
  #:use-module (guix gexp)
  #:use-module (guix utils)
  #:use-module (guix packages)
  #:use-module (ruther packages wayland)
  #:use-module (gnu packages xdisorg)
  #:use-module (gnu packages password-utils))

(define-public password-store-wl
  (package/inherit password-store
    (name "password-store-wl")
    (inputs (modify-inputs (package-inputs password-store)
              (append dmenu-wl ydotool)))
    (arguments
     (substitute-keyword-arguments (package-arguments password-store)
       ((#:phases original-phases)
        #~(modify-phases #$original-phases
            (add-after 'patch-passmenu-path 'patch-passmenu-wl-path
              (lambda* (#:key inputs #:allow-other-keys)
                (substitute* "contrib/dmenu/passmenu"
                  (("dmenu=dmenu-wl\n")
                   (string-append "dmenu="
                                  (search-input-file inputs "/bin/dmenu-wl")
                                  "\n"))
                  (("xdotool=\"ydotool")
                   (string-append "xdotool=\""
                                  (search-input-file inputs "/bin/ydotool"))))))))))))