support "+," deadkey sequence for adding a cedilla

The list of supported diacritical marks is hardcoded, so e.g. #(+' e) produces "é" but #(+, c) was a syntax error. It now produces "ç".
brttbndr · Oct 5, 2021 · 9b83d98 · 9b83d98
1 parent 0eacad7
commit 9b83d98
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 2 deletions.
diff --git a/changelog.md b/changelog.md
@@ -17,6 +17,7 @@ The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0)
 - Added a `sticky-key`
 - Expanded documentation
 - Added `--version` (`-V`) flag
+- Added `+,` for "add a cedilla"
 
 ### [Changed]
 - Reorganized codebase

diff --git a/keymap/tutorial.kbd b/keymap/tutorial.kbd
@@ -885,7 +885,7 @@
  _ _ _ _ _ _ _ _ _ _ _ _ _ _
  _ ä é © _ _ _ _ _ _ _ _ _ _
  _ +' +~ +` +^ _ _ _ _ _ _ _ _
- _ +" _  _ _ _ _ _ _ _ _ _
+ _ +" +, _ _ _ _ _ _ _ _ _
  _ _ _ _ _ _ _ _)
 
 

diff --git a/src/KMonad/Args/Parser.hs b/src/KMonad/Args/Parser.hs
@@ -249,7 +249,7 @@ composeSeqP = do
 deadkeySeqP :: Parser [DefButton]
 deadkeySeqP = do
  _ <- prefix (char '+')
- c <- satisfy (`elem` ("~'^`\"" :: String))
+ c <- satisfy (`elem` ("~'^`\"," :: String))
  case runParser buttonP "" (T.singleton c) of
  Left _ -> fail "Could not parse deadkey sequence"
  Right b -> pure [b]