simple Noir app

gistfile1.lisp

(ns small-site.server
  (:require [noir.server :as server]
            [noir.content.pages :as pages]
            [clj-http.client :as client])
  (:use noir.core
        hiccup.core
        hiccup.page-helpers))

(def code (slurp "src/small_site/server.clj"))
(def hilite-url "http://hilite.me/api")
(def params {:form-params {:code code :lexer "clojure"}})
(def response (:body (client/post hilite-url params)))

(defpage "/" []
  (html5
    [:head
     [:title "small-site"]]
    [:body                
     [:h3 "I am the smallest Noir app!"]
     [:p "Here is my source code:"]
     [:p response]]))

(defn -main [& args]
  (let [mode (keyword (or (first args) :dev))]
    (server/start 8080 {:mode mode :ns 'small-site})))