bamboo-2009.6.6: src/Bamboo/View/Control/Search.hs

{-# LANGUAGE NoImplicitPrelude #-}
module Bamboo.View.Control.Search where
  
import Bamboo.View.Env
import Bamboo.View.Widget.Template (page)
import Bamboo.Type.State
import Bamboo.View.Atom.Post (entry)
import Bamboo.View.Control.Helper (nav)

view :: Widget
view s = 
  s
    .posts
    .map (entry s)
    .(+++ nav (s.pager) nav_url)
    .page s
  where
    nav_url = (s.config.root / "search") ++ "?s=" ++ (s.search_key) ++ "&"