GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 11:19:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

Add a command name header to the 'help -t2t' output

Browse Source
This commit is contained in:
hallgren
2011-09-15 18:19:01 +00:00
parent b24c46f438
commit 4e35640bb8
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/compiler/GF/Command/Commands.hs
View File

@@ -104,8 +104,10 @@ commandHelp full (co,info) = unlines . compact $ [
commandHelpTags :: Bool -> (String,CommandInfo) -> String commandHelpTags :: Bool -> (String,CommandInfo) -> String
commandHelpTags full (co,info) = unlines . compact $ [ commandHelpTags full (co,info) = unlines . compact $ [
"#VSPACE","","#NOINDENT", "#VSPACE","",
lit co ++ equal (lit (longname info)) ++ ": " ++ "===="++hdrname++"====",
"#NOINDENT",
name ++ ": " ++
"//" ++ synopsis info ++ ".//"] ++ if full then [ "//" ++ synopsis info ++ ".//"] ++ if full then [
"","#TINY","", "","#TINY","",
explanation info, explanation info,
@@ -116,6 +118,9 @@ commandHelpTags full (co,info) = unlines . compact $ [
"", "#NORMAL", "" "", "#NORMAL", ""
] else [] ] else []
where where
hdrname = co ++ equal (longname info)
name = lit co ++ equal (lit (longname info))
lit = optionally (wrap "``") lit = optionally (wrap "``")
equal = optionally (" = "++) equal = optionally (" = "++)
verbatim = optionally (wrap ["```"]) verbatim = optionally (wrap ["```"])