module Handler.Pager (getThreadPagerR) where
import Import
import StaticFiles
import Handler.View
import Data.Aeson (encode)
import Text.Blaze (unsafeLazyByteString)
import qualified Data.Text as T
import qualified Data.HashMap.Strict as H
encodeSearch :: (Route App -> T.Text) -> [SearchResult] -> Html
encodeSearch ur search = unsafeLazyByteString $ encode $ map enc search
where
enc s = uncurry H.insert ("url" .= ur (ThreadR $ searchThread s)) (toObj s)
toObj s = case toJSON s of
Object o -> o
_ -> error "Search is not an object"
getThreadPagerR :: String -> Handler Html
getThreadPagerR s = defaultLayout $ do
search <- notmuchSearch s
ur <- getUrlRender
retags <- extraRetag <$> getExtra
addScript $ StaticR js_jquery_pjax_1_7_3_js
$(widgetFile "pager")