byg/app/SiteGenerator.hs

@@ -30,7 +30,6 @@ handleRecipeDir recipesDir outputDir htmlTemplate indexName recipeSubDirs name =
   imageFilenames <-
     listDirectory dir
     & filterDepGenM (hasExtension (inject ["jpg"]))
-    & onToken sort
   htmlBodyImages <- forDepGenM imageFilenames $ \filename -> do
     path <- joinPaths dir filename
     path `copyTo` outputDir
@@ -150,7 +149,7 @@ generateSite = do
   -- Handle images
   imgDir <- inject "img"
   makeDir $ joinPaths outputDir imgDir
-  forM_ ["mad-icon.png", "mad-logo.png", "julekalender.png", "platte.jpg", "køkken.jpg"] $ \name ->
+  forM_ ["mad-icon.png", "mad-logo.png"] $ \name ->
     joinPaths imgDir (inject name) `copyTo` outputDir
 
   -- Handle fonts

byg/src/Byg/DependencyGenerator.hs

@@ -1,8 +1,5 @@
 {-# LANGUAGE GADTs #-}
 {-# LANGUAGE FunctionalDependencies #-}
-
--- | Combinators for generating a list of dependencies between calculations, to
--- be executed later in DependencyRunner.
 module Byg.DependencyGenerator
   ( DepGenM
   , DepGenM'

byg/src/Byg/DependencyRunner.hs

@@ -1,11 +1,4 @@
 {-# LANGUAGE MonoLocalBinds #-}
-
--- | Run the actual operations from the generated dependencies from DependencyGenerator.
---
--- This does not work fully as intended right now (computes more than strictly
--- needed) and needs to be rewritten in a more testable way. The idea is to only
--- evaluate something if a future operation depends on it, which is reflected in
--- the ValueExistence type.
 module Byg.DependencyRunner
   ( DepRunM
   , runDeps

byg/src/Byg/Functions.hs

@@ -1,4 +1,3 @@
--- | All byg functions.
 module Byg.Functions
   ( module Byg.Functions.Image
   , module Byg.Functions.Pandoc

byg/src/Byg/Functions/Pandoc.hs

@@ -23,10 +23,7 @@ runPandoc m = case P.runPure m of
 
 readMarkdown :: TokenableTo Text a => a -> DepGenM (Token Pandoc)
 readMarkdown = onToken $ runPandoc . P.readMarkdown settings
-  where settings = P.def { P.readerExtensions = P.extensionsFromList
+  where settings = P.def { P.readerExtensions = P.extensionsFromList [ P.Ext_raw_html ] }
-                           [ P.Ext_raw_html
-                           , P.Ext_escaped_line_breaks
-                           ] }
 
 writeHtml :: TokenableTo Pandoc a => a -> DepGenM (Token Text)
 writeHtml = onToken $ runPandoc . P.writeHtml5String P.def

byg/src/Byg/Types.hs

@@ -1,14 +1,13 @@
--- | All byg types.
 module Byg.Types
   ( module Byg.Types.Token
   , module Byg.Types.Value
   , module Byg.Types.Functions
   , module Byg.Types.Date
-  , module Byg.Types.Dependency
+  , Dependency
   ) where
 
 import Byg.Types.Token
 import Byg.Types.Value
 import Byg.Types.Functions
 import Byg.Types.Date
-import Byg.Types.Dependency
+import Byg.Types.Dependency (Dependency)

byg/src/Byg/Types/Date.hs

@@ -1,4 +1,3 @@
--- | Date functions.
 module Byg.Types.Date
   ( Date(..)
   , formatDate

byg/src/Byg/Types/Dependency.hs

@@ -1,6 +1,4 @@
 {-# LANGUAGE GADTs #-}
-
--- | Keeps track of the graph of calculation dependencies.
 module Byg.Types.Dependency
   ( Action(..)
   , F(..)

byg/src/Byg/Types/Functions.hs

@@ -1,6 +1,4 @@
 {-# LANGUAGE FunctionalDependencies #-}
-
--- | Calculation function types.
 module Byg.Types.Functions
   ( IsFunctionIO(..)
   ) where

byg/src/Byg/Types/Token.hs

@@ -1,6 +1,4 @@
 {-# LANGUAGE GADTs #-}
-
--- | Tokens represent future values.
 module Byg.Types.Token
   ( Token(..)
   ) where

byg/src/Byg/Types/Value.hs

@@ -1,6 +1,4 @@
 {-# LANGUAGE MonoLocalBinds #-}
-
--- | Small wrapper over the Dynamic type.
 module Byg.Types.Value
   ( Value(..)
   , toValue

om.md

@@ -2,8 +2,6 @@
 
 Jeg håber at du kan blive inspireret af de retter jeg har fundet på.
 
-![Mig der holder en platte med hjemmesidens adresse på](/img/platte.jpg)
-
 
 ## Samarbejde?
 
@@ -17,26 +15,24 @@ Da jeg i 2012 flyttede hjemmefra for at studere i København, begyndte jeg også
 
 ## Retter
 
-Klik på [Alle retter](/retter/)-fanen i toppen af siden for at se alle mine madretter.
+Klik på [Retter](/retter/)-fanen i toppen af siden for at se alle mine madretter.
 
 
 ## Atom-feed
 
-Klik på [Feed](/atom.xml)-fanen i toppen af siden for at tilgå et Atom-feed med madretterne. (Læs mere om Atom på [RFC 4287](https://datatracker.ietf.org/doc/html/rfc4287).)
+Klik på [Feed](/atom.xml)-fanen i toppen af siden for at tilgå et Atom-feed med madretterne.
 
 
 ## Licens
 
-<p xmlns:cc="http://creativecommons.org/ns#" xmlns:dct="http://purl.org/dc/terms/"><span property="dct:title">Niels' mad</span> af <span property="cc:attributionName">Niels G. W. Serup</span> er licenseret under <a href="https://creativecommons.org/licenses/by-sa/4.0/deed.da" target="_blank" rel="license noopener noreferrer" style="display:inline-block;">CC BY-SA 4.0<img style="height:22px!important;margin-left:3px;vertical-align:text-bottom;" src="https://mirrors.creativecommons.org/presskit/icons/cc.svg?ref=chooser-v1" alt=""><img style="height:22px!important;margin-left:3px;vertical-align:text-bottom;" src="https://mirrors.creativecommons.org/presskit/icons/by.svg?ref=chooser-v1" alt=""><img style="height:22px!important;margin-left:3px;vertical-align:text-bottom;" src="https://mirrors.creativecommons.org/presskit/icons/sa.svg?ref=chooser-v1" alt=""></a>.</p>
+<p xmlns:cc="http://creativecommons.org/ns#" xmlns:dct="http://purl.org/dc/terms/"><span property="dct:title">Niels' mad</span> af <span property="cc:attributionName">Niels G. W. Serup</span> er licenseret under <a href="https://creativecommons.org/licenses/by-sa/4.0/?ref=chooser-v1" target="_blank" rel="license noopener noreferrer" style="display:inline-block;">CC BY-SA 4.0<img style="height:22px!important;margin-left:3px;vertical-align:text-bottom;" src="https://mirrors.creativecommons.org/presskit/icons/cc.svg?ref=chooser-v1" alt=""><img style="height:22px!important;margin-left:3px;vertical-align:text-bottom;" src="https://mirrors.creativecommons.org/presskit/icons/by.svg?ref=chooser-v1" alt=""><img style="height:22px!important;margin-left:3px;vertical-align:text-bottom;" src="https://mirrors.creativecommons.org/presskit/icons/sa.svg?ref=chooser-v1" alt=""></a></p>
 
 
 ## Hjemmesidegenerator
 
-For at lave denne madblog var jeg nødt til at skrive en ny statisk hjemmesidegenerator i programmeringssproget Haskell.  Den har fokus på ergonomisk afhængighedsnedskrivning og effektiv regenerering af kun det nødvendige.  Den er ikke helt færdig.  Se mere her:
+For at lave denne madblog var jeg nødt til at skrive en ny statisk hjemmesidegenerator i programmeringssproget Haskell.  Den har fokus på ergonomisk afhængighedsnedskrivning og effektiv generering af kun det nødvendige.  Se mere her:
 
 
 ## English
 
 Hi, this is my food blog in Danish, but feel free to browse around even if you're new to the language.  You can also look at the pictures.
-
-![Mit gamle køkken](/img/køkken.jpg)

retter/2024-11-27-olivenkage/ret.md

@@ -1,25 +0,0 @@
-# Olivenkage
-
-*Oprindelig dato: 2012*
-
-## Ingredienser
-- Oliven i glas
-- Æg
-
-## Inspirationer
-- Længsler efter middelhavsstrøg
-- "Think different"-kampagnesloganet fra Apple
-
-## Opskrift
-1. Bland sammen.
-
-## Baggrund
-Overrask dine venner med denne nyklassiker.  Som penselsstrøg på panden formes æggene, og med velsmagende olivenbidder brydes monotonien, så der er to smage.
-
-Under stegningen ændrer ens udvalgte oliven tekstur så de føles lidt anderledes at spise end hvis man spiser dem direkte ud af glasset.
-
-Denne ret er essencen af følgende citat:
-
-> Smil, og verden smiller til dig
->
-> *Indsendt til <https://www.udvalgte-ordsprog.dk/kendte-citater.htm>*

style.css

@@ -128,25 +128,3 @@ p.image {
     max-width: 100%;
   }
 }
-
-blockquote {
-  background-color: #dddd31;
-  padding: 10px;
-  margin: 0;
-
-  p {
-    margin: 0;
-  }
-
-  em {
-    display: block;
-    text-align: right;
-    color: grey;
-  }
-}
-
-#julekalender {
-  height: 100px;
-  background-image: url('img/julekalender.png');
-  background-position: center;
-}

template.html

@@ -8,7 +8,6 @@
     <title>Niels' mad</title>
   </head>
   <body>
-    <div id="julekalender"></div>
     <header><a href="/">&nbsp;Niels'&nbsp;mad&nbsp;</a></header>
 
     <nav>