mirror of
https://github.com/simonmichael/hledger.git
synced 2024-09-20 02:37:12 +03:00
site: copy instead of symlinking source files so hakyll preview works
This commit is contained in:
parent
50dc810013
commit
4123d458c8
@ -12,7 +12,10 @@ import Text.Pandoc.Options
|
||||
import Text.Printf
|
||||
|
||||
main = do
|
||||
-- preview doesn't detect changes in symlinked files
|
||||
symlinkPagesFromParentDir
|
||||
-- copyPagesFromParentDir
|
||||
|
||||
symlinkProfsDir
|
||||
hakyll $ do
|
||||
match ("images/*" .||. "js/**" .||. "robots.txt") $ do
|
||||
@ -42,8 +45,12 @@ main = do
|
||||
>>= relativizeUrls
|
||||
|
||||
symlinkPagesFromParentDir = do
|
||||
filter (".md" `isSuffixOf`) `fmap` getDirectoryContents ".."
|
||||
>>= mapM_ (\f -> system $ printf "[ -f %s ] || ln -s ../%s" f f)
|
||||
|
||||
copyPagesFromParentDir = do
|
||||
fs <- filter (".md" `isSuffixOf`) `fmap` getDirectoryContents ".."
|
||||
forM_ fs $ \f -> system $ printf "[ -f %s ] || ln -s ../%s" f f
|
||||
forM_ fs $ \f -> system $ printf "cp ../%s ." f
|
||||
|
||||
symlinkProfsDir = ensureSiteDir >> system "ln -sf ../../profs _site/profs"
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user