]> git.wincent.com - docvim.git/blobdiff - lib/Text/Docvim/Printer/Vim.hs
Tweak function and command output in Vim help printer to stand out more
[docvim.git] / lib / Text / Docvim / Printer / Vim.hs
index 18e649ac9d11ad1c89579a5b18b886ca0740a583..c9353c1db0eba95a2a99b32841814b922da6e498 100644 (file)
@@ -206,11 +206,10 @@ toc t = do
 
 command :: Node -> Env
 command (CommandAnnotation name params) = do
 
 command :: Node -> Env
 command (CommandAnnotation name params) = do
-  lhs <- append $ concat [":", name, " ", fromMaybe "" params]
-  ws <- append " "
   target' <- linkTargets [":" ++ name] False
   target' <- linkTargets [":" ++ name] False
-  trailing <- append "\n"
-  return $ concat [lhs, ws, target', trailing]
+  lhs <- append $ concat [":", name, " ", fromMaybe "" params]
+  trailing <- append " ~\n\n"
+  return $ concat [target', lhs, trailing]
 -- TODO indent what follows until next annotation...
 -- will require us to hoist it up inside CommandAnnotation
 -- (and do similar for other sections)
 -- TODO indent what follows until next annotation...
 -- will require us to hoist it up inside CommandAnnotation
 -- (and do similar for other sections)
@@ -219,11 +218,10 @@ command _ = invalidNode
 
 function :: Node -> Env
 function (FunctionAnnotation name) = do
 
 function :: Node -> Env
 function (FunctionAnnotation name) = do
-  lhs <- append $ name ++ "()"
-  ws <- append " "
   target' <- linkTargets [name ++ "()"] False
   target' <- linkTargets [name ++ "()"] False
-  trailing <- append "\n"
-  return $ concat [lhs, ws, target', trailing]
+  lhs <- append $ name ++ "()"
+  trailing <- append " ~\n\n"
+  return $ concat [target', lhs, trailing]
 -- TODO indent what follows
 function _ = invalidNode
 
 -- TODO indent what follows
 function _ = invalidNode