twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

versions of pass functions with user-specified prompt

Browse Source 
By request of a user on IRC
This commit is contained in:
brandon s allbery kf8nh 2022-08-20 11:22:01 -04:00
parent 40171824cd
commit 84f928068f
No known key found for this signature in database
GPG Key ID: 227EE1942B0BDB95
1 changed files with 35 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
XMonad/Prompt/Pass.hs
View File

@ -51,13 +51,18 @@ module XMonad.Prompt.Pass
-- * Retrieving passwords
passPrompt
, passPrompt'
, passTypePrompt
-- * Editing passwords
, passEditPrompt
, passEditPrompt'
, passRemovePrompt
, passRemovePrompt'
, passGeneratePrompt
, passGeneratePrompt'
, passGenerateAndCopyPrompt
, passGenerateAndCopyPrompt'
-- * Misc
, passOTPPrompt
@ -90,6 +95,10 @@ import XMonad.Util.Run (runProcessWithInput)
-- > , ((modMask .|. shiftMask, xK_p) , passEditPrompt def)
-- > , ((modMask .|. controlMask .|. shiftMask, xK_p), passRemovePrompt def)
--
-- You can also use the versions that let you specify a custom prompt:
--
-- > , ((modMask , xK_p) , passPrompt' "Ask 'pass' for" def)
--
-- For detailed instructions on:
--
-- - editing your key bindings, see "XMonad.Doc.Extending#Editing_key_bindings".
@ -137,7 +146,11 @@ mkPassPrompt promptLabel passwordFunction xpconfig = do
-- | A prompt to retrieve a password from a given entry.
--
passPrompt :: XPConfig -> X ()
passPrompt = mkPassPrompt "Select password" selectPassword
passPrompt = passPrompt' "Select password"
-- | The same as 'passPrompt' but with a user-specified prompt.
passPrompt' :: String -> XPConfig -> X ()
passPrompt' s = mkPassPrompt s selectPassword
-- | A prompt to retrieve a OTP from a given entry. Note that you will
-- need to use the <https://github.com/tadfisher/pass-otp pass-otp>
@ -151,20 +164,32 @@ passOTPPrompt = mkPassPrompt "Select OTP" selectOTP
-- (Beware that no confirmation is asked)
--
passGeneratePrompt :: XPConfig -> X ()
passGeneratePrompt = mkPassPrompt "Generate password" generatePassword
passGeneratePrompt = passGeneratePrompt' "Generate password"
-- | The same as 'passGeneratePrompt' but with a user-specified prompt.
passGeneratePrompt' :: String -> XPConfig -> X ()
passGeneratePrompt' s = mkPassPrompt s generatePassword
-- | A prompt to generate a password for a given entry and immediately copy it
-- to the clipboard. This can be used to override an already stored entry.
-- (Beware that no confirmation is asked)
--
passGenerateAndCopyPrompt :: XPConfig -> X ()
passGenerateAndCopyPrompt = mkPassPrompt "Generate and copy password" generateAndCopyPassword
passGenerateAndCopyPrompt = passGenerateAndCopyPrompt' "Generate and copy password"
-- | The same as 'passGenerateAndCopyPrompt' but with a user-specified prompt.
passGenerateAndCopyPrompt' :: String -> XPConfig -> X ()
passGenerateAndCopyPrompt' s = mkPassPrompt s generateAndCopyPassword
-- | A prompt to remove a password for a given entry.
-- (Beware that no confirmation is asked)
--
passRemovePrompt :: XPConfig -> X ()
passRemovePrompt = mkPassPrompt "Remove password" removePassword
passRemovePrompt = passRemovePrompt' "Remove password"
-- | The same as 'passRemovePrompt' but with a user-specified prompt.
passRemovePrompt' :: String -> XPConfig -> X ()
passRemovePrompt' s = mkPassPrompt s removePassword
-- | A prompt to type in a password for a given entry.
-- This doesn't touch the clipboard.
@ -176,7 +201,11 @@ passTypePrompt = mkPassPrompt "Type password" typePassword
-- This doesn't touch the clipboard.
--
passEditPrompt :: XPConfig -> X ()
passEditPrompt = mkPassPrompt "Edit password" editPassword
passEditPrompt = passEditPrompt' "Edit password"
-- | The same as 'passEditPrompt' but with a user-specified prompt.
passEditPrompt' :: String -> XPConfig -> X ()
passEditPrompt' s = mkPassPrompt s editPassword
-- | Select a password.
--
@ -223,7 +252,7 @@ escapeQuote = concatMap escape
escape '"' = "\\\""
escape x = [x]
-- | Retrieve the list of passwords from the password store 'passwordStoreDir
-- | Retrieve the list of passwords from the password store 'passwordStoreDir'
--
getPasswords :: FilePath -> IO [String]
getPasswords passwordStoreDir = do