@@ -44,7 +44,7 @@ List of all DocBook tags, with [x] indicating implemented,
4444[o] address - A real-world address, generally a postal address
4545[ ] affiliation - The institutional affiliation of an individual
4646[ ] alt - Text representation for a graphical element
47−[o] anchor - A spot in the document
47+[x] anchor - A spot in the document
4848[x] answer - An answer to a question posed in a QandASet
4949[x] appendix - An appendix in a Book or Article
5050[x] appendixinfo - Meta-information for an Appendix
@@ -72,7 +72,7 @@ List of all DocBook tags, with [x] indicating implemented,
7272[ ] bibliographyinfo - Meta-information for a Bibliography
7373[ ] biblioid - An identifier for a document
7474[o] bibliolist - A wrapper for a set of bibliography entries
75−[ ] bibliomisc - Untyped bibliographic information
75+[x] bibliomisc - Untyped bibliographic information
7676[x] bibliomixed - An entry in a Bibliography
7777[ ] bibliomset - A cooked container for related bibliographic information
7878[ ] biblioref - A cross reference to a bibliographic entry
@@ -644,6 +644,7 @@ blockTags =
644644 , "bibliodiv"
645645 , "biblioentry"
646646 , "bibliography"
647+ , "bibliomisc"
647648 , "bibliomixed"
648649 , "blockquote"
649650 , "book"
@@ -793,8 +794,13 @@ parseBlock (Elem e) =
793794 "titleabbrev" -> skip
794795 "authorinitials" -> skip
795796 "bibliography" -> sect 0
796− "bibliodiv" -> sect 1
797+ "bibliodiv" -> do
798+ tit <- case filterChild (named "title") e of
799+ Just _ -> sect 1
800+ Nothing -> return mempty
801+ (tit <>) <$> parseMixed para (elContent e)
797802 "biblioentry" -> parseMixed para (elContent e)
803+ "bibliomisc" -> parseMixed para (elContent e)
798804 "bibliomixed" -> parseMixed para (elContent e)
799805 "equation" -> para <$> equation e displayMath
800806 "informalequation" -> para <$> equation e displayMath
@@ -1061,6 +1067,8 @@ parseInline (CRef ref) =
10611067 return $ text $ maybe (T.toUpper $ T.pack ref) T.pack $ lookupEntity ref
10621068parseInline (Elem e) =
10631069 case qName (elName e) of
1070+ "anchor" -> do
1071+ return $ spanWith (attrValue "id" e, [], []) mempty
10641072 "phrase" -> do
10651073 let ident = attrValue "id" e
10661074 let classes = T.words $ attrValue "class" e