mirror of
https://github.com/ilyakooo0/hakyll.git
synced 2024-10-06 01:07:21 +03:00
Move hakyll-init to https://github.com/jaspervdj/hakyll-init
This commit is contained in:
parent
d0ebefba0e
commit
e46adb860c
14
hakyll.cabal
14
hakyll.cabal
@ -308,17 +308,3 @@ Test-suite hakyll-tests
|
||||
http-types >= 0.7 && < 0.10
|
||||
Cpp-options:
|
||||
-DCHECK_EXTERNAL
|
||||
|
||||
Executable hakyll-init
|
||||
Ghc-options: -Wall
|
||||
Hs-source-dirs: src
|
||||
Main-is: Hakyll/Init.hs
|
||||
|
||||
Build-depends:
|
||||
base >= 4 && < 5,
|
||||
directory >= 1.0 && < 1.4,
|
||||
filepath >= 1.0 && < 1.5
|
||||
|
||||
Other-modules:
|
||||
Hakyll.Core.Util.File
|
||||
Paths_hakyll
|
||||
|
@ -1,96 +0,0 @@
|
||||
--------------------------------------------------------------------------------
|
||||
module Main
|
||||
( main
|
||||
) where
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
import Control.Arrow (first)
|
||||
import Control.Monad (forM_)
|
||||
import Data.Char (isAlphaNum, isNumber)
|
||||
import Data.List (foldl')
|
||||
import Data.List (intercalate, isPrefixOf)
|
||||
import Data.Version (Version (..))
|
||||
import System.Directory (canonicalizePath, copyFile)
|
||||
import System.Environment (getArgs, getProgName)
|
||||
import System.Exit (exitFailure)
|
||||
import System.FilePath (splitDirectories, (</>))
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
import Hakyll.Core.Util.File
|
||||
import Paths_hakyll
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
main :: IO ()
|
||||
main = do
|
||||
progName <- getProgName
|
||||
args <- getArgs
|
||||
srcDir <- getDataFileName "example"
|
||||
files <- getRecursiveContents (const $ return False) srcDir
|
||||
|
||||
case args of
|
||||
-- When the argument begins with hyphens, it's more likely that the user
|
||||
-- intends to attempt some arguments like ("--help", "-h", "--version", etc.)
|
||||
-- rather than create directory with that name.
|
||||
-- If dstDir begins with hyphens, the guard will prevent it from creating
|
||||
-- directory with that name so we can fall to the second alternative
|
||||
-- which prints a usage info for user.
|
||||
[dstDir] | not ("-" `isPrefixOf` dstDir) -> do
|
||||
forM_ files $ \file -> do
|
||||
let dst = dstDir </> file
|
||||
src = srcDir </> file
|
||||
putStrLn $ "Creating " ++ dst
|
||||
makeDirectories dst
|
||||
copyFile src dst
|
||||
|
||||
name <- makeName dstDir
|
||||
let cabalPath = dstDir </> name ++ ".cabal"
|
||||
putStrLn $ "Creating " ++ cabalPath
|
||||
createCabal cabalPath name
|
||||
_ -> do
|
||||
putStrLn $ "Usage: " ++ progName ++ " <directory>"
|
||||
exitFailure
|
||||
|
||||
-- | Figure out a good cabal package name from the given (existing) directory
|
||||
-- name
|
||||
makeName :: FilePath -> IO String
|
||||
makeName dstDir = do
|
||||
canonical <- canonicalizePath dstDir
|
||||
return $ case safeLast (splitDirectories canonical) of
|
||||
Nothing -> fallbackName
|
||||
Just "/" -> fallbackName
|
||||
Just x -> repair (fallbackName ++) id x
|
||||
where
|
||||
-- Package name repair code comes from
|
||||
-- cabal-install.Distribution.Client.Init.Heuristics
|
||||
repair invalid valid x = case dropWhile (not . isAlphaNum) x of
|
||||
"" -> repairComponent ""
|
||||
x' -> let (c, r) = first repairComponent $ break (not . isAlphaNum) x'
|
||||
in c ++ repairRest r
|
||||
where repairComponent c | all isNumber c = invalid c
|
||||
| otherwise = valid c
|
||||
repairRest = repair id ('-' :)
|
||||
fallbackName = "site"
|
||||
|
||||
safeLast = foldl' (\_ x -> Just x) Nothing
|
||||
|
||||
createCabal :: FilePath -> String -> IO ()
|
||||
createCabal path name = do
|
||||
writeFile path $ unlines [
|
||||
"name: " ++ name
|
||||
, "version: 0.1.0.0"
|
||||
, "build-type: Simple"
|
||||
, "cabal-version: >= 1.10"
|
||||
, ""
|
||||
, "executable site"
|
||||
, " main-is: site.hs"
|
||||
, " build-depends: base == 4.*"
|
||||
, " , hakyll == " ++ version' ++ ".*"
|
||||
, " ghc-options: -threaded"
|
||||
, " default-language: Haskell2010"
|
||||
]
|
||||
where
|
||||
-- Major hakyll version
|
||||
version' = intercalate "." . take 2 . map show $ versionBranch version
|
Loading…
Reference in New Issue
Block a user