clojure-demos/resources/public/documents/chat-app-demo.org

Example chat app

(def user-list-item [user]
  [:article.dt.w-100.bb.b--black-05.pb2.mt2 {:href "#0"}
   [:div.dtc.w2.w3-ns.v-mid
    [:img.ba.b--black-10.db.br-100.w2.w3-ns.h2.h3-ns {:src "http://mrmrs.github.io/photos/p/2.jpg"}]]
   [:div.dtc.v-mid.pl3
    [:h1.f6.f5-ns.fw6.lh-title.black.mv0 "Young Gatchell "]
    [:h2.f6.fw4.mt0.mb0.black-60 "@yg"]]
   [:div.dtc.v-mid
    [:form.w-100.tr
     [:button.f6.button-reset.bg-white.ba.b--black-10.dim.pointer.pv1.black-60 {:type "submit"} "+ Follow"]]]])

(def user-list [users]
  (into
   [:main.mw6.center]
   (mapv user-item-list user)))