(ns NoteHub.views.pages
  (:require [NoteHub.views.common :as common])
  (:use
        [clojure.string :rename {replace sreplace} :only [trim split replace]]
        [noir.core :only [defpage]]
        [hiccup.form])
  (:import [org.pegdown PegDownProcessor]))

(defpage "/" {}
         (common/layout "Free Markdown Hosting"
           [:div#hero
            [:h1 "NoteHub"]
            [:h2 "Free hosting for markdown pages."]
            [:br]
            [:br]
            [:a.button {:href "/new"} "New Page"]]))

(defpage "/new" {}
         (common/layout "New Markdown Note"
           [:div.central-body
            (form-to [:post "/preview-note"]
              (text-area {:class "max-width"} :draft)
              (submit-button {:id "preview-button"} "Preview"))]))

; Actions.

(defpage [:post "/preview-note"] {:keys [draft]}
         (let [get-title (comp trim #(sreplace % "#" "") first #(split % #"\n"))]
           (common/layout (get-title draft)
              [:article.central-body
                (.markdownToHtml (PegDownProcessor.) draft)])))