twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 12:41:52 -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

9
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.
--
-- >>> pass "otp" "git\"hub\""
-- "pass otp \"git\\\"hub\\\"\""
-- >>> pass "otp" "\\n'git'\"hub\""
-- "pass otp \"\\\\n'git'\\\"hub\\\"\""
pass :: String -> String -> String
pass cmd label = concat ["pass ", cmd, " \"", concatMap escape label, "\""]
where
escape :: Char -> String
escape '"' = "\\\""
escape x = [x]
escape '"' = "\\\""
escape '\\' = "\\\\"
escape x = [x]