Account Options

  1. Sign in
The old Google Groups will be going away soon, but your browser is incompatible with the new version.
Google Groups Home
« Groups Home
hakyll
Home
+ new post
About this group
Join this group
Unwanted Body Replication Problem
Options
There are currently too many topics in this group that display first. To make this topic appear first, remove this option from another topic.
There was an error processing your request. Please try again.
flag
   7 messages - Collapse all  -  Translate all to Translated (View all originals)
The group you are posting to is a Usenet group. Messages posted to this group will make your email address visible to anyone on the Internet.
Your reply message has not been sent.
Your post was successful
 
From:
To:
Cc:
Followup To:
Add Cc | Add Followup-to | Edit Subject
Subject:
Validation:
For verification purposes please type the characters you see in the picture below or the numbers you hear by clicking the accessibility icon. Listen and type the numbers you hear
 
Veritatem Ignotam  
View profile  
 More options Apr 28 2012, 2:27 pm
From: Veritatem Ignotam <veritatem.igno...@gmail.com>
Date: Sat, 28 Apr 2012 11:27:50 -0700 (PDT)
Local: Sat, Apr 28 2012 2:27 pm
Subject: Unwanted Body Replication Problem
Print | Individual message | Show original | Report this message | Find messages by this author
You'll have to excuse me for the simplicity of this problem, I'm very
new to both hakyll/haskell.

In the homepage of a site I'm currently working on I'm trying to
create a list of the most recent posts and use mootools.js accordion
to display the post once <h2 class="contentheader"> is clicked. It
works but within the post it replicates the body of the main page
(menu, header, etc..) around the post instead of just the body of the
post itself (if that makes sense).

Here's the relevant bits

-- Home page
    match  "index.html" $ route idRoute
    create "index.html" $ constA mempty
        >>> arr (setField "pageTitle" "Home")
        >>> requireA "intro.md" (setFieldA "intro" $ arr pageBody)
        >>> setFieldPageList (newest 5)
                "templates/news_item.html" "news"
                (newsDirs `mappend` inGroup Nothing)
        >>> applyTemplateCompiler "templates/home.html"
        >>> applyTemplateCompiler "templates/default.html"
        >>> relativizeUrlsCompiler

-- news_item.html
<h2 class="contentheader">$title$</h2>
<p class="date">$publicationDates$</p>
<div class="content">
        $body$
</div>

-- home.html
<h1>Site Title</h1>
<hr>
$intro$

<h1>Recent News</h1>
<hr>
$news$

-- from default.html
<div id="maincol">
        $body$
</div>

Perhaps if I could rename the body of the post by using something like
(setFieldA "newsBody" $ arr pageBody) but I don't know haskell well
enough and don't know where to put it.

Any help would be very much appreciated

VI


 
You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
Jasper Van der Jeugt  
View profile  
 More options Apr 28 2012, 7:04 pm
From: Jasper Van der Jeugt <m...@jaspervdj.be>
Date: Sun, 29 Apr 2012 01:04:02 +0200
Local: Sat, Apr 28 2012 7:04 pm
Subject: Re: [hakyll] Unwanted Body Replication Problem
Print | Individual message | Show original | Report this message | Find messages by this author
Hi,

The problem is that you feed the posts to news_item.html. Using $body$
there will include the final representation of your post, that is,
including your site template.

