Create a gist now

Instantly share code, notes, and snippets.

simple Noir app
(ns small-site.server
(:require [noir.server :as server]
[noir.content.pages :as pages]
[clj-http.client :as client])
(:use noir.core
(def code (slurp "src/small_site/server.clj"))
(def hilite-url "")
(def params {:form-params {:code code :lexer "clojure"}})
(def response (:body (client/post hilite-url params)))
(defpage "/" []
[:title "small-site"]]
[: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})))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment