shake: cleanups

[ci skip]
This commit is contained in:
Simon Michael 2019-01-19 13:14:33 -08:00
parent 28e76dd80e
commit 1077ccf70c

View File

@ -51,26 +51,24 @@ import "time" Data.Time
usage = unlines usage = unlines
["Usage:" ["Usage:"
,"./Shake.hs # compile this script" ,"./Shake.hs # compile this script"
,"./Shake # show commands" ,"./Shake [help] # show commands"
,"./Shake manuals # generate the txt/man/info manuals" ,"./Shake all # generate everything"
,"./Shake manuals # generate the plaintext/man/info manuals"
,"./Shake website # generate the html manuals and website" ,"./Shake website # generate the html manuals and website"
-- ,"./Shake manpages # generate nroff files for man" -- ,"./Shake manpages # generate nroff files for man"
-- ,"./Shake txtmanpages # generate text man pages for embedding" -- ,"./Shake txtmanpages # generate text man pages for embedding"
-- ,"./Shake infomanpages # generate info files for info" -- ,"./Shake infomanpages # generate info files for info"
-- ,"./Shake webmanpages # generate individual web man pages as markdown" -- ,"./Shake webmanpages # generate individual web man pages as markdown"
-- ,"./Shake webmanall # generate all-in-one web manual as markdown" -- ,"./Shake webmanall # generate all-in-one web manual as markdown"
,"./Shake site/doc/VER/.snapshot # generate and save a versioned web site snapshot" ,"./Shake site/doc/VERSION/.snapshot # generate a versioned snapshot of the web manuals"
,"./Shake all # generate everything"
,"./Shake clean # clean generated files" ,"./Shake clean # clean generated files"
,"./Shake Clean # clean harder" ,"./Shake Clean # clean harder"
,"./Shake --help # show options, eg --color" ,"./Shake --help # show detailed Shake options, eg --color"
] ]
pandoc = "pandoc" -- assume pandoc from system or user install pandoc = "pandoc"
makeinfo = "makeinfo" makeinfo = "makeinfo"
-- nroff = "nroff"
groff = "groff" groff = "groff"
dropDirectory2 = dropDirectory1 . dropDirectory1
-- The pandoc markdown variant used in our docs: -- The pandoc markdown variant used in our docs:
mdfmt = "markdown-tex_math_dollars" mdfmt = "markdown-tex_math_dollars"
@ -151,7 +149,14 @@ main = do
, mPage <- manpageNames , mPage <- manpageNames
] ]
++ [ mPage <.> "html" ++ [ mPage <.> "html"
| mPage <- [ "contributors" , "download" , "ledgertips" , "index" , "intro" , "release-notes" ] | mPage <- [
"contributors"
, "download"
, "ledgertips"
, "index"
, "intro"
, "release-notes"
]
] ]
++ [ prefix </> "manual" <.> "html" ++ [ prefix </> "manual" <.> "html"
| prefix <- "" : "doc/0.27" : [ "doc" </> v | v <- docversions ] | prefix <- "" : "doc/0.27" : [ "doc" </> v | v <- docversions ]
@ -292,7 +297,9 @@ main = do
phony "website-copy" $ do phony "website-copy" $ do
orig_files <- getDirectoryFiles "site" (map ("//*" <.>) webcopyfileexts) orig_files <- getDirectoryFiles "site" (map ("//*" <.>) webcopyfileexts)
need [ "site/_site" </> file need [ "site/_site" </> file
| file <- "files/README" : orig_files | file <-
"files/README" :
orig_files
, not ("_site//*" ?== file) , not ("_site//*" ?== file)
] ]
@ -332,3 +339,7 @@ main = do
removeFilesAfter "site" ["*.o","*.p_o","*.hi"] removeFilesAfter "site" ["*.o","*.p_o","*.hi"]
putNormal "Cleaning shake build files" putNormal "Cleaning shake build files"
removeFilesAfter ".shake" ["//*"] removeFilesAfter ".shake" ["//*"]
dropDirectory2 = dropDirectory1 . dropDirectory1