insert "article" [ "title" .= title
                , "category_id" .= category_id
                , "raw_content" .= content
                , "content" .= Markdown content ]

update "article" [ "title" .= title
                , "category_id" .= category_id
                , "raw_content" .= content
                , "content" .= Markdown content] ("id" .== id)

first "article" ("id" .== id .&& "user_id" .== user_id) (Asc "id")

findall "article" ("category_id" .<- [cid1, cid2, cid3]) (Desc "id")

list :: Array Category.RichArticle -> Template
list articles = do
  base
  title "Article"
  extend "body" $ do

    ifLogined $ \_ ->
      t_a [a_href := "/article/create"] $ text "Create"

    article_list articles

article_list :: Array Category.RichArticle -> Template
article_list articles = do
  t_table [] do
    t_tr [] do
      t_th [] $ text "Id"
      t_th [] $ text "Title"
      t_th [] $ text "Category"
      t_th [] $ text "Create At"
      t_th [] $ text "Update At"

      forT articles $ \article -> do
        t_tr [] do
          t_td [] $ text $ show article.id
          t_td [] do
            t_a [a_href := "/article/show/" ++ show article.id]
              $ text article.title
          t_td []  do
            t_a [a_href := "/article/category/" ++ show article.category.id]
              $ text article.category.name
          t_td [] $ text article.create_at
          t_td [] $ text article.update_at

main :: forall e. ModelApp (console :: CONSOLE | e)
main = do
  liftEff $ log "Setting up"
  setProp "json spaces" 4.0

  useExternal $ MW.bodyParser {extended: false}
  static_path <- liftEff $ Config.static_path
  useExternalAt "/static" $ MW.static static_path

  useExternal $ cookieSession {secret: Config.security_key}
  useExternal $ MW.setCookiesMaxAge (3600 * 24 * 30)

  use CacheHandler.logger
  use CacheHandler.cacheMiddleware

  mount "/" HomeHandler.main

  mount "/user" UserHandler.main
  mount "/article" ArticleHandler.main
  mount "/category" CategoryHandler.main
  mount "/cache" CacheHandler.main