From 80511f1b34d082742d78d9745469eb8c63592a9c Mon Sep 17 00:00:00 2001 From: mb21 Date: Sun, 1 Dec 2013 21:11:39 +0100 Subject: InDesign ICML Writer --- pandoc.cabal | 1 + src/Text/Pandoc.hs | 3 + src/Text/Pandoc/Writers/ICML.hs | 525 +++++++ tests/Tests/Old.hs | 2 +- tests/tables.icml | 748 ++++++++++ tests/writer.icml | 3023 +++++++++++++++++++++++++++++++++++++++ 6 files changed, 4301 insertions(+), 1 deletion(-) create mode 100644 src/Text/Pandoc/Writers/ICML.hs create mode 100644 tests/tables.icml create mode 100644 tests/writer.icml diff --git a/pandoc.cabal b/pandoc.cabal index a4b8ac61b..e279a2cc9 100644 --- a/pandoc.cabal +++ b/pandoc.cabal @@ -270,6 +270,7 @@ Library Text.Pandoc.Writers.Docbook, Text.Pandoc.Writers.OPML, Text.Pandoc.Writers.HTML, + Text.Pandoc.Writers.ICML, Text.Pandoc.Writers.LaTeX, Text.Pandoc.Writers.ConTeXt, Text.Pandoc.Writers.OpenDocument, diff --git a/src/Text/Pandoc.hs b/src/Text/Pandoc.hs index 703bb876a..2c90fd09b 100644 --- a/src/Text/Pandoc.hs +++ b/src/Text/Pandoc.hs @@ -85,6 +85,7 @@ module Text.Pandoc , writeTexinfo , writeHtml , writeHtmlString + , writeICML , writeDocbook , writeOPML , writeOpenDocument @@ -133,6 +134,7 @@ import Text.Pandoc.Writers.ODT import Text.Pandoc.Writers.Docx import Text.Pandoc.Writers.EPUB import Text.Pandoc.Writers.FB2 +import Text.Pandoc.Writers.ICML import Text.Pandoc.Writers.Docbook import Text.Pandoc.Writers.OPML import Text.Pandoc.Writers.OpenDocument @@ -226,6 +228,7 @@ writers = [ ,("html" , PureStringWriter writeHtmlString) ,("html5" , PureStringWriter $ \o -> writeHtmlString o{ writerHtml5 = True }) + ,("icml" , PureStringWriter writeICML) ,("s5" , PureStringWriter $ \o -> writeHtmlString o{ writerSlideVariant = S5Slides , writerTableOfContents = False }) diff --git a/src/Text/Pandoc/Writers/ICML.hs b/src/Text/Pandoc/Writers/ICML.hs new file mode 100644 index 000000000..19d486b25 --- /dev/null +++ b/src/Text/Pandoc/Writers/ICML.hs @@ -0,0 +1,525 @@ +{-# LANGUAGE OverloadedStrings #-} + +{- | + Module : Text.Pandoc.Writers.ICML + Copyright : Copyright (C) 2013 github.com/mb21 + License : GNU GPL, version 2 or above + + Stability : alpha + +Conversion of 'Pandoc' documents to Adobe InCopy ICML, a stand-alone XML format +which is a subset of the zipped IDML format for which the documentation is +available here: http://wwwimages.adobe.com/www.adobe.com/content/dam/Adobe/en/devnet/indesign/sdk/cs6/idml/idml-specification.pdf +InCopy is the companion word-processor to Adobe InDesign and ICML documents can be integrated +into InDesign with File -> Place. +-} +module Text.Pandoc.Writers.ICML (writeICML) where +import Text.Pandoc.Definition +import Text.Pandoc.XML +import Text.Pandoc.Writers.Shared +import Text.Pandoc.Shared (splitBy) +import Text.Pandoc.Options +import Text.Pandoc.Templates (renderTemplate') +import Text.Pandoc.Pretty +import Data.List (isPrefixOf, isInfixOf, stripPrefix) +import Data.Text as Text (breakOnAll, pack) +import Data.Monoid (mappend) +import Control.Monad.State +import qualified Data.Set as Set + +type Style = [String] +type Hyperlink = [(Int, String)] + +data WriterState = WriterState{ + blockStyles :: Set.Set String + , inlineStyles :: Set.Set String + , links :: Hyperlink + , listDepth :: Int + , maxListDepth :: Int + } + +type WS a = State WriterState a + +defaultWriterState :: WriterState +defaultWriterState = WriterState{ + blockStyles = Set.empty + , inlineStyles = Set.empty + , links = [] + , listDepth = 1 + , maxListDepth = 0 + } + +-- inline names (appear in InDesign's character styles pane) +emphName :: String +strongName :: String +strikeoutName :: String +superscriptName :: String +subscriptName :: String +smallCapsName :: String +codeName :: String +linkName :: String +emphName = "Italic" +strongName = "Bold" +strikeoutName = "Strikeout" +superscriptName = "Superscript" +subscriptName = "Subscript" +smallCapsName = "SmallCaps" +codeName = "Code" +linkName = "Link" + +-- block element names (appear in InDesign's paragraph styles pane) +paragraphName :: String +codeBlockName :: String +rawBlockName :: String +blockQuoteName :: String +orderedListName :: String +bulletListName :: String +defListTermName :: String +defListDefName :: String +headerName :: String +tableName :: String +tableHeaderName :: String +tableCaptionName :: String +alignLeftName :: String +alignRightName :: String +alignCenterName :: String +firstListItemName :: String +beginsWithName :: String +lowerRomanName :: String +upperRomanName :: String +lowerAlphaName :: String +upperAlphaName :: String +subListParName :: String +footnoteName :: String +paragraphName = "Paragraph" +codeBlockName = "CodeBlock" +rawBlockName = "Rawblock" +blockQuoteName = "Blockquote" +orderedListName = "NumList" +bulletListName = "BulList" +defListTermName = "DefListTerm" +defListDefName = "DefListDef" +headerName = "Header" +tableName = "TablePar" +tableHeaderName = "TableHeader" +tableCaptionName = "TableCaption" +alignLeftName = "LeftAlign" +alignRightName = "RightAlign" +alignCenterName = "CenterAlign" +firstListItemName = "first" +beginsWithName = "beginsWith-" +lowerRomanName = "lowerRoman" +upperRomanName = "upperRoman" +lowerAlphaName = "lowerAlpha" +upperAlphaName = "upperAlpha" +subListParName = "subParagraph" +footnoteName = "Footnote" + + +-- | Convert Pandoc document to string in ICML format. +writeICML :: WriterOptions -> Pandoc -> String +writeICML opts (Pandoc meta blocks) = + let colwidth = if writerWrapText opts + then Just $ writerColumns opts + else Nothing + render' = render colwidth + renderMeta f s = Just $ render' $ fst $ runState (f opts [] s) defaultWriterState + Just metadata = metaToJSON opts + (renderMeta blocksToICML) + (renderMeta inlinesToICML) + meta + (doc, st) = runState (blocksToICML opts [] blocks) defaultWriterState + main = render' doc + context = defField "body" main + $ defField "charStyles" (render' $ charStylesToDoc st) + $ defField "parStyles" (render' $ parStylesToDoc st) + $ defField "hyperlinks" (render' $ hyperlinksToDoc $ links st) + $ metadata + in if writerStandalone opts + then renderTemplate' (writerTemplate opts) context + else main + +-- | Auxilary functions for parStylesToDoc and charStylesToDoc. +contains :: String -> (String, (String, String)) -> [(String, String)] +contains s rule = + if isInfixOf (fst rule) s + then [snd rule] + else [] + +-- | The monospaced font to use as default. +monospacedFont :: Doc +monospacedFont = inTags False "AppliedFont" [("type", "string")] $ text "Courier New" + +-- | How much to indent blockquotes etc. +defaultIndent :: Int +defaultIndent = 20 + +-- | How much to indent numbered lists before the number. +defaultListIndent :: Int +defaultListIndent = 10 + +-- other constants +lineSeparator :: String +lineSeparator = "
" + +-- | Convert a WriterState with its block styles to the ICML listing of Paragraph Styles. +parStylesToDoc :: WriterState -> Doc +parStylesToDoc st = vcat $ map makeStyle $ Set.toAscList $ blockStyles st + where + makeStyle s = + let countSubStrs sub str = length $ Text.breakOnAll (Text.pack sub) (Text.pack str) + attrs = concat $ map (contains s) $ [ + (defListTermName, ("BulletsAndNumberingListType", "BulletList")) + , (defListTermName, ("FontStyle", "Bold")) + , (tableHeaderName, ("FontStyle", "Bold")) + , (alignLeftName, ("Justification", "LeftAlign")) + , (alignRightName, ("Justification", "RightAlign")) + , (alignCenterName, ("Justification", "CenterAlign")) + , (headerName++"1", ("PointSize", "36")) + , (headerName++"2", ("PointSize", "30")) + , (headerName++"3", ("PointSize", "24")) + , (headerName++"4", ("PointSize", "18")) + , (headerName++"5", ("PointSize", "14")) + ] + -- what is the most nested list type, if any? + (isBulletList, isOrderedList) = findList $ reverse $ splitBy (==' ') s + where + findList [] = (False, False) + findList (x:xs) | x == bulletListName = (True, False) + | x == orderedListName = (False, True) + | otherwise = findList xs + nBuls = countSubStrs bulletListName s + nOrds = countSubStrs orderedListName s + attrs' = numbering ++ listType ++ indent ++ attrs + where + numbering | isOrderedList = [("NumberingExpression", "^#.^t"), ("NumberingLevel", show nOrds)] + | otherwise = [] + listType | isOrderedList && (not $ isInfixOf subListParName s) + = [("BulletsAndNumberingListType", "NumberedList")] + | isBulletList && (not $ isInfixOf subListParName s) + = [("BulletsAndNumberingListType", "BulletList")] + | otherwise = [] + indent = [("LeftIndent", show indt)] + where + nBlockQuotes = countSubStrs blockQuoteName s + nDefLists = countSubStrs defListDefName s + indt = max 0 $ defaultListIndent*(nBuls + nOrds - 1) + defaultIndent*(nBlockQuotes + nDefLists) + props = inTags True "Properties" [] $ (basedOn $$ tabList $$ numbForm) + where + font = if isInfixOf codeBlockName s + then monospacedFont + else empty + basedOn = inTags False "BasedOn" [("type", "object")] (text "$ID/NormalParagraphStyle") $$ font + tabList = if isBulletList + then inTags True "TabList" [("type","list")] $ inTags True "ListItem" [("type","record")] + $ vcat [ + inTags False "Alignment" [("type","enumeration")] $ text "LeftAlign" + , inTags False "AlignmentCharacter" [("type","string")] $ text "." + , selfClosingTag "Leader" [("type","string")] + , inTags False "Position" [("type","unit")] $ text + $ show $ defaultListIndent * (nBuls + nOrds) + ] + else empty + makeNumb name = inTags False "NumberingFormat" [("type", "string")] (text name) + numbForm | isInfixOf lowerRomanName s = makeNumb "i, ii, iii, iv..." + | isInfixOf upperRomanName s = makeNumb "I, II, III, IV..." + | isInfixOf lowerAlphaName s = makeNumb "a, b, c, d..." + | isInfixOf upperAlphaName s = makeNumb "A, B, C, D..." + | otherwise = empty + in inTags True "ParagraphStyle" ([("Self", "ParagraphStyle/"++s), ("Name", s)] ++ attrs') props + +-- | Convert a WriterState with its inline styles to the ICML listing of Character Styles. +charStylesToDoc :: WriterState -> Doc +charStylesToDoc st = vcat $ map makeStyle $ Set.toAscList $ inlineStyles st + where + makeStyle s = + let attrs = concat $ map (contains s) [ + (strikeoutName, ("StrikeThru", "true")) + , (superscriptName, ("Position", "Superscript")) + , (subscriptName, ("Position", "Subscript")) + , (smallCapsName, ("Capitalization", "SmallCaps")) + ] + attrs' | isInfixOf emphName s && isInfixOf strongName s = ("FontStyle", "Bold Italic") : attrs + | isInfixOf strongName s = ("FontStyle", "Bold") : attrs + | isInfixOf emphName s = ("FontStyle", "Italic") : attrs + | otherwise = attrs + props = inTags True "Properties" [] $ + inTags False "BasedOn" [("type", "object")] (text "$ID/NormalCharacterStyle") $$ font + where + font = + if isInfixOf codeName s + then monospacedFont + else empty + in inTags True "CharacterStyle" ([("Self", "CharacterStyle/"++s), ("Name", s)] ++ attrs') props + +-- | Convert a list of (identifier, url) pairs to the ICML listing of hyperlinks. +hyperlinksToDoc :: Hyperlink -> Doc +hyperlinksToDoc [] = empty +hyperlinksToDoc (x:xs) = hyp x $$ hyperlinksToDoc xs + where + hyp (ident, url) = hdest $$ hlink + where + hdest = selfClosingTag "HyperlinkURLDestination" + [("Self", "HyperlinkURLDestination/"++url), ("Name","link"), ("DestinationURL",url), ("DestinationUniqueKey","1")] + hlink = inTags True "Hyperlink" [("Self","uf-"++show ident), ("Name",url), + ("Source","htss-"++show ident), ("Visible","true"), ("DestinationUniqueKey","1")] + $ inTags True "Properties" [] + $ inTags False "BorderColor" [("type","enumeration")] (text "Black") + $$ (inTags False "Destination" [("type","object")] + $ text $ "HyperlinkURLDestination/"++(escapeStringForXML url)) + + +-- | Convert a list of Pandoc blocks to ICML. +blocksToICML :: WriterOptions -> Style -> [Block] -> WS Doc +blocksToICML opts style lst = vcat `fmap` mapM (blockToICML opts style) lst + +-- | Convert a Pandoc block element to ICML. +blockToICML :: WriterOptions -> Style -> Block -> WS Doc +blockToICML opts style (Plain lst) = parStyle opts style lst +blockToICML opts style (Para lst) = parStyle opts (paragraphName:style) lst +blockToICML opts style (CodeBlock _ str) = parStyle opts (codeBlockName:style) $ [Str str] +blockToICML opts style (RawBlock _ str) = parStyle opts (rawBlockName:style) $ [Str str] +blockToICML opts style (BlockQuote blocks) = blocksToICML opts (blockQuoteName:style) blocks +blockToICML opts style (OrderedList attribs lst) = listItemsToICML opts orderedListName style (Just attribs) lst +blockToICML opts style (BulletList lst) = listItemsToICML opts bulletListName style Nothing lst +blockToICML opts style (DefinitionList lst) = vcat `fmap` mapM (definitionListItemToICML opts style) lst +blockToICML opts style (Header lvl _ lst) = + let stl = (headerName ++ show lvl):style + in parStyle opts stl lst +blockToICML _ _ HorizontalRule = return empty -- we could insert a page break instead +blockToICML opts style (Table caption aligns widths headers rows) = + let style' = tableName : style + noHeader = all null headers + nrHeaders = if noHeader + then "0" + else "1" + nrRows = length rows + nrCols = if null rows + then 0 + else length $ head rows + rowsToICML [] _ = return empty + rowsToICML (col:rest) rowNr = + liftM2 ($$) (colsToICML col rowNr (0::Int)) $ rowsToICML rest (rowNr+1) + colsToICML [] _ _ = return empty + colsToICML (cell:rest) rowNr colNr = do + let stl = if rowNr == 0 && not noHeader + then tableHeaderName:style' + else style' + alig = aligns !! colNr + stl' | alig == AlignLeft = alignLeftName : stl + | alig == AlignRight = alignRightName : stl + | alig == AlignCenter = alignCenterName : stl + | otherwise = stl + c <- blocksToICML opts stl' cell + let cl = return $ inTags True "Cell" + [("Name", show colNr ++":"++ show rowNr), ("AppliedCellStyle","CellStyle/Cell")] c + liftM2 ($$) cl $ colsToICML rest rowNr (colNr+1) + in do + let tabl = if noHeader + then rows + else headers:rows + cells <- rowsToICML tabl (0::Int) + let colWidths w = if w > 0 + then [("SingleColumnWidth",show $ 500 * w)] + else [] + let tupToDoc tup = selfClosingTag "Column" $ [("Name",show $ fst tup)] ++ (colWidths $ snd tup) + let colDescs = vcat $ map tupToDoc $ zip [0..nrCols-1] widths + let tableDoc = return $ inTags True "Table" [ + ("AppliedTableStyle","TableStyle/Table") + , ("HeaderRowCount", nrHeaders) + , ("BodyRowCount", show nrRows) + , ("ColumnCount", show nrCols) + ] (colDescs $$ cells) + liftM2 ($$) tableDoc $ parStyle opts (tableCaptionName:style) caption +blockToICML opts style (Div _ lst) = blocksToICML opts style lst +blockToICML _ _ Null = return empty + +-- | Convert a list of lists of blocks to ICML list items. +listItemsToICML :: WriterOptions -> String -> Style -> Maybe ListAttributes -> [[Block]] -> WS Doc +listItemsToICML _ _ _ _ [] = return empty +listItemsToICML opts listType style attribs (first:rest) = do + st <- get + put st{ listDepth = 1 + listDepth st} + let stl = listType:style + let f = listItemToICML opts stl True attribs first + let r = map (listItemToICML opts stl False attribs) rest + docs <- sequence $ f:r + s <- get + let maxD = max (maxListDepth s) (listDepth s) + put s{ listDepth = 1, maxListDepth = maxD } + return $ vcat docs + +-- | Convert a list of blocks to ICML list items. +listItemToICML :: WriterOptions -> Style -> Bool-> Maybe ListAttributes -> [Block] -> WS Doc +listItemToICML opts style isFirst attribs item = + let makeNumbStart (Just (beginsWith, numbStl, _)) = + let doN DefaultStyle = [] + doN LowerRoman = [lowerRomanName] + doN UpperRoman = [upperRomanName] + doN LowerAlpha = [lowerAlphaName] + doN UpperAlpha = [upperAlphaName] + doN _ = [] + bw = if beginsWith > 1 + then [beginsWithName ++ show beginsWith] + else [] + in doN numbStl ++ bw + makeNumbStart Nothing = [] + stl = if isFirst + then firstListItemName:style + else style + stl' = makeNumbStart attribs ++ stl + in if length item > 1 + then do + let insertTab (Para lst) = blockToICML opts (subListParName:style) $ Para $ (Str "\t"):lst + insertTab block = blockToICML opts style block + f <- blockToICML opts stl' $ head item + r <- fmap vcat $ mapM insertTab $ tail item + return $ f $$ r + else blocksToICML opts stl' item + +definitionListItemToICML :: WriterOptions -> Style -> ([Inline],[[Block]]) -> WS Doc +definitionListItemToICML opts style (term,defs) = do + term' <- parStyle opts (defListTermName:style) term + defs' <- vcat `fmap` mapM (blocksToICML opts (defListDefName:style)) defs + return $ term' $$ defs' + + +-- | Convert a list of inline elements to ICML. +inlinesToICML :: WriterOptions -> Style -> [Inline] -> WS Doc +inlinesToICML opts style lst = vcat `fmap` mapM (inlineToICML opts style) (mergeSpaces lst) + +-- | Convert an inline element to ICML. +inlineToICML :: WriterOptions -> Style -> Inline -> WS Doc +inlineToICML _ style (Str str) = charStyle style $ text $ escapeStringForXML str +inlineToICML opts style (Emph lst) = inlinesToICML opts (emphName:style) lst +inlineToICML opts style (Strong lst) = inlinesToICML opts (strongName:style) lst +inlineToICML opts style (Strikeout lst) = inlinesToICML opts (strikeoutName:style) lst +inlineToICML opts style (Superscript lst) = inlinesToICML opts (superscriptName:style) lst +inlineToICML opts style (Subscript lst) = inlinesToICML opts (subscriptName:style) lst +inlineToICML opts style (SmallCaps lst) = inlinesToICML opts (smallCapsName:style) lst +inlineToICML opts style (Quoted SingleQuote lst) = inlinesToICML opts style $ [Str "‘"] ++ lst ++ [Str "’"] +inlineToICML opts style (Quoted DoubleQuote lst) = inlinesToICML opts style $ [Str "“"] ++ lst ++ [Str "”"] +inlineToICML opts style (Cite _ lst) = footnoteToICML opts style [Para lst] +inlineToICML _ style (Code _ str) = charStyle (codeName:style) $ text $ escapeStringForXML str +inlineToICML _ style Space = charStyle style space +inlineToICML _ style LineBreak = charStyle style $ text lineSeparator +inlineToICML _ style (Math _ str) = charStyle style $ text $ escapeStringForXML str --InDesign doesn't really do math +inlineToICML _ style (RawInline _ str) = charStyle style $ text $ escapeStringForXML str +inlineToICML opts style (Link lst (url, title)) = do + content <- inlinesToICML opts (linkName:style) lst + state $ \st -> + let ident = if null $ links st + then 1::Int + else 1 + (fst $ head $ links st) + newst = st{ links = (ident, url):(links st) } + cont = inTags True "HyperlinkTextSource" + [("Self","htss-"++show ident), ("Name",title), ("Hidden","false")] content + in (cont, newst) +inlineToICML opts style (Image alt target) = imageICML opts style alt target +inlineToICML opts style (Note lst) = footnoteToICML opts style lst +inlineToICML opts style (Span _ lst) = inlinesToICML opts style lst + +-- | Convert a list of block elements to an ICML footnote. +footnoteToICML :: WriterOptions -> Style -> [Block] -> WS Doc +footnoteToICML opts style lst = + let insertTab (Para ls) = blockToICML opts (footnoteName:style) $ Para $ (Str "\t"):ls + insertTab block = blockToICML opts (footnoteName:style) block + in do + contents <- mapM insertTab lst + let number = inTags True "ParagraphStyleRange" [] $ + inTags True "CharacterStyleRange" [] $ inTagsSimple "Content" "" + return $ inTags True "CharacterStyleRange" + [("AppliedCharacterStyle","$ID/NormalCharacterStyle"), ("Position","Superscript")] + $ inTags True "Footnote" [] $ number $$ vcat contents + +-- | Auxiliary function to merge Space elements into the adjacent Strs. +mergeSpaces :: [Inline] -> [Inline] +mergeSpaces ((Str s):(Space:((Str s'):xs))) = mergeSpaces $ Str(s++" "++s') : xs +mergeSpaces (Space:((Str s):xs)) = mergeSpaces $ Str (" "++s) : xs +mergeSpaces ((Str s):(Space:xs)) = mergeSpaces $ Str (s++" ") : xs +mergeSpaces (x:xs) = x : (mergeSpaces xs) +mergeSpaces [] = [] + +-- | Wrap a list of inline elements in an ICML Paragraph Style +parStyle :: WriterOptions -> Style -> [Inline] -> WS Doc +parStyle opts style lst = + let slipIn x y = if null y + then x + else x ++ " > " ++ y + stlStr = foldr slipIn [] $ reverse style + stl = if null stlStr + then "" + else "ParagraphStyle/" ++ stlStr + attrs = ("AppliedParagraphStyle", stl) + attrs' = if firstListItemName `elem` style + then let ats = attrs : [("NumberingContinue", "false")] + begins = filter (isPrefixOf beginsWithName) style + in if null begins + then ats + else let i = maybe "" id $ stripPrefix beginsWithName $ head begins + in ("NumberingStartAt", i) : ats + else [attrs] + in do + content <- inlinesToICML opts [] lst + let cont = inTags True "ParagraphStyleRange" attrs' + $ mappend content $ selfClosingTag "Br" [] + state $ \st -> (cont, st{ blockStyles = Set.insert stlStr $ blockStyles st }) + +-- | Wrap a Doc in an ICML Character Style. +charStyle :: Style -> Doc -> WS Doc +charStyle style content = + let (stlStr, attrs) = styleToStrAttr style + doc = inTags True "CharacterStyleRange" attrs $ inTagsSimple "Content" $ flush content + in do + state $ \st -> + let styles = if null stlStr + then st + else st{ inlineStyles = Set.insert stlStr $ inlineStyles st } + in (doc, styles) + +-- | Transform a Style to a tuple of String (eliminating duplicates and ordered) and corresponding attribute. +styleToStrAttr :: Style -> (String, [(String, String)]) +styleToStrAttr style = + let stlStr = unwords $ Set.toAscList $ Set.fromList style + stl = if null style + then "$ID/NormalCharacterStyle" + else "CharacterStyle/" ++ stlStr + attrs = [("AppliedCharacterStyle", stl)] + in (stlStr, attrs) + +-- | Assemble an ICML Image. +imageICML :: WriterOptions -> Style -> [Inline] -> Target -> WS Doc +imageICML _ style _ (linkURI, _) = + let imgWidth = 300::Int --TODO: set width, height dynamically as in Docx.hs + imgHeight = 200::Int + scaleFact = show (1::Double) --TODO: set scaling factor so image is scaled exactly to imgWidth x imgHeight + hw = show $ imgWidth `div` 2 + hh = show $ imgHeight `div` 2 + qw = show $ imgWidth `div` 4 + qh = show $ imgHeight `div` 4 + (stlStr, attrs) = styleToStrAttr style + props = inTags True "Properties" [] $ inTags True "PathGeometry" [] + $ inTags True "GeometryPathType" [("PathOpen","false")] + $ inTags True "PathPointArray" [] + $ vcat [ + selfClosingTag "PathPointType" [("Anchor", "-"++qw++" -"++qh), + ("LeftDirection", "-"++qw++" -"++qh), ("RightDirection", "-"++qw++" -"++qh)] + , selfClosingTag "PathPointType" [("Anchor", "-"++qw++" "++qh), + ("LeftDirection", "-"++qw++" "++qh), ("RightDirection", "-"++qw++" "++qh)] + , selfClosingTag "PathPointType" [("Anchor", qw++" "++qh), + ("LeftDirection", qw++" "++qh), ("RightDirection", qw++" "++qh)] + , selfClosingTag "PathPointType" [("Anchor", qw++" -"++qh), + ("LeftDirection", qw++" -"++qh), ("RightDirection", qw++" -"++qh)] + ] + image = inTags True "Image" + [("Self","ue6"), ("ItemTransform", scaleFact++" 0 0 "++scaleFact++" -"++qw++" -"++qh)] + $ vcat [ + inTags True "Properties" [] $ inTags True "Profile" [("type","string")] $ text "$ID/Embedded" + $$ selfClosingTag "GraphicBounds" [("Left","0"), ("Top","0"), ("Right", hw), ("Bottom", hh)] + , selfClosingTag "Link" [("Self", "ueb"), ("LinkResourceURI", linkURI)] + ] + doc = inTags True "CharacterStyleRange" attrs + $ inTags True "Rectangle" [("Self","uec"), ("ItemTransform", "1 0 0 1 "++qw++" -"++qh)] + $ (props $$ image) + in do + state $ \st -> (doc, st{ inlineStyles = Set.insert stlStr $ inlineStyles st } ) diff --git a/tests/Tests/Old.hs b/tests/Tests/Old.hs index a16784889..424e1b7c5 100644 --- a/tests/Tests/Old.hs +++ b/tests/Tests/Old.hs @@ -135,7 +135,7 @@ tests = [ testGroup "markdown" "haddock-reader.haddock" "haddock-reader.native" ] , testGroup "other writers" $ map (\f -> testGroup f $ writerTests f) - [ "opendocument" , "context" , "texinfo" + [ "opendocument" , "context" , "texinfo", "icml" , "man" , "plain" , "rtf", "org", "asciidoc" ] ] diff --git a/tests/tables.icml b/tests/tables.icml new file mode 100644 index 000000000..eb73af670 --- /dev/null +++ b/tests/tables.icml @@ -0,0 +1,748 @@ + + + Simple table with caption: +
+ + + + + + + + + + Right +
+ + + + + + Left +
+ + + + + + Center +
+ + + + + + Default +
+ + + + + + 12 +
+ + + + + + 12 +
+ + + + + + 12 +
+ + + + + + 12 +
+ + + + + + 123 +
+ + + + + + 123 +
+ + + + + + 123 +
+ + + + + + 123 +
+ + + + + + 1 +
+ + + + + + 1 +
+ + + + + + 1 +
+ + + + + + 1 +
+ + +
+ + + Demonstration of simple table syntax. +
+ + + + Simple table without caption: +
+ + + + + + + + + + Right +
+ + + + + + Left +
+ + + + + + Center +
+ + + + + + Default +
+ + + + + + 12 +
+ + + + + + 12 +
+ + + + + + 12 +
+ + + + + + 12 +
+ + + + + + 123 +
+ + + + + + 123 +
+ + + + + + 123 +
+ + + + + + 123 +
+ + + + + + 1 +
+ + + + + + 1 +
+ + + + + + 1 +
+ + + + + + 1 +
+ + +
+ +
+ + + + Simple table indented two spaces: +
+ + + + + + + + + + Right +
+ + + + + + Left +
+ + + + + + Center +
+ + + + + + Default +
+ + + + + + 12 +
+ + + + + + 12 +
+ + + + + + 12 +
+ + + + + + 12 +
+ + + + + + 123 +
+ + + + + + 123 +
+ + + + + + 123 +
+ + + + + + 123 +
+ + + + + + 1 +
+ + + + + + 1 +
+ + + + + + 1 +
+ + + + + + 1 +
+ + +
+ + + Demonstration of simple table syntax. +
+ + + + Multiline table with caption: +
+ + + + + + + + + + Centered Header +
+ + + + + + Left Aligned +
+ + + + + + Right Aligned +
+ + + + + + Default aligned +
+ + + + + + First +
+ + + + + + row +
+ + + + + + 12.0 +
+ + + + + + Example of a row that spans multiple lines. +
+ + + + + + Second +
+ + + + + + row +
+ + + + + + 5.0 +
+ + + + + + Here's another one. Note the blank line between rows. +
+ + +
+ + + Here's the caption. It may span multiple lines. +
+ + + + Multiline table without caption: +
+ + + + + + + + + + Centered Header +
+ + + + + + Left Aligned +
+ + + + + + Right Aligned +
+ + + + + + Default aligned +
+ + + + + + First +
+ + + + + + row +
+ + + + + + 12.0 +
+ + + + + + Example of a row that spans multiple lines. +
+ + + + + + Second +
+ + + + + + row +
+ + + + + + 5.0 +
+ + + + + + Here's another one. Note the blank line between rows. +
+ + +
+ +
+ + + + Table without column headers: +
+ + + + + + + + + + 12 +
+ + + + + + 12 +
+ + + + + + 12 +
+ + + + + + 12 +
+ + + + + + 123 +
+ + + + + + 123 +
+ + + + + + 123 +
+ + + + + + 123 +
+ + + + + + 1 +
+ + + + + + 1 +
+ + + + + + 1 +
+ + + + + + 1 +
+ + +
+ +
+ + + + Multiline table without column headers: +
+ + + + + + + + + + First +
+ + + + + + row +
+ + + + + + 12.0 +
+ + + + + + Example of a row that spans multiple lines. +
+ + + + + + Second +
+ + + + + + row +
+ + + + + + 5.0 +
+ + + + + + Here's another one. Note the blank line between rows. +
+ + +
+ +
+ diff --git a/tests/writer.icml b/tests/writer.icml new file mode 100644 index 000000000..ef6ddcf64 --- /dev/null +++ b/tests/writer.icml @@ -0,0 +1,3023 @@ + + + + + + + + + $ID/NormalCharacterStyle + + + + + $ID/NormalCharacterStyle + + + + + $ID/NormalCharacterStyle + + + + + $ID/NormalCharacterStyle + Courier New + + + + + $ID/NormalCharacterStyle + + + + + $ID/NormalCharacterStyle + + + + + $ID/NormalCharacterStyle + + + + + $ID/NormalCharacterStyle + + + + + $ID/NormalCharacterStyle + + + + + $ID/NormalCharacterStyle + + + + + $ID/NormalCharacterStyle + + + + + $ID/NormalCharacterStyle + + + + + + + + + LeftAlign + . + + 10 + + + + + + + $ID/NormalParagraphStyle + + + + + $ID/NormalParagraphStyle + + + + + $ID/NormalParagraphStyle + Courier New + + + + + $ID/NormalParagraphStyle + + + + + $ID/NormalParagraphStyle + + + + + $ID/NormalParagraphStyle + + + + + $ID/NormalParagraphStyle + + + LeftAlign + . + + 10 + + + + + + + $ID/NormalParagraphStyle + + + LeftAlign + . + + 30 + + + + + + + $ID/NormalParagraphStyle + + + LeftAlign + . + + 20 + + + + + + + $ID/NormalParagraphStyle + + + LeftAlign + . + + 20 + + + + + + + $ID/NormalParagraphStyle + + + LeftAlign + . + + 20 + + + + + + + $ID/NormalParagraphStyle + + + LeftAlign + . + + 10 + + + + + + + $ID/NormalParagraphStyle + + + LeftAlign + . + + 10 + + + + + + + $ID/NormalParagraphStyle + + + LeftAlign + . + + 10 + + + + + + + $ID/NormalParagraphStyle + Courier New + + + + + $ID/NormalParagraphStyle + + + + + $ID/NormalParagraphStyle + + + + + $ID/NormalParagraphStyle + Courier New + + + + + $ID/NormalParagraphStyle + + + + + $ID/NormalParagraphStyle + + + + + $ID/NormalParagraphStyle + + + + + $ID/NormalParagraphStyle + + + + + $ID/NormalParagraphStyle + Courier New + + + + + $ID/NormalParagraphStyle + + + + + $ID/NormalParagraphStyle + + + + + $ID/NormalParagraphStyle + + + + + $ID/NormalParagraphStyle + + + + + $ID/NormalParagraphStyle + + + + + $ID/NormalParagraphStyle + + + + + $ID/NormalParagraphStyle + + + + + $ID/NormalParagraphStyle + + + LeftAlign + . + + 20 + + + + + + + $ID/NormalParagraphStyle + + + LeftAlign + . + + 20 + + + + + + + $ID/NormalParagraphStyle + a, b, c, d... + + + + + $ID/NormalParagraphStyle + + + + + $ID/NormalParagraphStyle + A, B, C, D... + + + + + $ID/NormalParagraphStyle + A, B, C, D... + + + + + $ID/NormalParagraphStyle + i, ii, iii, iv... + + + + + $ID/NormalParagraphStyle + + + + + $ID/NormalParagraphStyle + i, ii, iii, iv... + + + + + $ID/NormalParagraphStyle + I, II, III, IV... + + + + + $ID/NormalParagraphStyle + + + + + $ID/NormalParagraphStyle + + + + + $ID/NormalParagraphStyle + + + + + $ID/NormalParagraphStyle + + + + + $ID/NormalParagraphStyle + + + + + $ID/NormalParagraphStyle + A, B, C, D... + + + + + $ID/NormalParagraphStyle + + + + + $ID/NormalParagraphStyle + + + + + $ID/NormalParagraphStyle + + + + + + + + + + + + + + + + This is a set of tests for pandoc. Most of them are adapted from John Gruber’s markdown test suite. +
+ + + + Headers +
+ + + + Level 2 with an + +
+ + + + Level 3 with + + + emphasis +
+ + + + Level 4 +
+ + + + Level 5 +
+ + + + Level 1 +
+ + + + Level 2 with + + + emphasis +
+ + + + Level 3 +
+ + + + with no blank line +
+ + + + Level 2 +
+ + + + with no blank line +
+ + + + Paragraphs +
+ + + + Here’s a regular paragraph. +
+ + + + In Markdown 1.0.0 and earlier. Version 8. This line turns into a list item. Because a hard-wrapped line in the middle of a paragraph looked like a list item. +
+ + + + Here’s one with a bullet. * criminey. +
+ + + + There should be a hard line break + + + 
 + + + here. +
+ + + + Block Quotes +
+ + + + E-mail style: +
+ + + + This is a block quote. It is pretty short. +
+ + + + Code in a block quote: +
+ + + + sub status { + print "working"; +} +
+ + + + A list: +
+ + + + item one +
+ + + + item two +
+ + + + Nested block quotes: +
+ + + + nested +
+ + + + nested +
+ + + + This should not be a block quote: 2 > 1. +
+ + + + And a following paragraph. +
+ + + + Code Blocks +
+ + + + Code: +
+ + + + ---- (should be four hyphens) + +sub status { + print "working"; +} + +this code block is indented by one tab +
+ + + + And: +
+ + + + this code block is indented by two tabs + +These should not be escaped: \$ \\ \> \[ \{ +
+ + + + Lists +
+ + + + Unordered +
+ + + + Asterisks tight: +
+ + + + asterisk 1 +
+ + + + asterisk 2 +
+ + + + asterisk 3 +
+ + + + Asterisks loose: +
+ + + + asterisk 1 +
+ + + + asterisk 2 +
+ + + + asterisk 3 +
+ + + + Pluses tight: +
+ + + + Plus 1 +
+ + + + Plus 2 +
+ + + + Plus 3 +
+ + + + Pluses loose: +
+ + + + Plus 1 +
+ + + + Plus 2 +
+ + + + Plus 3 +
+ + + + Minuses tight: +
+ + + + Minus 1 +
+ + + + Minus 2 +
+ + + + Minus 3 +
+ + + + Minuses loose: +
+ + + + Minus 1 +
+ + + + Minus 2 +
+ + + + Minus 3 +
+ + + + Ordered +
+ + + + Tight: +
+ + + + First +
+ + + + Second +
+ + + + Third +
+ + + + and: +
+ + + + One +
+ + + + Two +
+ + + + Three +
+ + + + Loose using tabs: +
+ + + + First +
+ + + + Second +
+ + + + Third +
+ + + + and using spaces: +
+ + + + One +
+ + + + Two +
+ + + + Three +
+ + + + Multiple paragraphs: +
+ + + + Item 1, graf one. +
+ + + + + + + Item 1. graf two. The quick brown fox jumped over the lazy dog’s back. +
+ + + + Item 2. +
+ + + + Item 3. +
+ + + + Nested +
+ + + + Tab +
+ + + + Tab +
+ + + + Tab +
+ + + + Here’s another: +
+ + + + First +
+ + + + Second: +
+ + + + Fee +
+ + + + Fie +
+ + + + Foe +
+ + + + Third +
+ + + + Same thing but with paragraphs: +
+ + + + First +
+ + + + Second: +
+ + + + Fee +
+ + + + Fie +
+ + + + Foe +
+ + + + Third +
+ + + + Tabs and spaces +
+ + + + this is a list item indented with tabs +
+ + + + this is a list item indented with spaces +
+ + + + this is an example list item indented with tabs +
+ + + + this is an example list item indented with spaces +
+ + + + Fancy list markers +
+ + + + begins with 2 +
+ + + + and now 3 +
+ + + + + + + with a continuation +
+ + + + sublist with roman numerals, starting with 4 +
+ + + + more items +
+ + + + a subsublist +
+ + + + a subsublist +
+ + + + Nesting: +
+ + + + Upper Alpha +
+ + + + Upper Roman. +
+ + + + Decimal start with 6 +
+ + + + Lower alpha with paren +
+ + + + Autonumbering: +
+ + + + Autonumber. +
+ + + + More. +
+ + + + Nested. +
+ + + + Should not be a list item: +
+ + + + M.A. 2007 +
+ + + + B. Williams +
+ + + + Definition Lists +
+ + + + Tight using spaces: +
+ + + + apple +
+ + + + red fruit +
+ + + + orange +
+ + + + orange fruit +
+ + + + banana +
+ + + + yellow fruit +
+ + + + Tight using tabs: +
+ + + + apple +
+ + + + red fruit +
+ + + + orange +
+ + + + orange fruit +
+ + + + banana +
+ + + + yellow fruit +
+ + + + Loose: +
+ + + + apple +
+ + + + red fruit +
+ + + + orange +
+ + + + orange fruit +
+ + + + banana +
+ + + + yellow fruit +
+ + + + Multiple blocks with italics: +
+ + + + apple +
+ + + + red fruit +
+ + + + contains seeds, crisp, pleasant to taste +
+ + + + orange +
+ + + + orange fruit +
+ + + + { orange code block } +
+ + + + orange block quote +
+ + + + Multiple definitions, tight: +
+ + + + apple +
+ + + + red fruit +
+ + + + computer +
+ + + + orange +
+ + + + orange fruit +
+ + + + bank +
+ + + + Multiple definitions, loose: +
+ + + + apple +
+ + + + red fruit +
+ + + + computer +
+ + + + orange +
+ + + + orange fruit +
+ + + + bank +
+ + + + Blank line after term, indented marker, alternate markers: +
+ + + + apple +
+ + + + red fruit +
+ + + + computer +
+ + + + orange +
+ + + + orange fruit +
+ + + + sublist +
+ + + + sublist +
+ + + + HTML Blocks +
+ + + + Simple block on one line: +
+ + + + foo +
+ + + + And nested without indentation: +
+ + + + foo +
+ + + + bar +
+ + + + Interpreted markdown in a table: +
+ + + + <table> +<tr> +<td> +
+ + + + This is + + + emphasized +
+ + + + </td> +<td> +
+ + + + And this is + + + strong +
+ + + + </td> +</tr> +</table> + +<script type="text/javascript">document.write('This *should not* be interpreted as markdown');</script> + +
+ + + + Here’s a simple block: +
+ + + + foo +
+ + + + This should be a code block, though: +
+ + + + <div> + foo +</div> +
+ + + + As should this: +
+ + + + <div>foo</div> +
+ + + + Now, nested: +
+ + + + foo +
+ + + + This should just be an HTML comment: +
+ + + + <!-- Comment --> + +
+ + + + Multiline: +
+ + + + <!-- +Blah +Blah +--> + +<!-- + This is another comment. +--> + +
+ + + + Code block: +
+ + + + <!-- Comment --> +
+ + + + Just plain comment, with trailing spaces on the line: +
+ + + + <!-- foo --> + +
+ + + + Code: +
+ + + + <hr /> +
+ + + + Hr’s: +
+ + + + <hr> + +<hr /> + +<hr /> + +<hr> + +<hr /> + +<hr /> + +<hr class="foo" id="bar" /> + +<hr class="foo" id="bar" /> + +<hr class="foo" id="bar"> + +
+ + + + Inline Markup +
+ + + + This is + + + emphasized + + + , and so + + + is this + + + . +
+ + + + This is + + + strong + + + , and so + + + is this + + + . +
+ + + + An + + + + . +
+ + + + This is strong and em. +
+ + + + So is + + + this + + + word. +
+ + + + This is strong and em. +
+ + + + So is + + + this + + + word. +
+ + + + This is code: + + + > + + + , + + + $ + + + , + + + \ + + + , + + + \$ + + + , + + + <html> + + + . +
+ + + + This is + + + strikeout + + + . +
+ + + + Superscripts: a + + + bc + + + d a + + + hello + + + a + + + hello there + + + . +
+ + + + Subscripts: H + + + 2 + + + O, H + + + 23 + + + O, H + + + many of them + + + O. +
+ + + + These should not be superscripts or subscripts, because of the unescaped spaces: a^b c^d, a~b c~d. +
+ + + + Smart quotes, ellipses, dashes +
+ + + + “ + + + Hello, + + + ” + + + said the spider. + + + “ + + + ‘ + + + Shelob + + + ’ + + + is my name. + + + ” +
+ + + + ‘ + + + A + + + ’ + + + , + + + ‘ + + + B + + + ’ + + + , and + + + ‘ + + + C + + + ’ + + + are letters. +
+ + + + ‘ + + + Oak, + + + ’ + + + + + + ‘ + + + elm, + + + ’ + + + and + + + ‘ + + + beech + + + ’ + + + are names of trees. So is + + + ‘ + + + pine. + + + ’ +
+ + + + ‘ + + + He said, + + + “ + + + I want to go. + + + ” + + + ’ + + + Were you alive in the 70’s? +
+ + + + Here is some quoted + + + ‘ + + + code + + + ’ + + + and a + + + “ + + + + ” + + + . +
+ + + + Some dashes: one—two — three—four — five. +
+ + + + Dashes between numbers: 5–7, 255–66, 1987–1999. +
+ + + + Ellipses…and…and…. +
+ + + + LaTeX +
+ + + + \cite[22-23]{smith.1899} +
+ + + + 2+2=4 +
+ + + + x \in y +
+ + + + \alpha \wedge \omega +
+ + + + 223 +
+ + + + p + + + -Tree +
+ + + + Here’s some display math: + + + \frac{d}{dx}f(x)=\lim_{h\to 0}\frac{f(x+h)-f(x)}{h} +
+ + + + Here’s one that has a line break in it: + + + \alpha + \omega \times x^2 + + + . +
+ + + + These shouldn’t be math: +
+ + + + To get the famous equation, write + + + $e = mc^2$ + + + . +
+ + + + $22,000 is a + + + lot + + + of money. So is $34,000. (It worked if + + + “ + + + lot + + + ” + + + is emphasized.) +
+ + + + Shoes ($20) and socks ($5). +
+ + + + Escaped + + + $ + + + : $73 + + + this should be emphasized + + + 23$. +
+ + + + Here’s a LaTeX table: +
+ + + + \begin{tabular}{|l|l|}\hline +Animal & Number \\ \hline +Dog & 2 \\ +Cat & 1 \\ \hline +\end{tabular} +
+ + + + Special Characters +
+ + + + Here is some unicode: +
+ + + + I hat: Î +
+ + + + o umlaut: ö +
+ + + + section: § +
+ + + + set membership: ∈ +
+ + + + copyright: © +
+ + + + AT&T has an ampersand in their name. +
+ + + + AT&T is another way to write it. +
+ + + + This & that. +
+ + + + 4 < 5. +
+ + + + 6 > 5. +
+ + + + Backslash: \ +
+ + + + Backtick: ` +
+ + + + Asterisk: * +
+ + + + Underscore: _ +
+ + + + Left brace: { +
+ + + + Right brace: } +
+ + + + Left bracket: [ +
+ + + + Right bracket: ] +
+ + + + Left paren: ( +
+ + + + Right paren: ) +
+ + + + Greater-than: > +
+ + + + Hash: # +
+ + + + Period: . +
+ + + + Bang: ! +
+ + + + Plus: + +
+ + + + Minus: - +
+ + + + Links +
+ + + + Explicit +
+ + + + Just a + + + + . +
+ + + + + . +
+ + + + + . +
+ + + + + . +
+ + +
+ + +
+ + +
+ + +
+ + + + + . +
+ + + + Reference +
+ + + + Foo + + + + . +
+ + + + Foo + + + + . +
+ + + + Foo + + + + . +
+ + + + With + + + + . +
+ + + + + by itself should be a link. +
+ + + + Indented + + + + . +
+ + + + Indented + + + + . +
+ + + + Indented + + + + . +
+ + + + This should [not][] be a link. +
+ + + + [not]: /url +
+ + + + Foo + + + + . +
+ + + + Foo + + + + . +
+ + + + With ampersands +
+ + + + Here’s a + + + + . +
+ + + + Here’s a link with an amersand in the link text: + + + + . +
+ + + + Here’s an + + + + . +
+ + + + Here’s an + + + + . +
+ + + + Autolinks +
+ + + + With an ampersand: + +
+ + + + In a list? +
+ + +
+ + + + It should. +
+ + + + An e-mail address: + +
+ + + + Blockquoted: + +
+ + + + Auto-links should not occur here: + + + <http://example.com/> +
+ + + + or here: <http://example.com/> +
+ + + + Images +
+ + + + From + + + “ + + + Voyage dans la Lune + + + ” + + + by Georges Melies (1902): +
+ + + + + + + + + + + + + + + + + + + + $ID/Embedded + + + + + + +
+ + + + Here is a movie + + + + + + + + + + + + + + + + + + + $ID/Embedded + + + + + + + + + icon. +
+ + + + Footnotes +
+ + + + Here is a footnote reference, + + + + + + + + + + + + + + Here is the footnote. It can go anywhere after the footnote reference. It need not be placed at the end of the document. +
+ + + + + and another. + + + + + + + + + + + + + + Here’s the long note. This one contains multiple blocks. +
+ + + + + + + Subsequent blocks are indented to show that they belong to the footnote (as with list items). +
+ + + + { <code> } +
+ + + + + + + If you want, you can indent every line, but you can also be lazy and just indent the first line of each block. +
+ + + + + This should + + + not + + + be a footnote reference, because it contains a space.[^my note] Here is an inline note. + + + + + + + + + + + + + + This is + + + easier + + + to type. Inline notes may contain + + + + and + + + ] + + + verbatim characters, as well as [bracketed text]. +
+ + +
+ + + + Notes can go in quotes. + + + + + + + + + + + + + + In quote. +
+ + +
+ + + + And in list items. + + + + + + + + + + + + + + In list. +
+ + +
+ + + + This paragraph should not be part of the note, as it is not indented. +
+ + + + + + + Black + HyperlinkURLDestination/http://google.com + + + + + + Black + HyperlinkURLDestination/http://example.com/ + + + + + + Black + HyperlinkURLDestination/mailto:nobody@nowhere.net + + + + + + Black + HyperlinkURLDestination/http://example.com/ + + + + + + Black + HyperlinkURLDestination/http://example.com/?foo=1&bar=2 + + + + + + Black + HyperlinkURLDestination//script?foo=1&bar=2 + + + + + + Black + HyperlinkURLDestination//script?foo=1&bar=2 + + + + + + Black + HyperlinkURLDestination/http://att.com/ + + + + + + Black + HyperlinkURLDestination/http://example.com/?foo=1&bar=2 + + + + + + Black + HyperlinkURLDestination//url/ + + + + + + Black + HyperlinkURLDestination//url/ + + + + + + Black + HyperlinkURLDestination//url + + + + + + Black + HyperlinkURLDestination//url + + + + + + Black + HyperlinkURLDestination//url + + + + + + Black + HyperlinkURLDestination//url/ + + + + + + Black + HyperlinkURLDestination//url/ + + + + + + Black + HyperlinkURLDestination//url/ + + + + + + Black + HyperlinkURLDestination//url/ + + + + + + Black + HyperlinkURLDestination//url/ + + + + + + Black + HyperlinkURLDestination/ + + + + + + Black + HyperlinkURLDestination/mailto:nobody@nowhere.net + + + + + + Black + HyperlinkURLDestination//url/with_underscore + + + + + + Black + HyperlinkURLDestination//url/ + + + + + + Black + HyperlinkURLDestination//url/ + + + + + + Black + HyperlinkURLDestination//url/ + + + + + + Black + HyperlinkURLDestination//url/ + + + + + + Black + HyperlinkURLDestination//url/ + + + + + + Black + HyperlinkURLDestination//url/ + + + + + + Black + HyperlinkURLDestination/http://example.com/?foo=1&bar=2 + + + + + + Black + HyperlinkURLDestination//url + + + + + + Black + HyperlinkURLDestination//url + + + -- cgit v1.2.3