Advertisement
Guest User

Untitled

a guest
Mar 24th, 2017
111
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (def users [
  2.             {:user-id "1"
  3.              :name "A"}
  4.  
  5.             {:user-id "2"
  6.              :name "B"}
  7.  
  8.             {:user-id "3"
  9.              :name "C"}
  10.  
  11.             {:user-id "4"
  12.              :name "D"}
  13.             ])
  14.  
  15. (defn remove-nth [n v]
  16.   (keep-indexed #(when-not (= n %1) %2) v))
  17.  
  18. (defn list-item [i list-name user]
  19.   (let [{:keys [user-id name]} user]
  20.     [:li (clojure.string/join " " ["#" i ":" user-id name])
  21.      [:button.btn.btn-primary {:on-click (fn[]
  22.                                            (swap! list-name #(remove-nth i %)))} "Remove"]]))
  23.  
  24. (defn list-people [list-name]
  25.   (if (not-empty @list-name)
  26.     [:ul.list-unstyled
  27.      (map-indexed (fn [i user]
  28.                       ^{:key i}
  29.                       [list-item i list-name user]) @list-name)]
  30.     [:em "No patients."]))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement