Skip to content

Instantly share code, notes, and snippets.

ibdknox / hiccup.clj
Created Jun 27, 2011
generating html in noir
View hiccup.clj
(use 'hiccup.core)
;; ****************************************************************
;; The basics
;; ****************************************************************
(html [:p])
=> "<p />"
;; Any elements after that become the content of the tag
ibdknox / defpartial.clj
Created Jun 27, 2011
defpartial source
View defpartial.clj
(defmacro defpartial
"Create a function that returns html using hiccup. The function is
callable with the given name."
[fname params & body]
`(defn ~fname ~params
(defpartial hello [person]
[:p "Hello " person])
ibdknox / map.clj
Created Jun 28, 2011
defpartial with map
View map.clj
(defpartial post-item [{:keys [perma-link title md-body date tme]}]
[:h2 (link-to perma-link title)]
[:li date]
[:li tme]]
[:div.content md-body]])
(defpartial posts-list [items]
View bot.clj
(defn my-bot []
(doseq [ant (my-ants)]
(let [f (closest ant (food))
food-dirs (shuffle (direction ant f))
dirs (concat food-dirs (shuffle directions))]
(when-let [dir (first (drop-while #(not (valid-move? ant %)) dirs))]
(move ant dir)))))
View complexparams.clj
(defpage [:get ["/user/:id" :id #"\d+"]] {:keys [id]}
(str "You are user number " id))
View errors.clj
(defpartial error-item [[first-error]]
[:p.error first-error])
(defpartial user-fields [{:keys [firstname lastname]}]
(vali/on-error :firstname error-item)
(label "firstname" "First name: ")
(text-field "firstname" firstname)
(vali/on-error :lastname error-item)
(label "lastname" "Last name: ")
(text-field "lastname" lastname))
ibdknox / cookies.clj
Created Jul 25, 2011
sessions and cookies
View cookies.clj
(require '[noir.cookies :as cookies])
(cookies/put! :user-id 2)
(cookies/get :user-id)
;; => 2
(cookies/get :username "anon")
;; => "anon"
;; you can also pass a map that has all the cookie's attributes
View genhandler.clj
(require '[noir.server :as server])
(server/load-views "src/noir-example/views")
(def handler (server/gen-handler {:mode :dev
:ns 'noir-example}))
View add.clj
(server/add-middleware my-middleware)
View solution.clj
(fn [{:keys [longest cur] :as res} n]
(let [{:keys [cur] :as updated} (if (or (not (seq cur))
(> n (last cur)))
(update-in res [:cur] conj n)
(assoc res :cur [n]))
longest-cnt (count longest)
cur-cnt (count cur)]
(if (and (> cur-cnt 1)
You can’t perform that action at this time.