Whitespace -> whitespace
_ -> append ""
--- TODO: add {name}.txt to the symbol table?
plugin :: String -> String -> Env
plugin name desc = appendNoWrap $
- (center filename desc (target name) " " " ") ++ "\n\n"
+ (center filename desc (target normalized) " " " ") ++ "\n\n"
where
- filename = "*" ++ name ++ ".txt*"
+ filename = "*" ++ normalized ++ ".txt*"
+ normalized = map toLower name
center a b c s1 s2 =
if | renderedWidth str >= textwidth -> str
| odd $ renderedWidth str -> center a b c (s1 ++ " ") s2
-*Pinnacle.txt* Highlight group manipulation for Vim *Pinnacle*
+*pinnacle.txt* Highlight group manipulation for Vim *pinnacle*
CONTENTS *pinnacle-contents*
--- /dev/null
+*pinnacle.txt* Highlight group manipulation for Vim *pinnacle*
+
+CONTENTS *pinnacle-contents*
+
+
+
+Note how we can link to |pinnacle.txt| even though the Vim printer doesn't use
+the symbol table.
+
+Also note that case used for the plugin name in the annotation doesn't
+really matter; it will be normalized to lowercase.
--- /dev/null
+""
+" @plugin Pinnacle Highlight group manipulation for Vim
+"
+" Note how we can link to |pinnacle.txt| even though the Vim printer doesn't use
+" the symbol table.
+"
+" Also note that case used for the plugin name in the annotation doesn't really
+" matter; it will be normalized to lowercase.