diff options
| -rw-r--r-- | src/WWWStaticusPlugins.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/WWWStaticusPlugins.hs b/src/WWWStaticusPlugins.hs index ff1635c..2d9c8d3 100644 --- a/src/WWWStaticusPlugins.hs +++ b/src/WWWStaticusPlugins.hs @@ -44,7 +44,7 @@ import qualified Data.ByteString.Lazy.Char8 as Char8 -- * links checker -- * multiple templates -- * contact form (via nginx log?) --- * autotranslate +-- * multilang / autotranslate -- |little helper to get values out of a map easily -- error if not found. @@ -95,7 +95,7 @@ staticusPluginInit = StaticusPlugin "init" id runIO t <- getDirList (par "dir_in" m) let menutop= concat $ map (\x->"<li class=\"nav-item"++(if length brc>=1 && brc!!0==x then " active" else "")++"\"><a class=\"nav-link\" href=\""++htmlroot++"/"++x++"/index.html\">"++x++"</a></li>") (menu t) - let submenu= if isHome then "" else concat $ map (\x->"<li><a href=\""++htmlroot_dir++"/"++x++"/index.html\">"++cln x++"</a></li>") (menu c) + let submenu= concat $ map (\x->"<li><a href=\""++htmlroot_dir++"/"++x++"/index.html\">"++cln x++"</a></li>") (menu c) let breadcrumbs=concat $ map (\(x,d)->"<li class=\"breadcrumb-item"++(if d==0 then " active" else "")++"\">"++(if d==0 then "" else "<a href=."++concat(take d (repeat "/.."))++"/index.html>")++cln x++(if d==0 then "" else "</a>")++"</li>") (zip ("home":brc) [brcl,brcl-1..]) mdex <- doesFileExist $ par "path" m++"/"++"index.md" |