git.iko.soy/typeable/pandoc
on master help sign in
Docbook writer: support images as figures.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1897 788f1e2b-df1e-0410-8736-df70ead52e1b

commit16e5b15cae3c96c185c6be64a5f7256e402067df authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> dateWed 17 Mar 2010, 06:53 (17 years ago) parent1a09a9d
2 files changed+14−9
compare with master
unifiedsplit
src/Text/Pandoc/Writers/Docbook.hs+8 tests/writer.docbook+6−9
src/Text/Pandoc/Writers/Docbook.hs+8
@@ -124,6 +124,14 @@ blockToDocbook :: WriterOptions -> Block -> Doc
124124blockToDocbook _ Null = empty
125125blockToDocbook _ (Header _ _) = empty -- should not occur after hierarchicalize
126126blockToDocbook opts (Plain lst) = wrap opts lst
127+blockToDocbook opts (Para [Image txt (src,_)]) =
128+ let capt = inlinesToDocbook opts txt
129+ in inTagsIndented "figure" $
130+ inTagsSimple "title" capt $$
131+ (inTagsIndented "mediaobject" $
132+ (inTagsIndented "imageobject"
133+ (selfClosingTag "imagedata" [("fileref",src)])) $$
134+ inTagsSimple "textobject" (inTagsSimple "phrase" capt))
127135blockToDocbook opts (Para lst) = inTagsIndented "para" $ wrap opts lst
128136blockToDocbook opts (BlockQuote blocks) =
129137 inTagsIndented "blockquote" $ blocksToDocbook opts blocks
tests/writer.docbook+6−9
@@ -1377,18 +1377,15 @@ or here: &lt;http://example.com/&gt;
13771377 <para>
13781378 From <quote>Voyage dans la Lune</quote> by Georges Melies (1902):
13791379 </para>
1380− <para>
1381− <inlinemediaobject>
1380+ <figure>
1381+ <title>lalune</title>
1382+ <mediaobject>
13821383 <imageobject>
1383− <objectinfo>
1384− <title>
1385− Voyage dans la Lune
1386− </title>
1387− </objectinfo>
13881384 <imagedata fileref="lalune.jpg" />
13891385 </imageobject>
1390− </inlinemediaobject>
1391− </para>
1386+ <textobject><phrase>lalune</phrase></textobject>
1387+ </mediaobject>
1388+ </figure>
13921389 <para>
13931390 Here is a movie
13941391 <inlinemediaobject>