shake: cleanups
[ci skip]
This commit is contained in:
		
							parent
							
								
									28e76dd80e
								
							
						
					
					
						commit
						1077ccf70c
					
				
							
								
								
									
										33
									
								
								Shake.hs
									
									
									
									
									
								
							
							
						
						
									
										33
									
								
								Shake.hs
									
									
									
									
									
								
							@ -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
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
				
			|||||||
		Loading…
	
		Reference in New Issue
	
	Block a user