enlive to enfocus

gistfile1.clj

;;;Server Side code which retrieves a html fragment from client

(ns faiz.client.transforms
  (:require [enfocus.core :as ef])
  (:use-macros [enfocus.macros :only [append defsnippet content at set-attr html-content]])
  (:require-macros [fetch.macros :as fm])
  (:use [faiz.client.utils :only [log]]))

(defn doc [] js/document) 

(defn init []
  (fm/letrem [n (get-navbar)]
             (log "Top Navbar" n)
             (at (doc)
                 ["body > header"] (html-content n))))


;;;Client Side code  

(ns faiz.views.main
  (:use [net.cgrand.enlive-html]
        [noir.core :only [defpage]]
        [noir.fetch.remotes :only [defremote]]))

(def title  "Faiz-ul-Mawaid-il-Burhaniyah - Poona Students")

(def links [{:url "#" :text "Home"} {:url "#" :text "Hisaab"}])

(def templ "faiz/templates/components.html")

(deftemplate index "faiz/views/index.html" [title]
  [:title] (content title))

(defsnippet nav-link templ [:top-navbar (attr= :data-navlinks "left") :> first-child]
  [{:keys [url text]}]
  [:a] (set-attr :href url)
  [:a] (content text))

(defsnippet top-navbar templ [:top-navbar]
  [links]
  [[:ul (attr= :data-navlinks "left")]] (content (map nav-link links)))

(defn to->html [n]
  (apply str (emit* n)))

(defremote get-navbar []
  (to->html (top-navbar links)))

(defpage "/" []
  (index title))