Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (def users [
- {:user-id "1"
- :name "A"}
- {:user-id "2"
- :name "B"}
- {:user-id "3"
- :name "C"}
- {:user-id "4"
- :name "D"}
- ])
- (defn remove-nth [n v]
- (keep-indexed #(when-not (= n %1) %2) v))
- (defn list-item [i list-name user]
- (let [{:keys [user-id name]} user]
- [:li (clojure.string/join " " ["#" i ":" user-id name])
- [:button.btn.btn-primary {:on-click (fn[]
- (swap! list-name #(remove-nth i %)))} "Remove"]]))
- (defn list-people [list-name]
- (if (not-empty @list-name)
- [:ul.list-unstyled
- (map-indexed (fn [i user]
- ^{:key i}
- [list-item i list-name user]) @list-name)]
- [:em "No patients."]))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement