Commit 996780a4 authored by Henrik Tramberend's avatar Henrik Tramberend
Browse files

Add icons to index lists and upgrade to fa 5.0.9

parent 310ba66d
......@@ -72,9 +72,10 @@ main = do
need ["support"]
everythingA <++> indexA >>= need
--
phony "pdf" $ pagesPdfA <++> handoutsPdfA <++> indexA >>= need
phony "pdf" $
decksPdfA <++> pagesPdfA <++> handoutsPdfA <++> indexA >>= need
--
-- phony "pdf-decks" $ decksPdfA <++> indexA >>= need
phony "pdf-decks" $ decksPdfA <++> indexA >>= need
--
phony "watch" $ do
need ["html"]
......@@ -135,11 +136,26 @@ main = do
markdownToHtmlPage src out
--
indexSource <.> "generated" %> \out -> do
deckSources <- deckSourcesA
pageSources <- pageSourcesA
decks <- decksA
decksPdf <- decksPdfA
pagesPdf <- pagesPdfA
handouts <- handoutsA
handoutsPdf <- handoutsPdfA
pages <- pagesA
let deckData =
transpose [deckSources, decks, handouts, decksPdf, handoutsPdf]
let pageData = transpose [pageSources, pages, pagesPdf]
need $ decks ++ handouts ++ pages
writeIndex out (takeDirectory index) decks handouts pages
writeIndexLists
out
(takeDirectory index)
(zip decks decksPdf)
(zip handouts handoutsPdf)
(zip pages pagesPdf)
-- writeIndexTable out (takeDirectory index) deckData pageData
-- writeIndex out (takeDirectory index) decks handouts pages
--
priority 2 $
"//*.dot.svg" %> \out -> do
......
This source diff could not be displayed because it is too large. You can view the blob instead.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment