~yoctocell/yoctocell.xyz

ref: 10a379eef2eba3370bcd35bab05a15d483f90d11 yoctocell.xyz/site.hs -rw-r--r-- 5.2 KiB
10a379eeXinglu Chen posts: Use fill-mode 9 months ago
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
--------------------------------------------------------------------------------
{-# LANGUAGE OverloadedStrings #-}
import           Data.Char             (toLower, toUpper)
import Data.Semigroup ((<>))
import           Data.List             (isPrefixOf)
import           Data.List.Split       (splitOn)
import           System.FilePath.Posix (joinPath, replaceExtension,
                                        splitDirectories, takeDirectory,
                                        splitPath,
                                        takeFileName, (</>))

import           Hakyll



--------------------------------------------------------------------------------
config :: Configuration
config = defaultConfiguration { destinationDirectory = "public" }

feedConfiguration :: FeedConfiguration
feedConfiguration = FeedConfiguration { feedTitle = "yoctocell's blog"
                                      , feedDescription = "Blog posts by yoctocell"
                                      , feedAuthorName = "yoctocell"
                                      , feedAuthorEmail = "public@yoctocell.xyz"
                                      , feedRoot = "https://yoctocell.xyz"
                                      }
  

main :: IO ()
main = hakyllWith config $ do
    match "src/media/*" $ do
        route   srcRoute
        compile copyFileCompiler

    match "src/css/*" $ do
        route   srcRoute
        compile compressCssCompiler

    match (fromList ["src/about.org", "src/contact.org"]) $ do
        route   $ setExtension' "html"
        compile $ pandocCompiler
            >>= loadAndApplyTemplate "src/templates/default.html" defaultContext
            >>= relativizeUrls

    match "src/posts/*.org" $ do
      route tempRoute
      compile $ getResourceString >>= orgCompiler

    create ["archive.html"] $ do
        route idRoute
        compile $ do
            posts <- recentFirst =<< loadAll "_temp/src/posts/*"
            let archiveCtx =
                    listField "posts" postCtx (return posts) `mappend`
                    constField "title" "Archives"            `mappend`
                    defaultContext

            makeItem ""
                >>= loadAndApplyTemplate "src/templates/archive.html" archiveCtx
                >>= loadAndApplyTemplate "src/templates/default.html" archiveCtx
                >>= relativizeUrls

    match "src/index.org" $ do
      route tempRoute
      compile $ getResourceString >>= orgCompiler

    match "_temp/src/index.org" $ do
        route $ cleanRouteFromTemp
        compile $ do
            posts <- recentFirst =<< loadAll "_temp/src/posts/*"
            let indexCtx =
                    listField "posts" postCtx (return posts) `mappend`
                    defaultContext

            pandocCompiler
                >>= applyAsTemplate indexCtx
                >>= loadAndApplyTemplate "src/templates/default.html" indexCtx
                >>= relativizeUrls

    match blogPattern $ do
        route cleanRouteFromTemp
        compile $ do
            pandocCompiler
            >>= saveSnapshot "content"
            >>= loadAndApplyTemplate "src/templates/post.html"    postCtx
            >>= loadAndApplyTemplate "src/templates/default.html" postCtx
            >>= relativizeUrls

    create ["rss.xml"] $ do
      route idRoute
      compile $ do
        posts <- fmap (take 10) . recentFirst =<<
              loadAllSnapshots "_temp/src/posts/*.org" "content"
        renderRss feedConfiguration feedCtx posts

    match "src/templates/*" $ compile templateBodyCompiler


--------------------------------------------------------------------------------
-- | Contexts
postCtx :: Context String
postCtx =
    dateField "date" "%Y-%m-%d" `mappend`
    modificationTimeField "modified" "%Y-%m-%d" `mappend`
    defaultContext

feedCtx :: Context String
feedCtx = postCtx <> bodyField "description"

-- | From org get metadatas.
orgCompiler :: Item String -> Compiler (Item String)
orgCompiler = pure . fmap (\s -> (metadatasToStr . orgMetadatas) s ++ s)

orgMetadatas :: String -> [String]
orgMetadatas = map (format . lower . clean) . takeWhile (/= "") . lines
  where
    clean = concat . splitOn "#+"
    lower s = (map toLower . takeWhile (/= ':')) s ++ dropWhile (/= ':') s
    format xs
        | -- drop weekday str. 2018-05-03 Thu -> 2018-05-03
          "date" `isPrefixOf` xs
        = take 16 . concat . splitOn ">" . concat . splitOn "<" $ xs
        | otherwise
        = xs

metadatasToStr :: [String] -> String
metadatasToStr = ("----------\n" ++) . (++ "----------\n") . unlines

-- | Custom Routes
-- | srcRoute "src/index.org" == "public/index.org"
srcRoute :: Routes
srcRoute = customRoute srcRoute'
  where
    srcRoute' i = joinPath $ tail $ (splitPath $ toFilePath i)

setExtension' :: String -> Routes
setExtension' extension = customRoute $
    (`replaceExtension` extension) . joinPath . tail . splitPath . toFilePath

-- | Temp Route
tempRoute :: Routes
tempRoute = customRoute tempRoute'
  where
    tempRoute' i = ".." </> "_temp" </> toFilePath i

cleanRouteFromTemp :: Routes
cleanRouteFromTemp = customRoute createIndexRoute
  where
    createIndexRoute ident =
      joinPath . tail . tail . splitDirectories . (flip replaceExtension "html") $ toFilePath ident

blogPattern :: Pattern
blogPattern =
    "_temp/src/posts/*.org"