diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-02-27 05:11:15 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-02-27 05:11:15 +0100 |
| commit | 9d7a2469219b268e8ca244e0cf6d071b16fa2838 (patch) | |
| tree | ddb778d36ccf8a253400e1c1d1912d1beea3eeab | |
| parent | Major work on Handlingar. (diff) | |
| download | vimwiki-scripts-9d7a2469219b268e8ca244e0cf6d071b16fa2838.tar.gz vimwiki-scripts-9d7a2469219b268e8ca244e0cf6d071b16fa2838.tar.xz | |
Order appendixes.
| -rw-r--r-- | hs/src/Handlingar.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/hs/src/Handlingar.hs b/hs/src/Handlingar.hs index 929ed4a..a878da3 100644 --- a/hs/src/Handlingar.hs +++ b/hs/src/Handlingar.hs @@ -130,7 +130,7 @@ main = do tex <- runIOorExplode $ do texTemplate <- compileDefaultTemplate "latex" (Pandoc meta bs, appendices) <- buildPrimary readVimwiki (pack heading) text - let apx = appendices >>= (\(is, a, b) -> [Header 1 ("bilaga:" <> a, [], []) is, Plain [Str b]]) + let apx = reverse appendices >>= (\(is, a, b) -> [Header 1 ("bilaga:" <> a, [], []) is, Plain [Str b]]) let trail = [ RawBlock (Format "latex") "\\appendix" ] <> apx let content = Pandoc meta $ bs <> trail let opts = [ ("boxlinks", toVal True) |