What you want to do is change your posts compiler a little to something like:

    match "posts/*" $ do
        route $ ...
        compile $ pageCompiler
            ... -- Other actions...
            >>> arr (copyBodyToField "content"
            -- Apply templates...
            >>> applyTemplateCompiler ...

This way, the $content$ contains the post body *before* the templates
are applied, and you can use $content$ instead of $body$ in
news_item.html.

Hope this helps,
Cheers,
Jasper

On Sat, Apr 28, 2012 at 8:27 PM, Veritatem Ignotam


 
You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
Veritatem Ignotam  
View profile  
 More options May 1 2012, 2:18 pm
From: Veritatem Ignotam <veritatem.igno...@gmail.com>
Date: Tue, 1 May 2012 11:18:54 -0700 (PDT)
Local: Tues, May 1 2012 2:18 pm
Subject: Re: Unwanted Body Replication Problem
Print | Individual message | Show original | Report this message | Find messages by this author
Thanks Jasper. I thought it had to be something like that.

I'm still not sure exactly where to put it. I tried putting it in my
newsCompiler but no joy.

How exactly does

>>> setFieldPageList (newest 5)

                "templates/news_item.html" "news"
                (newsDirs `mappend` inGroup Nothing)
work? Does it grab already rendered pages or does it recompile them?
If it recompiles them, with which compiler?

Here's the whole code. It's mostly Benedict Eastaugh's (thanks!) code
from extralogical.net as it was almost exactly what I needed.

{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-unused-do-bind #-}
module Main where

import Control.Arrow ((>>>), arr)
import Control.Monad (forM_)
import Data.List (intercalate)
import Data.Monoid (mappend, mempty)
import Data.Time.Clock (UTCTime)
import Data.Time.Format (parseTime, formatTime)
import System.FilePath
import System.Locale (defaultTimeLocale)
import Text.Pandoc.Shared
    ( HTMLMathMethod(..)
    , ObfuscationMethod(..)
    , WriterOptions(..)
    , defaultWriterOptions
    )

import Hakyll hiding (applyTemplateCompiler)

main :: IO ()
main = hakyll $ do
    -- Copy images to /images/
    match "images/**" $ do
        route   idRoute
        compile copyFileCompiler

    -- Copy files to /files/
    match "files/**" $ do
        route   idRoute
        compile copyFileCompiler

    -- Copy JavaScript to /scripts/
    match "scripts/*" $ do
        route   idRoute
        compile copyFileCompiler

    -- Compress CSS
    match "css/*" $ do
        route   idRoute
        compile compressCssCompiler

    -- Read templates
    match "templates/*" $ compile templateCompiler

    let newsDirs = regex "^(news|drafts)\\/.+\\.[a-z]+$"

    -- News
    match newsDirs $ do
        route   $ routeNews
        compile $ newsCompiler
            >>> arr pageTitle
            >>> arr formatDate
            >>> arr publicationDates
            -- Post title and body. No accordion.
            >>> applyTemplateCompiler "templates/news_single.html"
            >>> applyTemplateCompiler "templates/default.html"
            >>> relativizeUrlsCompiler

    -- Home page
    match  "index.html" $ route idRoute
    create "index.html" $ constA mempty
        >>> arr (setField "pageTitle" "Home")
        >>> requireA "intro.md" (setFieldA "intro" $ arr pageBody)
        -- Intro with 5 newest news items below, readable by clicking
on post h2
        >>> setFieldPageList (newest 5)
                "templates/news_item.html" "news"
                (newsDirs `mappend` inGroup Nothing)
        >>> applyTemplateCompiler "templates/home.html"
        >>> applyTemplateCompiler "templates/default.html"
        >>> relativizeUrlsCompiler

    -- Intro
    match "intro.md" $ compile pageCompiler

        -- News listing
    match  "news.html" $ route routePage
    create "news.html" $ constA mempty
        >>> arr (setField "title" "News")
        >>> arr pageTitle
        -- list of news items viewable using accordion
        >>> setFieldPageList recentFirst
                "templates/news_item.html" "news"
                (newsDirs `mappend` inGroup Nothing)
        >>> applyTemplateCompiler "templates/news.html"
        >>> applyTemplateCompiler "templates/default.html"
        >>> relativizeUrlsCompiler

    -- About pages
    forM_ [ "about/test1.md"
          , "about/test2.md"
          , "about/test3.md"
          ] $ \page -> do
        match page $ do
            route   $ routePage
            compile $ pageCompiler'

    -- Industry pages
    forM_ [ "industry/test1.md"
          , "industry/test2.md"
          , "industry/test3.md"
          ] $ \page -> do
        match page $ do
            route   $ routePage
            compile $ pageCompiler'

    -- Technology pages
    forM_ [ "tech/test1.md"
          , "tech/test2.md"
          , "tech/test3.md"
          ] $ \page -> do
        match page $ do
            route   $ routePage
            compile $ pageCompiler'

    -- Mtn. pages
    forM_ [ "mtn/test1.md"
          , "mtn/test2.md"
          , "mtn/test3.md"
          ] $ \page -> do
        match page $ do
            route   $ routePage
            compile $ pageCompiler'

    -- Atom feed
    match  "news.atom" $ route idRoute
    create "news.atom" $
        requireAll_ (newsDirs `mappend` inGroup Nothing)
        >>> renderAtom feedConfiguration

    -- 404 page
    match "404.html" $ do
        route idRoute
        compile $ readPageCompiler
            >>> addDefaultFields
            >>> arr applySelf
            >>> arr pageTitle
            >>> applyTemplateCompiler "templates/page.html"
            >>> applyTemplateCompiler "templates/default.html"
            >>> relativizeUrlsCompiler

    -- Finish
    return ()

-- | Read a page, add default fields, substitute fields and render
with Pandoc.
--
newsCompiler :: Compiler Resource (Page String)
newsCompiler = pageCompilerWith defaultHakyllParserState
newsWriterOptions

pageCompiler' :: Compiler Resource (Page String)
pageCompiler' = newsCompiler
    >>> arr pageTitle
    >>> arr publicationDates
    >>> applyTemplateCompiler "templates/page.html"
    >>> applyTemplateCompiler "templates/default.html"
    >>> relativizeUrlsCompiler

-- | Pandoc writer options for news.
--
newsWriterOptions :: WriterOptions
newsWriterOptions = defaultWriterOptions
    { writerHtml5 = True
    , writerTableOfContents = True
    , writerEmailObfuscation = NoObfuscation
    , writerHTMLMathMethod   = MathML Nothing
    , writerLiterateHaskell  = True
    }

applyTemplateCompiler :: Identifier Template                   -- ^
Template
                      -> Compiler (Page String) (Page String)  -- ^
Compiler
applyTemplateCompiler = applyTemplateCompilerWith missingHandler

-- | Set defaults for a few keys. Print the string again if not
handled.
missingHandler :: String -> String
missingHandler k = case k of
    "pageClass" -> "default"
    _           -> "$" ++ k ++ "$"

-- | Take a page like @\"/about/notebooks.md\"@ and route it to
-- @\"/about/notebooks\"@, i.e. turn a filename into a drectory.
--
routePage :: Routes
routePage = customRoute fileToDirectory

-- | Drop the date and set the file extension to ".html" when routing
news.
--
routeNews :: Routes
routeNews = routeNewsExt ".html"

-- | Drop the date and set the file extension to ".raw" when routing
the raw
-- versions of news.
--
routeNewsRaw :: Routes
routeNewsRaw = routeNewsExt ".txt"

-- | Article routing with a specific file extension.
--
routeNewsExt :: String -> Routes
routeNewsExt ext = customRoute
                    $ flip replaceExtension ext
                    . flip replaceDirectory "news"
                    . dropDate

-- | Turn an @Identifier@ into a @FilePath@, dropping the date prefix
(e.g.
-- @\"2011-04-07-\"@) along the way.
dropDate :: Identifier a -> FilePath
dropDate ident = let file = toFilePath ident
                 in  replaceFileName file (drop 11 $ takeFileName
file)

-- | Turn a filename reference into a directory with an index file.
--
fileToDirectory :: Identifier a -> FilePath
fileToDirectory = flip combine "index.html" . dropExtension .
toFilePath

-- | Date formatting.
--
formatDate :: Page a -> Page a
formatDate = renderDateField "published" "%B %e, %Y" "Date unknown"

-- | Publication and last modified date rendering.
--
publicationDates :: Page a -> Page a
publicationDates page = setField "publicationDates" datesString page
  where
    datesString  = intercalate ". "
                 $ filter ((> 0) . length) [published, updated]
    published    = formatTime' "%B %e, %Y" $ getPublicationDate page
    updated      = formatTime' "Last updated %B %e, %Y" $
getUpdatedDate page

formatTime' :: String -> Maybe UTCTime -> String
formatTime' _      Nothing  = ""
formatTime' format (Just t) = formatTime defaultTimeLocale format t

getPublicationDate :: Page a -> Maybe UTCTime
getPublicationDate page = parseTime defaultTimeLocale "%Y-%m-%d"
dateString
  where
    dateString = intercalate "-" $ take 3
               $ splitAll "-" $ takeFileName (getField "path" page)

getUpdatedDate :: Page a -> Maybe UTCTime
getUpdatedDate page =
    parseTime defaultTimeLocale "%Y-%m-%d" (getField "updated" page)

-- | Prefix page titles with "TEST".
--
pageTitle :: Page a -> Page a
pageTitle = renderField "title" "pageTitle" ("TEST -- " ++)

markdownH1 :: String -> Page a -> Page a
markdownH1 field page = setField field md page
  where
    title = getField "title" page
    line  = replicate (length title) '='
    md    = init $ unlines [title, line]

htmlUrl :: String -> Page a -> Page a
htmlUrl field page = setField field url page
  where
    url = replaceExtension (getField "url" page) ".html"

-- | Take the most recent n news.
--
newest :: Int -> [Page a] -> [Page a]
newest n = take n . recentFirst

-- | test feed metadata.
--
feedConfiguration :: FeedConfiguration
feedConfiguration = FeedConfiguration
    { feedTitle       = "TEST"
    , feedDescription = "This is a test"
    , feedAuthorName  = "tset"
    , feedRoot        = "http://test.com"
    }

On Apr 28, 7:04 pm, Jasper Van der Jeugt <m...@jaspervdj.be> wrote:

...

read more »


 
You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
Jasper Van der Jeugt  
View profile  
 More options May 1 2012, 3:27 pm
From: Jasper Van der Jeugt <m...@jaspervdj.be>
Date: Tue, 1 May 2012 21:27:57 +0200
Local: Tues, May 1 2012 3:27 pm
Subject: Re: [hakyll] Re: Unwanted Body Replication Problem
Print | Individual message | Show original | Report this message | Find messages by this author
Something like this should work, I think:

    -- News
    match newsDirs $ do
        route   $ routeNews
        compile $ newsCompiler
            >>> arr pageTitle
            >>> arr formatDate
            >>> arr publicationDates
            >>> arr (copyBodyToField "content")
            >>> applyTemplateCompiler "templates/news_single.html"
            >>> applyTemplateCompiler "templates/default.html"
            >>> relativizeUrlsCompiler

Hope this helps,
Cheers,
Jasper

On Tue, May 1, 2012 at 8:18 PM, Veritatem Ignotam

...

read more »


 
You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
Veritatem Ignotam  
View profile  
 More options May 1 2012, 4:45 pm
From: Veritatem Ignotam <veritatem.igno...@gmail.com>
Date: Tue, 1 May 2012 13:45:15 -0700 (PDT)
Local: Tues, May 1 2012 4:45 pm
Subject: Re: Unwanted Body Replication Problem
Print | Individual message | Show original | Report this message | Find messages by this author
Thanks again. That worked.

I have one final question. I already tried your last suggestion but
renamed 'content' to 'news_content' and it wasn't working. Are there
limits to string used?

VI

On May 1, 3:27 pm, Jasper Van der Jeugt <m...@jaspervdj.be> wrote:

...

read more »


 
You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
Jasper Van der Jeugt  
View profile  
 More options May 1 2012, 4:46 pm
From: Jasper Van der Jeugt <m...@jaspervdj.be>
Date: Tue, 1 May 2012 22:46:17 +0200
Local: Tues, May 1 2012 4:46 pm
Subject: Re: [hakyll] Re: Unwanted Body Replication Problem
Print | Individual message | Show original | Report this message | Find messages by this author
Yes, they should be alphanumeric. So newsContent should work.

Cheers,
Jasper

On Tue, May 1, 2012 at 10:45 PM, Veritatem Ignotam

...

read more »


 
You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
Veritatem Ignotam  
View profile  
 More options May 1 2012, 8:19 pm
From: Veritatem Ignotam <veritatem.igno...@gmail.com>
Date: Tue, 1 May 2012 17:19:33 -0700 (PDT)
Local: Tues, May 1 2012 8:19 pm
Subject: Re: Unwanted Body Replication Problem
Print | Individual message | Show original | Report this message | Find messages by this author
Good to know.

Thanks again for all your help,

VI

On May 1, 4:46 pm, Jasper Van der Jeugt <m...@jaspervdj.be> wrote:

...

read more »


 
You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
End of messages
« Back to Discussions « Newer topic     Older topic »

Create a group - Google Groups - Google Home - Terms of Service - Privacy Policy
©2013 Google