x11-wm/stumpwm.stumpwm-contrib
1
0
Fork 0
mirror of https://github.com/stumpwm/stumpwm-contrib.git synced 2026-09-10 07:26:25 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix gnu-pw-mgr for stumpwm [54999e8]

Browse source
This commit is contained in:
Brandon Invergo 2020-02-11 22:32:58 +00:00
parent 2f59028b65
commit 4729d195a6
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
util/gnu-pw-mgr/gnu-pw-mgr.lisp
View file

@ -1,5 +1,5 @@
;;;; gnu-pw-mgr.lisp
;; Copyright (C) 2019 Brandon Invergo <brandon@invergo.net>
;; Copyright (C) 2019, 2020 Brandon Invergo <brandon@invergo.net>
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
@ -71,10 +71,9 @@ the resulting password."
(output (stumpwm:run-shell-command cmd t))
(lines (remove-if 'header-line-p (cl-ppcre:split "\\n" output)))
(passes (parse-tags lines))
(tags (mapcar #'first passes))
(tag-sel (select-from-menu (stumpwm:current-screen)
tags
"seed tag:"))
(tag-sel (first (select-from-menu (stumpwm:current-screen)
passes
"seed tag:")))
(pass (when tag-sel
(cdr (assoc tag-sel passes :test #'string=)))))
(unless *old-clipboard*