diff options
Diffstat (limited to 'src/GF/Shell')
| -rw-r--r-- | src/GF/Shell/PShell.hs | 2 | ||||
| -rw-r--r-- | src/GF/Shell/ShellCommands.hs | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/src/GF/Shell/PShell.hs b/src/GF/Shell/PShell.hs index ff447fc6d..dd62067f2 100644 --- a/src/GF/Shell/PShell.hs +++ b/src/GF/Shell/PShell.hs @@ -68,6 +68,8 @@ pCommand ws = case ws of "i" : f : [] -> aUnit (CImport f) "rl" : l : [] -> aUnit (CRemoveLanguage (language l)) "e" : [] -> aUnit CEmptyState + "cm" : a : [] -> aUnit (CChangeMain (Just (pzIdent a))) + "cm" : [] -> aUnit (CChangeMain Nothing) "s" : [] -> aUnit CStripState "tg" : f : [] -> aUnit (CTransformGrammar f) "cl" : f : [] -> aUnit (CConvertLatex f) diff --git a/src/GF/Shell/ShellCommands.hs b/src/GF/Shell/ShellCommands.hs index e30b8010b..a3e5d3b94 100644 --- a/src/GF/Shell/ShellCommands.hs +++ b/src/GF/Shell/ShellCommands.hs @@ -20,6 +20,7 @@ data Command = CImport FilePath | CRemoveLanguage Language | CEmptyState + | CChangeMain (Maybe I.Ident) | CStripState | CTransformGrammar FilePath | CConvertLatex FilePath @@ -161,7 +162,7 @@ optionsOfCommand co = case co of CWriteFile _ -> none CAppendFile _ -> none CSpeakAloud -> flags "language" - CPutString -> flags "filter length" + CPutString -> both "utf8" "filter length" CShowTerm -> flags "printer" CSystemCommand _ -> none |