twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-06 06:51:55 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.P.Pass: Properly escape backslashes

Browse Source
This commit is contained in:
Tony Zorman
2023-10-06 09:04:51 +02:00
parent fde30fc073
commit 7854f7766e
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
XMonad/Prompt/Pass.hs
View File

@@ -302,11 +302,12 @@ typeString cmd = cmd ++ " | head -n1 | tr -d '\n' | xdotool type --clearmodifier
-- | Generate a pass prompt. -- | Generate a pass prompt.
-- --
-- >>> pass "otp" "git\"hub\"" -- >>> pass "otp" "\\n'git'\"hub\""
-- "pass otp \"git\\\"hub\\\"\"" -- "pass otp \"\\\\n'git'\\\"hub\\\"\""
pass :: String -> String -> String pass :: String -> String -> String
pass cmd label = concat ["pass ", cmd, " \"", concatMap escape label, "\""] pass cmd label = concat ["pass ", cmd, " \"", concatMap escape label, "\""]
where where
escape :: Char -> String escape :: Char -> String
escape '"' = "\\\"" escape '"' = "\\\""
escape '\\' = "\\\\"
escape x = [x] escape x = [x]