23 lines
635 B
Org Mode
23 lines
635 B
Org Mode
#+TITLE: Example chat app
|
|
|
|
|
|
#+BEGIN_SRC clojure
|
|
|
|
(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)))
|
|
|
|
#+END_SRC
|