tools: shake file requires pandoc, filters use current snapshot
This commit is contained in:
		
							parent
							
								
									9439d1a611
								
							
						
					
					
						commit
						099870e96a
					
				
							
								
								
									
										14
									
								
								Shake.hs
									
									
									
									
									
								
							
							
						
						
									
										14
									
								
								Shake.hs
									
									
									
									
									
								
							| @ -1,5 +1,5 @@ | |||||||
| #!/usr/bin/env stack | #!/usr/bin/env stack | ||||||
| {- stack runghc | {- stack runghc --verbosity info | ||||||
|    --package base-prelude |    --package base-prelude | ||||||
|    --package directory |    --package directory | ||||||
|    --package extra |    --package extra | ||||||
| @ -7,6 +7,7 @@ | |||||||
|    --package safe |    --package safe | ||||||
|    --package shake |    --package shake | ||||||
|    --package time |    --package time | ||||||
|  |    --package pandoc | ||||||
| -} | -} | ||||||
| {- | {- | ||||||
| Usage: see below. | Usage: see below. | ||||||
| @ -49,6 +50,7 @@ usage = [i|Usage: | |||||||
| Commands: | Commands: | ||||||
|  compile |  compile | ||||||
|  manpages |  manpages | ||||||
|  |  webmanual | ||||||
| |] | |] | ||||||
| 
 | 
 | ||||||
| manpages :: [String] | manpages :: [String] | ||||||
| @ -72,10 +74,10 @@ buildDir :: FilePath | |||||||
| buildDir = ".build" | buildDir = ".build" | ||||||
| 
 | 
 | ||||||
| pandocExe :: String | pandocExe :: String | ||||||
| pandocExe = "pandoc" | pandocExe = "stack exec -- pandoc" -- use the pandoc required above | ||||||
| 
 | 
 | ||||||
| pandocFiltersResolver :: String | pandocFiltersResolver :: String | ||||||
| pandocFiltersResolver = "--resolver lts-5.11" | pandocFiltersResolver = "" | ||||||
| 
 | 
 | ||||||
| main :: IO () | main :: IO () | ||||||
| main = do | main = do | ||||||
| @ -133,7 +135,7 @@ main = do | |||||||
|         md = manpageDir p </> p <.> "md" |         md = manpageDir p </> p <.> "md" | ||||||
|         tmpl = "doc/manpage.html" |         tmpl = "doc/manpage.html" | ||||||
|       need $ md : tmpl : pandocFilters |       need $ md : tmpl : pandocFilters | ||||||
|       cmd "pandoc" md "--to markdown" |       cmd pandocExe md "--to markdown" | ||||||
|         -- XXX assume this is compiled |         -- XXX assume this is compiled | ||||||
|         "--filter tools/pandocRemoveManonlyBlocks" |         "--filter tools/pandocRemoveManonlyBlocks" | ||||||
|         "-o" out |         "-o" out | ||||||
| @ -157,11 +159,11 @@ main = do | |||||||
|     --     md = manpageDir p </> p <.> "md" |     --     md = manpageDir p </> p <.> "md" | ||||||
|     --     tmpl = "doc/manpage.html" |     --     tmpl = "doc/manpage.html" | ||||||
|     --   need [md, tmpl] |     --   need [md, tmpl] | ||||||
|     --   cmd "pandoc" md "--to html --filter tools/pandocRemoveManpageBlocks.hs --template" tmpl "-o" out |     --   cmd pandocExe md "--to html --filter tools/pandocRemoveManpageBlocks.hs --template" tmpl "-o" out | ||||||
| 
 | 
 | ||||||
|     -- "site/manual2.html" %> \out -> do |     -- "site/manual2.html" %> \out -> do | ||||||
|     --   need ["site/manual2.md"] |     --   need ["site/manual2.md"] | ||||||
|     --   cmd "pandoc site/manual2.md -o" out |     --   cmd pandocExe "site/manual2.md -o" out | ||||||
| 
 | 
 | ||||||
|     -- "_build//*.o" %> \out -> do |     -- "_build//*.o" %> \out -> do | ||||||
|     --     let c = dropDirectory1 $ out -<.> "c" |     --     let c = dropDirectory1 $ out -<.> "c" | ||||||
|  | |||||||
| @ -1,5 +1,5 @@ | |||||||
| #!/usr/bin/env stack | #!/usr/bin/env stack | ||||||
| {- stack runghc --verbosity info --resolver lts-5.11 --package pandoc-types-1.16.1 -} | {- stack runghc --verbosity info --package pandoc-types-1.16.1 -} | ||||||
| 
 | 
 | ||||||
| import Text.Pandoc.JSON | import Text.Pandoc.JSON | ||||||
| import Text.Pandoc.Walk | import Text.Pandoc.Walk | ||||||
|  | |||||||
| @ -1,5 +1,5 @@ | |||||||
| #!/usr/bin/env stack | #!/usr/bin/env stack | ||||||
| {- stack runghc --verbosity info --resolver lts-5.11 --package pandoc-types-1.16.1 -} | {- stack runghc --verbosity info --package pandoc-types-1.16.1 -} | ||||||
| 
 | 
 | ||||||
| import Text.Pandoc.JSON | import Text.Pandoc.JSON | ||||||
| 
 | 
 | ||||||
|  | |||||||
| @ -1,5 +1,5 @@ | |||||||
| #!/usr/bin/env stack | #!/usr/bin/env stack | ||||||
| {- stack runghc --verbosity info --resolver lts-5.11 --package pandoc-types-1.16.1 -} | {- stack runghc --verbosity info --package pandoc-types-1.16.1 -} | ||||||
| 
 | 
 | ||||||
| import Text.Pandoc.JSON | import Text.Pandoc.JSON | ||||||
| 
 | 
 | ||||||
|  | |||||||
| @ -1,5 +1,5 @@ | |||||||
| #!/usr/bin/env stack | #!/usr/bin/env stack | ||||||
| {- stack runghc --verbosity info --resolver lts-5.11 --package pandoc-types-1.16.1 -} | {- stack runghc --verbosity info --package pandoc-types-1.16.1 -} | ||||||
| 
 | 
 | ||||||
| import Text.Pandoc.JSON | import Text.Pandoc.JSON | ||||||
| 
 | 
 | ||||||
|  | |||||||
| @ -1,5 +1,5 @@ | |||||||
| #!/usr/bin/env stack | #!/usr/bin/env stack | ||||||
| {- stack runghc --verbosity info --resolver lts-5.11 --package pandoc-types-1.16.1 -} | {- stack runghc --verbosity info --package pandoc-types-1.16.1 -} | ||||||
| 
 | 
 | ||||||
| import Text.Pandoc.Builder | import Text.Pandoc.Builder | ||||||
| import Text.Pandoc.JSON | import Text.Pandoc.JSON | ||||||
|  | |||||||
| @ -1,5 +1,5 @@ | |||||||
| #!/usr/bin/env stack | #!/usr/bin/env stack | ||||||
| {- stack runghc --verbosity info --resolver lts-5.11 --package pandoc-types-1.16.1 -} | {- stack runghc --verbosity info --package pandoc-types-1.16.1 -} | ||||||
| 
 | 
 | ||||||
| import Text.Pandoc.JSON | import Text.Pandoc.JSON | ||||||
| 
 | 
 | ||||||
|  | |||||||
| @ -1,5 +1,5 @@ | |||||||
| #!/usr/bin/env stack | #!/usr/bin/env stack | ||||||
| {- stack runghc --verbosity info --resolver lts-5.11 --package pandoc-types-1.16.1 -} | {- stack runghc --verbosity info --package pandoc-types-1.16.1 -} | ||||||
| 
 | 
 | ||||||
| import Text.Pandoc.Builder | import Text.Pandoc.Builder | ||||||
| import Text.Pandoc.JSON | import Text.Pandoc.JSON | ||||||
|  | |||||||
		Loading…
	
		Reference in New Issue
	
	Block a user