oysteikt
/
nix-attr-search
mirror of https://github.com/h7x4/nix-attr-search.git
1
0
Fork 0
Code Issues Releases Activity

docbook2txt: parse more tags 

- parse `<quote>`
- parse `<warning>`
This commit is contained in:
Oystein Kristoffer Tveit 2022-11-30 02:49:06 +01:00
parent ea4e35b82a
commit c1d4bece4a
Signed by: oysteikt
GPG Key ID: 9F2F7D8250F35146
1 changed files with 24 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
internals/docbook2txt/docbook2txt.hs
View File

@ -61,6 +61,9 @@ wrapSGR sgr str = do
wrapColor :: AN.Color -> String -> IO () wrapColor :: AN.Color -> String -> IO ()
wrapColor c = wrapSGR (AN.SetColor AN.Foreground AN.Vivid c) wrapColor c = wrapSGR (AN.SetColor AN.Foreground AN.Vivid c)
wrapTxt :: String -> String -> String
wrapTxt delimiter string = concat [delimiter, string, delimiter]
bold :: AN.SGR bold :: AN.SGR
bold = AN.SetConsoleIntensity AN.BoldIntensity bold = AN.SetConsoleIntensity AN.BoldIntensity
@ -78,33 +81,33 @@ replaceTagColor (TS.TagBranch "para" _ inner) =
} }
replaceTagColor (TS.TagBranch "code" _ [TS.TagLeaf (TS.TagText content)]) = replaceTagColor (TS.TagBranch "code" _ [TS.TagLeaf (TS.TagText content)]) =
PCS PCS
{ colorized = wrapSGR bold $ concat ["`", content, "`"], { colorized = wrapSGR bold $ wrapTxt "`" content,
nonColorized = concat ["`", content, "`"] nonColorized = wrapTxt "`" content
} }
replaceTagColor (TS.TagBranch "command" _ [TS.TagLeaf (TS.TagText content)]) = replaceTagColor (TS.TagBranch "command" _ [TS.TagLeaf (TS.TagText content)]) =
PCS PCS
{ colorized = wrapSGR bold $ concat ["`", content, "`"], { colorized = wrapSGR bold $ wrapTxt "`" content,
nonColorized = concat ["`", content, "`"] nonColorized = wrapTxt "`" content
} }
replaceTagColor (TS.TagBranch "filename" _ [TS.TagLeaf (TS.TagText content)]) = replaceTagColor (TS.TagBranch "filename" _ [TS.TagLeaf (TS.TagText content)]) =
PCS PCS
{ colorized = wrapColor AN.Yellow content, { colorized = wrapColor AN.Yellow content,
nonColorized = concat ["`", content, "`"] nonColorized = wrapTxt "`" content
} }
replaceTagColor (TS.TagBranch "emphasis" _ [TS.TagLeaf (TS.TagText content)]) = replaceTagColor (TS.TagBranch "emphasis" _ [TS.TagLeaf (TS.TagText content)]) =
PCS PCS
{ colorized = wrapSGR bold content, { colorized = wrapSGR bold content,
nonColorized = concat ["`", content, "`"] nonColorized = wrapTxt "`" content
} }
replaceTagColor (TS.TagBranch "literal" _ [TS.TagLeaf (TS.TagText content)]) = replaceTagColor (TS.TagBranch "literal" _ [TS.TagLeaf (TS.TagText content)]) =
PCS PCS
{ colorized = wrapColor AN.Red content, { colorized = wrapColor AN.Red content,
nonColorized = concat ["`", content, "`"] nonColorized = wrapTxt "`" content
} }
replaceTagColor (TS.TagBranch "varname" _ [TS.TagLeaf (TS.TagText content)]) = replaceTagColor (TS.TagBranch "varname" _ [TS.TagLeaf (TS.TagText content)]) =
PCS PCS
{ colorized = wrapColor AN.Red content, { colorized = wrapColor AN.Red content,
nonColorized = concat ["`", content, "`"] nonColorized = wrapTxt "`" content
} }
replaceTagColor (TS.TagBranch "link" [("xlink:href", link)] []) = replaceTagColor (TS.TagBranch "link" [("xlink:href", link)] []) =
PCS PCS
@ -118,18 +121,28 @@ replaceTagColor (TS.TagBranch "link" [("xlink:href", link)] [TS.TagLeaf (TS.TagT
} }
replaceTagColor (TS.TagBranch "option" _ [TS.TagLeaf (TS.TagText content)]) = replaceTagColor (TS.TagBranch "option" _ [TS.TagLeaf (TS.TagText content)]) =
PCS PCS
{ colorized = wrapSGR bold $ concat ["`", content, "`"], { colorized = wrapSGR bold $ wrapTxt "`" content,
nonColorized = concat ["`", content, "`"] nonColorized = wrapTxt "`" content
} }
replaceTagColor (TS.TagBranch "envar" _ [TS.TagLeaf (TS.TagText content)]) = replaceTagColor (TS.TagBranch "envar" _ [TS.TagLeaf (TS.TagText content)]) =
PCS PCS
{ colorized = wrapSGR bold $ concat ["`$", content, "`"], { colorized = wrapSGR bold $ concat ["`$", content, "`"],
nonColorized = concat ["`$", content, "`"] nonColorized = concat ["`$", content, "`"]
} }
replaceTagColor (TS.TagBranch "quote" _ inner) =
PCS
{ colorized = sequence_ [putStr "\"", mapM_ (colorized . replaceTagColor) inner, putStr "\""],
nonColorized = wrapTxt "\"" $ concatMap (nonColorized . replaceTagColor) inner
}
replaceTagColor (TS.TagBranch "warning" _ inner) =
PCS
{ colorized = sequence_ [wrapColor AN.Red "WARNING: ", mapM_ (colorized . replaceTagColor) inner],
nonColorized = "WARNING: " ++ concatMap (nonColorized . replaceTagColor) inner
}
replaceTagColor (TS.TagBranch "xref" [("linkend", link)] []) = replaceTagColor (TS.TagBranch "xref" [("linkend", link)] []) =
PCS PCS
{ colorized = sequence_ $ [putStr "`"] ++ formattedLink ++ [putStr "`"], { colorized = sequence_ $ [putStr "`"] ++ formattedLink ++ [putStr "`"],
nonColorized = concat ["`", link, "`"] nonColorized = wrapTxt "`" link
} }
where where
removeOptPrefix :: String -> String removeOptPrefix :: String -> String