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

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

(defpage "/new" {}
         (common/layout "New Markdown Note"
                        [:div.central-body
                         (form-to [:get "/preview-note"]
                                  (text-area {:class "max-width"} :draft)
                                  [:div#buttons.hidden
                                   (submit-button {:style "float: left" :class "button"} "Publish")
                                   [:button#preview-button.button {:type :button :style "float: right"} "Preview"]])]
                        [:div#preview-start]
                        [:article#preview.central-body]))

; Actions.

(defremote md-to-html [draft]
           (.markdownToHtml (PegDownProcessor.) draft))