git.iko.soy/typeable/pandoc
on master help sign in
Revert changes to hierarchicalizeWithIds.
1ccff33John MacFarlane
src/Text/Pandoc/Shared.hs+5−21
compare with master
unifiedsplit
@@ -523,33 +523,17 @@ hierarchicalizeWithIds (Header level attr@(_,classes,_) title':xs) = do
523 sectionContents' <- hierarchicalizeWithIds sectionContents
523 sectionContents' <- hierarchicalizeWithIds sectionContents
524 rest' <- hierarchicalizeWithIds rest
524 rest' <- hierarchicalizeWithIds rest
525 return $ Sec level newnum attr title' sectionContents' : rest'
525 return $ Sec level newnum attr title' sectionContents' : rest'
526−hierarchicalizeWithIds (Div (dident,dclasses,dkvs)
526+hierarchicalizeWithIds (Div ("refs",classes',kvs')
527− (Header level (hident,hclasses,hkvs) title' : xs):ys)
527+ (Header level (ident,classes,kvs) title' : xs):ys) =
528− | not ("columns" `elem` dclasses)
528+ hierarchicalizeWithIds (Header level (ident,"references":classes,kvs)
529− , not ("column" `elem` dclasses) = do
529+ title' : Div ("refs",classes',kvs') xs : ys)
530− lastnum <- S.get
531− let lastnum' = take level lastnum
532− let newnum = case length lastnum' of
533− x | "unnumbered" `elem` hclasses -> []
534− | x >= level -> init lastnum' ++ [last lastnum' + 1]
535− | otherwise -> lastnum ++
536− replicate (level - length lastnum - 1) 0 ++ [1]
537− unless (null newnum) $ S.put newnum
538− let attr = (hident, dclasses ++ hclasses, dkvs ++ hkvs)
539− sectionContents' <- hierarchicalizeWithIds $
540− if null dident -- ensure we don't lose an id
541− then xs
542− else [Div (dident,[],[]) xs]
543− rest' <- hierarchicalizeWithIds ys
544− return $ Sec level newnum attr title' sectionContents' : rest'
545hierarchicalizeWithIds (x:rest) = do
530hierarchicalizeWithIds (x:rest) = do
546 rest' <- hierarchicalizeWithIds rest
531 rest' <- hierarchicalizeWithIds rest
547 return $ Blk x : rest'
532 return $ Blk x : rest'
548
533
549headerLtEq :: Int -> Block -> Bool
534headerLtEq :: Int -> Block -> Bool
550headerLtEq level (Header l _ _) = l <= level
535headerLtEq level (Header l _ _) = l <= level
551−headerLtEq level (Div ("",classes,[]) (Header l _ _ : _)) =
536+headerLtEq level (Div ("",["references"],[]) (Header l _ _ : _)) = l <= level
552− l <= level && "column" `notElem` classes && "columns" `notElem` classes
553headerLtEq _ _ = False
537headerLtEq _ _ = False
554
538
555-- | Generate a unique identifier from a list of inlines.
539-- | Generate a unique identifier from a list of inlines.
test/command/3057.mddeleted−56
@@ -1,56 +0,0 @@
1−```
2−% pandoc -f markdown -t docbook
3−<div>
4−# one
5−<div>
6−## two
7−</div>
8−</div>
9−^D
10−<section xml:id="one">
11− <title>one</title>
12− <section xml:id="two">
13− <title>two</title>
14− <para>
15− </para>
16− </section>
17−</section>
18−```
19−
20−```
21−% pandoc -f markdown -t docbook
22−<div>
23−# one
24−<div>
25−# two
26−</div>
27−</div>
28−^D
29−<section xml:id="one">
30− <title>one</title>
31− <section xml:id="two">
32− <title>two</title>
33− <para>
34− </para>
35− </section>
36−</section>
37−```
38−
39−```
40−% pandoc -f markdown -t docbook
41−# one
42−<div>
43−# two
44−</div>
45−^D
46−<section xml:id="one">
47− <title>one</title>
48− <para>
49− </para>
50−</section>
51−<section xml:id="two">
52− <title>two</title>
53− <para>
54− </para>
55−</section>
56−```