-
-
-Haskell, por ejemplo:
-
-```haskell
-toSlug :: T.Text -> T.Text
-toSlug =
- T.intercalate (T.singleton '-') . T.words . T.toLower . clean
-```
diff --git a/src/posts/2020-09-22-ni-hao.md b/src/posts/2020-09-22-ni-hao.md
new file mode 100644
index 0000000..3913f37
--- /dev/null
+++ b/src/posts/2020-09-22-ni-hao.md
@@ -0,0 +1,33 @@
+---
+author: "Youwen Wu"
+authorTwitter: "@youwen"
+desc: "The first post"
+image: "./images/waiheke-stony-batter.jpg"
+keywords: "hola, anuncio"
+lang: "cn"
+title: "Ni Hao"
+updated: "2020-09-23T12:00:00Z"
+---
+
+Welcome!
+
+
+
$title$
-
- $date$ $if(updated)$(updated: $updated$)$endif$
+ $date$
+
+ $if(updated)$(last updated: $updated$)$endif$
-
- $body$
-
+ $body$
diff --git a/ssg/src/Main.hs b/ssg/src/Main.hs
index 14494ef..db6038d 100644
--- a/ssg/src/Main.hs
+++ b/ssg/src/Main.hs
@@ -3,12 +3,12 @@
import Control.Monad (forM_)
import Data.List (isPrefixOf, isSuffixOf)
import Data.Maybe (fromMaybe)
-import Hakyll
import qualified Data.Text as T
import qualified Data.Text.Slugger as Slugger
+import Hakyll
import System.FilePath (takeFileName)
-import Text.Pandoc
- ( Extension (Ext_fenced_code_attributes, Ext_footnotes, Ext_gfm_auto_identifiers, Ext_implicit_header_references, Ext_smart),
+import Text.Pandoc (
+ Extension (Ext_fenced_code_attributes, Ext_footnotes, Ext_gfm_auto_identifiers, Ext_implicit_header_references, Ext_smart),
Extensions,
ReaderOptions,
WriterOptions (writerHighlightStyle),
@@ -16,29 +16,29 @@ import Text.Pandoc
githubMarkdownExtensions,
readerExtensions,
writerExtensions,
- )
+ )
import Text.Pandoc.Highlighting (Style, breezeDark, styleToCss)
--------------------------------------------------------------------------------
-- PERSONALIZATION
mySiteName :: String
-mySiteName = "My Site Name"
+mySiteName = "gradient ascent"
mySiteRoot :: String
-mySiteRoot = "https://my-site.com"
+mySiteRoot = "https://blog.youwen.dev"
myFeedTitle :: String
-myFeedTitle = "My Feed Title"
+myFeedTitle = "gradient ascent"
myFeedDescription :: String
-myFeedDescription = "My Site Description"
+myFeedDescription = "on computers, hacks, math, and life"
myFeedAuthorName :: String
-myFeedAuthorName = "My Name"
+myFeedAuthorName = "Youwen Wu"
myFeedAuthorEmail :: String
-myFeedAuthorEmail = "me@myemail.com"
+myFeedAuthorEmail = "youwenw@gmail.com"
myFeedRoot :: String
myFeedRoot = mySiteRoot
@@ -49,22 +49,22 @@ myFeedRoot = mySiteRoot
-- Default configuration: https://github.com/jaspervdj/hakyll/blob/cd74877d41f41c4fba27768f84255e797748a31a/lib/Hakyll/Core/Configuration.hs#L101-L125
config :: Configuration
config =
- defaultConfiguration
- { destinationDirectory = "dist"
- , ignoreFile = ignoreFile'
- , previewHost = "127.0.0.1"
- , previewPort = 8000
- , providerDirectory = "src"
- , storeDirectory = "ssg/_cache"
- , tmpDirectory = "ssg/_tmp"
- }
+ defaultConfiguration
+ { destinationDirectory = "dist"
+ , ignoreFile = ignoreFile'
+ , previewHost = "127.0.0.1"
+ , previewPort = 8000
+ , providerDirectory = "src"
+ , storeDirectory = "ssg/_cache"
+ , tmpDirectory = "ssg/_tmp"
+ }
where
ignoreFile' path
- | "." `isPrefixOf` fileName = False
- | "#" `isPrefixOf` fileName = True
- | "~" `isSuffixOf` fileName = True
- | ".swp" `isSuffixOf` fileName = True
- | otherwise = False
+ | "." `isPrefixOf` fileName = False
+ | "#" `isPrefixOf` fileName = True
+ | "~" `isSuffixOf` fileName = True
+ | ".swp" `isSuffixOf` fileName = True
+ | otherwise = False
where
fileName = takeFileName path
@@ -73,192 +73,192 @@ config =
main :: IO ()
main = hakyllWith config $ do
- forM_
- [ "CNAME"
- , "favicon.ico"
- , "robots.txt"
- , "_config.yml"
- , "images/*"
- , "js/*"
- , "fonts/*"
- ]
- $ \f -> match f $ do
- route idRoute
- compile copyFileCompiler
+ forM_
+ [ "CNAME"
+ , "favicon.ico"
+ , "robots.txt"
+ , "_config.yml"
+ , "images/*"
+ , "js/*"
+ , "fonts/*"
+ ]
+ $ \f -> match f $ do
+ route idRoute
+ compile copyFileCompiler
- match "css/*" $ do
- route idRoute
- compile compressCssCompiler
+ match "build/css/*" $ do
+ route idRoute
+ compile compressCssCompiler
- match "posts/*" $ do
- let ctx = constField "type" "article" <> postCtx
+ match "posts/*" $ do
+ let ctx = constField "type" "article" <> postCtx
- route $ metadataRoute titleRoute
- compile $
- pandocCompilerCustom
- >>= loadAndApplyTemplate "templates/post.html" ctx
- >>= saveSnapshot "content"
- >>= loadAndApplyTemplate "templates/default.html" ctx
+ route $ metadataRoute titleRoute
+ compile $
+ pandocCompilerCustom
+ >>= loadAndApplyTemplate "templates/post.html" ctx
+ >>= saveSnapshot "content"
+ >>= loadAndApplyTemplate "templates/default.html" ctx
- match "index.html" $ do
- route idRoute
- compile $ do
- posts <- recentFirst =<< loadAll "posts/*"
+ match "index.html" $ do
+ route idRoute
+ compile $ do
+ posts <- recentFirst =<< loadAll "posts/*"
- let indexCtx =
- listField "posts" postCtx (return posts)
- <> constField "root" mySiteRoot
- <> constField "feedTitle" myFeedTitle
- <> constField "siteName" mySiteName
- <> defaultContext
+ let indexCtx =
+ listField "posts" postCtx (return posts)
+ <> constField "root" mySiteRoot
+ <> constField "feedTitle" myFeedTitle
+ <> constField "siteName" mySiteName
+ <> defaultContext
- getResourceBody
- >>= applyAsTemplate indexCtx
- >>= loadAndApplyTemplate "templates/default.html" indexCtx
+ getResourceBody
+ >>= applyAsTemplate indexCtx
+ >>= loadAndApplyTemplate "templates/default.html" indexCtx
- match "templates/*" $
- compile templateBodyCompiler
+ match "templates/*" $
+ compile templateBodyCompiler
- create ["sitemap.xml"] $ do
- route idRoute
- compile $ do
- posts <- recentFirst =<< loadAll "posts/*"
+ create ["sitemap.xml"] $ do
+ route idRoute
+ compile $ do
+ posts <- recentFirst =<< loadAll "posts/*"
- let pages = posts
- sitemapCtx =
- constField "root" mySiteRoot
- <> constField "siteName" mySiteName
- <> listField "pages" postCtx (return pages)
+ let pages = posts
+ sitemapCtx =
+ constField "root" mySiteRoot
+ <> constField "siteName" mySiteName
+ <> listField "pages" postCtx (return pages)
- makeItem ("" :: String)
- >>= loadAndApplyTemplate "templates/sitemap.xml" sitemapCtx
+ makeItem ("" :: String)
+ >>= loadAndApplyTemplate "templates/sitemap.xml" sitemapCtx
- create ["rss.xml"] $ do
- route idRoute
- compile (feedCompiler renderRss)
+ create ["rss.xml"] $ do
+ route idRoute
+ compile (feedCompiler renderRss)
- create ["atom.xml"] $ do
- route idRoute
- compile (feedCompiler renderAtom)
+ create ["atom.xml"] $ do
+ route idRoute
+ compile (feedCompiler renderAtom)
- create ["css/code.css"] $ do
- route idRoute
- compile (makeStyle pandocHighlightStyle)
+ create ["css/code.css"] $ do
+ route idRoute
+ compile (makeStyle pandocHighlightStyle)
--------------------------------------------------------------------------------
-- COMPILER HELPERS
makeStyle :: Style -> Compiler (Item String)
makeStyle =
- makeItem . compressCss . styleToCss
+ makeItem . compressCss . styleToCss
--------------------------------------------------------------------------------
-- CONTEXT
feedCtx :: Context String
feedCtx =
- titleCtx
- <> postCtx
- <> bodyField "description"
+ titleCtx
+ <> postCtx
+ <> bodyField "description"
postCtx :: Context String
postCtx =
- constField "root" mySiteRoot
- <> constField "feedTitle" myFeedTitle
- <> constField "siteName" mySiteName
- <> dateField "date" "%Y-%m-%d"
- <> defaultContext
+ constField "root" mySiteRoot
+ <> constField "feedTitle" myFeedTitle
+ <> constField "siteName" mySiteName
+ <> dateField "date" "%Y-%m-%d"
+ <> defaultContext
titleCtx :: Context String
titleCtx =
- field "title" updatedTitle
+ field "title" updatedTitle
--------------------------------------------------------------------------------
-- TITLE HELPERS
replaceAmp :: String -> String
replaceAmp =
- replaceAll "&" (const "&")
+ replaceAll "&" (const "&")
replaceTitleAmp :: Metadata -> String
replaceTitleAmp =
- replaceAmp . safeTitle
+ replaceAmp . safeTitle
safeTitle :: Metadata -> String
safeTitle =
- fromMaybe "no title" . lookupString "title"
+ fromMaybe "no title" . lookupString "title"
updatedTitle :: Item a -> Compiler String
updatedTitle =
- fmap replaceTitleAmp . getMetadata . itemIdentifier
+ fmap replaceTitleAmp . getMetadata . itemIdentifier
--------------------------------------------------------------------------------
-- PANDOC
pandocCompilerCustom :: Compiler (Item String)
pandocCompilerCustom =
- pandocCompilerWith pandocReaderOpts pandocWriterOpts
+ pandocCompilerWith pandocReaderOpts pandocWriterOpts
pandocExtensionsCustom :: Extensions
pandocExtensionsCustom =
- githubMarkdownExtensions
- <> extensionsFromList
- [ Ext_fenced_code_attributes
- , Ext_gfm_auto_identifiers
- , Ext_implicit_header_references
- , Ext_smart
- , Ext_footnotes
- ]
+ githubMarkdownExtensions
+ <> extensionsFromList
+ [ Ext_fenced_code_attributes
+ , Ext_gfm_auto_identifiers
+ , Ext_implicit_header_references
+ , Ext_smart
+ , Ext_footnotes
+ ]
pandocReaderOpts :: ReaderOptions
pandocReaderOpts =
- defaultHakyllReaderOptions
- { readerExtensions = pandocExtensionsCustom
- }
+ defaultHakyllReaderOptions
+ { readerExtensions = pandocExtensionsCustom
+ }
pandocWriterOpts :: WriterOptions
pandocWriterOpts =
- defaultHakyllWriterOptions
- { writerExtensions = pandocExtensionsCustom
- , writerHighlightStyle = Just pandocHighlightStyle
- }
+ defaultHakyllWriterOptions
+ { writerExtensions = pandocExtensionsCustom
+ , writerHighlightStyle = Just pandocHighlightStyle
+ }
pandocHighlightStyle :: Style
pandocHighlightStyle =
- breezeDark -- https://hackage.haskell.org/package/pandoc/docs/Text-Pandoc-Highlighting.html
+ breezeDark -- https://hackage.haskell.org/package/pandoc/docs/Text-Pandoc-Highlighting.html
--------------------------------------------------------------------------------
-- FEEDS
type FeedRenderer =
- FeedConfiguration ->
- Context String ->
- [Item String] ->
- Compiler (Item String)
+ FeedConfiguration ->
+ Context String ->
+ [Item String] ->
+ Compiler (Item String)
feedCompiler :: FeedRenderer -> Compiler (Item String)
feedCompiler renderer =
- renderer feedConfiguration feedCtx
- =<< recentFirst
- =<< loadAllSnapshots "posts/*" "content"
+ renderer feedConfiguration feedCtx
+ =<< recentFirst
+ =<< loadAllSnapshots "posts/*" "content"
feedConfiguration :: FeedConfiguration
feedConfiguration =
- FeedConfiguration
- { feedTitle = myFeedTitle
- , feedDescription = myFeedDescription
- , feedAuthorName = myFeedAuthorName
- , feedAuthorEmail = myFeedAuthorEmail
- , feedRoot = myFeedRoot
- }
+ FeedConfiguration
+ { feedTitle = myFeedTitle
+ , feedDescription = myFeedDescription
+ , feedAuthorName = myFeedAuthorName
+ , feedAuthorEmail = myFeedAuthorEmail
+ , feedRoot = myFeedRoot
+ }
--------------------------------------------------------------------------------
-- CUSTOM ROUTE
fileNameFromTitle :: Metadata -> FilePath
fileNameFromTitle =
- T.unpack . (`T.append` ".html") . Slugger.toSlug . T.pack . safeTitle
+ T.unpack . (`T.append` ".html") . Slugger.toSlug . T.pack . safeTitle
titleRoute :: Metadata -> Routes
titleRoute =
- constRoute . fileNameFromTitle
+ constRoute . fileNameFromTitle
diff --git a/tailwind.config.js b/tailwind.config.js
new file mode 100644
index 0000000..ddd4e6f
--- /dev/null
+++ b/tailwind.config.js
@@ -0,0 +1,13 @@
+/** @type {import('tailwindcss').Config} */
+module.exports = {
+ content: ["./src/**/*.{html,js}"],
+ theme: {
+ extend: {
+ fontFamily: {
+ sans: ["Inter", "sans-serif"],
+ serif: ["Merriweather", "serif"],
+ },
+ },
+ },
+ plugins: [require("@tailwindcss/typography")],
+};
$date$
+
+ $if(updated)$(last updated: $updated$)$endif$
-