listField immer leer

Question

Ich möchte ein Feld zu defaultContext hinzufügen, das eine Liste von Links für alle Seiten verfügbar machen wird. Da ich nicht glaube, dass ich defaultContext selbst ändern kann, habe ich eine Funktion erstellt, die listField zu defaultContext hinzufügt und alle Referenzen auf defaultContext damit ersetzt. Während das Programm übereinstimmt, ist meine neue listField leer.

Dies ist mein letzter Versuch.

-- site.hs 
match "index.html" $ do 
    route idRoute 
    compile $ do 
     links <- sortByTitle =<< loadAll "links/*" 
     let indexCtx = 
       listField "links" linkCtx (return links) `mappend` 
       constField "title" "Home"    `mappend` 
       myCtx 

     getResourceBody 
      >>= applyAsTemplate indexCtx 
      >>= loadAndApplyTemplate "templates/default.html" indexCtx 
      >>= relativizeUrls 

match "templates/*" $ compile templateBodyCompiler 

myCtx = 
    listField "navItems" defaultContext (loadAll "nav/*") `mappend` 
    defaultContext 

-- nav/item.markdown 
--- 
title: nav item 1 
--- 

-- templates/default.html 
<ul> 
    $for(navItems)$ 
     $title$ 
    $endfor$ 
</ul> 

Answer 1

Wenn Sie ein Element laden, müssen Sie mit diesem Element eine Compilation Ziel angeben - load Funktion sehen.

Last :: (Binary a, typisierbarer a) => Identifier -> Compiler (Punkt a)

lädt ein Element an anderer Stelle zusammengestellt. Wenn das erforderliche Element noch nicht kompiliert wurde, wird das Build-System automatisch dafür sorgen.

ein einfaches Hinzufügen (kein route erforderlich) Compiler sollte es beheben:

match "nav/*" $ compile pandocCompiler