michael/grub-fork
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Add thread-safe printer

Browse source
This commit is contained in:
Nicholas Kariniemi 2014-10-10 22:15:49 +03:00
parent fd1f9bddef
commit 75b58d58a3
1 changed files with 16 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/cljx/grub/util.cljx
View file

@ -1,7 +1,22 @@
(ns grub.util)
(ns grub.util
(:require [grub.diff :as diff]
#+clj [clojure.core.async :as a :refer [<! >! chan go]]
#+cljs [cljs.core.async :as a :refer [<! >! chan]])
#+cljs (:require-macros [grub.macros :refer [log logs]]
[cljs.core.async.macros :refer [go]]))
(defn map-by-key [key coll]
(->> coll
(map (fn [a] [(get a key) a]))
(into {})))
(defn printer []
(let [in (chan)]
(go (loop []
(when-let [msg (<! printer)]
#+clj (clojure.pprint/pprint msg)
#+clj (println "-------")
#+cljs (logs msg)
#+cljs (log "-------")
(recur))))))