diff options
| -rw-r--r-- | LICENSE | 2 | ||||
| -rw-r--r-- | Makefile | 4 | ||||
| -rw-r--r-- | src/WWWStaticus.hs | 4 | ||||
| -rw-r--r-- | src/WWWStaticusPlugins.hs | 4 |
4 files changed, 3 insertions, 11 deletions
@@ -1,4 +1,4 @@ -Copyright Michal Idziorek <m.i@gmx.at> (c) 2018 +Copyright Michal Idziorek <m.i@gmx.at> (c) 2018.,2019 All rights reserved. @@ -9,7 +9,3 @@ clean: -rm ${OUTDIR}/* -r showdoc: stack haddock -# firefox /home/miguel/git/staticus_www/staticus/.stack-work/install/x86_64-linux/lts-13.0/8.6.3/doc/index.html - -#hack to get css, copy this to a stanalone css file. file.md needs to have some source-code for pandoc -#stack exec pandoc -- -s file.md --highlight-style pygments diff --git a/src/WWWStaticus.hs b/src/WWWStaticus.hs index cd9e454..2144fe0 100644 --- a/src/WWWStaticus.hs +++ b/src/WWWStaticus.hs @@ -1,7 +1,7 @@ {-| WWWStaticus is a minimalistic yet modular static website generator first coded in April 2018 by Michal Idziorek <m.i@gmx.at>. - Last Update: Jan 29, 2019 + Last Update: Feb, 2019 -} module WWWStaticus @@ -56,7 +56,7 @@ trvDirTree fp f = unfoldTreeM unf fp >>= sequence_ -- |get list of subdirectories getDirList :: FilePath -> IO [FilePath] -getDirList d = filter (not.isPrefixOf ".") <$> map ((d++"/")++) <$> listDirectory d +getDirList d = map ((d++"/")++) <$> filter (not.isPrefixOf ".") <$> listDirectory d >>= filterM doesDirectoryExist -- |run plugins in a single directory 'path'. diff --git a/src/WWWStaticusPlugins.hs b/src/WWWStaticusPlugins.hs index a569ca9..ccf82bc 100644 --- a/src/WWWStaticusPlugins.hs +++ b/src/WWWStaticusPlugins.hs @@ -55,12 +55,10 @@ staticusPluginsDefault=[ staticusPluginInit ] -- |Creates target directory and sets basic params in map: --- outdir staticusPluginInit::StaticusPlugin staticusPluginInit = StaticusPlugin "init" id runIO where runIO m = do print $ par "path" m - print $ outdir when (not isHome) (createDirectory outdir) c <- getDirList (par "path" m) t <- getDirList (par "dir_in" m) @@ -68,7 +66,6 @@ staticusPluginInit = StaticusPlugin "init" id runIO let submenu= if isHome then "" else concat $ map (\x->"<li><a href=\""++outdir++"/"++x++"/index.html\">"++x++"</a></li>") (menu c) let breadcrumbs=concat $ map (\x->x) brc let breadcrumbs="" - --TODO: check top dirs until file found! add ./config md <- readFile $ par "path" m++"/"++"index.md" tmpl <- readFile $ par "dir_in" m++"/"++"template.html" return $ M.union (M.fromList [ ("outdir",outdir) @@ -119,4 +116,3 @@ staticusPluginWrite = StaticusPlugin "writer" id runIO where runIO m = do writeFile ((par "outdir" m)++"/index.html") (par "final" m) return m - |