シーケンス
Sequence
Run a sequence of functions on in-memory representations of files.
Build static websites with ease, without conforming to a specific structure.
import Shikensu
import Shikensu.Contrib (clone, copyPropsToMetadata, permalink, renameExt, renderContent)
import Shikensu.Contrib.IO (read, write)
import Data.ByteString (ByteString)
import Flow
import Prelude hiding (read)
import qualified Data.Text.Encoding as Text (decodeUtf8, encodeUtf8)
main :: IO Dictionary
main =
-- This IO operation will read the files matching the glob pattern `src/**/*.md`,
-- transform them (see the `flow` function) and then write them to the `build` directory.
dictionary_io
dictionary_io :: IO Dictionary
dictionary_io =
Shikensu.listRelative ["src/**/*.md"] "./"
>>= read
>>= flow
>>= write "./build"
flow :: Dictionary -> IO Dictionary
flow =
renameExt ".md" ".html"
.> permalink "index"
.> clone "index.html" "200.html"
.> copyPropsToMetadata
.> renderContent markdownRenderer
.> return
markdownRenderer :: Definition -> Maybe ByteString
markdownRenderer def =
content def
|> fmap Text.decodeUtf8
|> fmap Markdown.render
|> fmap Text.encodeUtf8
This lists all the markdown files in the ./src
directory
and then does the following in this exact order:
- Change the extension of each matched file to
.html
. - Change the path of each matched file to
%matched_path/%file_basename/index.%file_extension
. - Make an in-memory copy of the file that has the
index.html
path. - Copy the information of each definition (aka. file) to its metadata "object" (so we can use that information in our content renderer).
- Map the
content
property of each definition (in this case we are rendering markdown). - {post-flow} Write to the
./build
directory.
Because this allows me to easily define a workflow for building a static website, and more specifically:
- Have a clear overview of what's happening.
- Do a bunch of actions in memory and then write it to disk in one go.
- Have a list of information about the other files in the project which can then be shared with, for example, templates.