Add empty pages for paints.

portfolio/en/paints.html

@@ -0,0 +1,9 @@
+---
+title: Paints
+logosub: Figure painter
+language: "en"
+---
+
+<p>List of my lacquer paints.</p>
+
+

portfolio/en/plamo.html

@@ -7,4 +7,10 @@ language: "en"
 <p>The word "Plamo" is a portmonteau of the words "plastic" and "modelling". It involves building and painting models and figures from historic, science-fiction and fantasy themes.</p>
 <p>Here you can find my collection and notes on this hobby.</p>
 
+<hr/>
+
+<a href="paints.html">Paints</a>
+
+<hr/>
+
 $partial("templates/model-kits.html")$

portfolio/jp/paints.html

@@ -0,0 +1,9 @@
+---
+title: Paints
+logosub: "フィギュアペインター"
+language: "jp"
+---
+
+<p>ラッカー<ruby><rb>塗<rb>料<rt>と<rt>りょう</ruby>。</p>
+
+

portfolio/jp/plamo.html

@@ -7,4 +7,10 @@ language: "jp"
 <p>『プラモ』という言葉は、『プラスチック』と『モデリング』を組み合わせた造語です。<br/>歴史やサイエンス・フィクション、ファンタジーなどのテーマの模型やフィギュアを作り、塗装することを指します。</p>
 <p>ここでは、私のコレクションやこの趣味に関するメモをご覧いただけます。</p>
 
+<hr/>
+
+<a href="paints.html">塗料</a>
+
+<hr/>
+
 $partial("templates/model-kits.html")$

portfolio/nl/paints.html

@@ -0,0 +1,9 @@
+---
+title: Paints
+logosub: Figuur-schilder
+language: "nl"
+---
+
+<p>Lijst van mijn lak-verf.</p>
+
+

portfolio/nl/plamo.html

@@ -7,4 +7,10 @@ language: "nl"
 <p>"Plamo" is een samenvoeging van de woorden "plastic" en "modelleren". Het is een hobby waarbij plastic modellen gebouwd en geschilderd worden. Het kunnen historische modellen zijn, maar ook science-fiction of fantasie modellen.</p>
 <p>Hier kun je mijn collectie en notities vinden van deze hobby.</p>
 
+<hr/>
+
+<a href="paints.html">Verf</a>
+
+<hr/>
+
 $partial("templates/model-kits.html")$

portfolio/site.hs

@@ -306,6 +306,26 @@ main = hakyll $ do
                 >>= loadAndApplyTemplate "templates/default.html" softwareCtx
                 >>= relativizeUrls
 
+    match (fromList
+        [ "nl/paints.html"
+        , "jp/paints.html"
+        , "en/paints.html"
+        ]) $ do
+        route idRoute
+        compile $ do
+            identifier <- getUnderlying
+            metadata   <- getMetadata identifier
+            let language = lookupString "language" metadata
+            let lang = fromMaybe "en" language
+
+            let paintsCtx =
+                    langDict lang <>
+                    defaultContext
+
+            pandocCompiler
+                >>= loadAndApplyTemplate "templates/default.html" paintsCtx
+                >>= relativizeUrls
+
     match (fromList
         [ "index.html"
         , "nl/index.html"