From 8550442dcf1c9626bd3b8cc14559fdee80fde103 Mon Sep 17 00:00:00 2001
From: Orestis Malaspinas <orestis.malaspinas@hesge.ch>
Date: Sun, 19 Apr 2020 21:32:18 +0200
Subject: [PATCH] added class ctxt
---
hakyll-bootstrap/Main.hs | 9 +++++++--
hakyll-bootstrap/templates/nav.html | 2 +-
2 files changed, 8 insertions(+), 3 deletions(-)
diff --git a/hakyll-bootstrap/Main.hs b/hakyll-bootstrap/Main.hs
index 5f087f8..4aec4b7 100644
--- a/hakyll-bootstrap/Main.hs
+++ b/hakyll-bootstrap/Main.hs
@@ -40,6 +40,11 @@ mathCtx = field "mathjax" $ \item -> do
then "<script type=\"text/javascript\" src=\"https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.0/MathJax.js?config=TeX-AMS_HTML\"></script>"
else ""
+courseCtx posts title =
+ listField "posts" postCtx (return posts)
+ `mappend` constField "title" title
+ `mappend` defaultContext
+
archiveCtx posts =
listField "posts" postCtx (return posts)
`mappend` constField "title" "Archives"
@@ -71,7 +76,7 @@ static = do
resize :: Rules ()
resize = do
- match "img/thumbnails/**" $ do
+ match "img/thumbnails/**.png" $ do
route idRoute
compile $ loadImage
>>= scaleImageCompiler 140 140
@@ -119,7 +124,7 @@ conc = do
compile $ do
posts <- recentFirst =<< loadAll "cours/*"
makeItem ""
- >>= loadAndApplyTemplate "templates/archive.html" (archiveCtx posts)
+ >>= loadAndApplyTemplate "templates/archive.html" (courseCtx posts "Programmation concurrente")
>>= relativizeUrls
index :: Rules ()
diff --git a/hakyll-bootstrap/templates/nav.html b/hakyll-bootstrap/templates/nav.html
index a1876f4..34eaf19 100644
--- a/hakyll-bootstrap/templates/nav.html
+++ b/hakyll-bootstrap/templates/nav.html
@@ -19,7 +19,7 @@
<ul class="dropdown-menu">
<li><a href="#">Mathématiques en technologie de l'information</a></li>
<li><a href="#">Programmation séquentielle en C</a></li>
- <li><a href="#">Programmation concurrente</a></li>
+ <li><a href="/prog_conc.html">Programmation concurrente</a></li>
<li class="divider"></li>
<li class="dropdown-header">Archivés</li>
<li><a href="#">Sciences orientation logicielle</a></li>
--
GitLab