Adds some sourcecode docu

Author: jtkDvlp

README.md

@@ -1,3 +1,7 @@
-# core.async-helpers [![Clojars Project](https://img.shields.io/clojars/v/jtk-dvlp/core.async-helpers.svg)](https://clojars.org/jtk-dvlp/core.async-helpers) [![cljdoc badge](https://cljdoc.org/badge/jtk-dvlp/core.async-helpers)](https://cljdoc.org/d/jtk-dvlp/core.async-helpers/CURRENT)
+[![Clojars Project](https://img.shields.io/clojars/v/jtk-dvlp/core.async-helpers.svg)](https://clojars.org/jtk-dvlp/core.async-helpers)
+[![cljdoc badge](https://cljdoc.org/badge/jtk-dvlp/core.async-helpers)](https://cljdoc.org/d/jtk-dvlp/core.async-helpers/CURRENT)
+[![License](https://img.shields.io/badge/License-EPL%202.0-red.svg)](https://opensource.org/licenses/EPL-2.0)
+
+# core.async-helpers
 
 Helper pack for core.async

src/jtk_dvlp/async.cljc

@@ -4,17 +4,17 @@
 
   #?(:cljs
      (:require-macros
-      [jtk-dvlp.async :refer [go* <e! safe]]))
+      [jtk-dvlp.async :refer [go* <e! <p!]]))
 
   #?(:clj
      (:require
       [clojure.core.async :as async]
-      [jtk-dvlp.async.interop.promise :as p])
+      [jtk-dvlp.async.interop.promise]
 
      :cljs
      (:require
       [clojure.core.async :as async]
-      [jtk-dvlp.async.interop.promise :as p])))
+      [jtk-dvlp.async.interop.promise])))
 
 
 #?(:clj
@@ -76,7 +76,12 @@
    chs))
 
 (defn promise-chan
-  "TODO"
+  "Creates an promise like channel, see `core.async/promise-chan`.
+
+   Given function `f` can be used to fill the promise.
+   `f` will be called with one arg functions `resolve` and `reject`
+   to resolve or reject the created promise. Rejection value will
+   will be used as `ex-info` `cause`."
   ([]
    (async/promise-chan))
 
@@ -95,12 +100,17 @@
      c)))
 
 (defn ->promise-chan
+  "Ensure given channel `c` to be a `promise-chan` via
+   `pipe` it into a new `promise-chan`. See `core.async/promise-chan`
+   for more infos."
   [c]
   (->> (async/promise-chan)
        (async/pipe c)))
 
 #?(:clj
    (defmacro <p!
-     "Like `<!` for a promise via `p->c`."
+     "Like `<e!` for promise via `p->c` convertion.
+
+      Usage in combination with `go*`."
      [?exp]
-     `(<e! (p/p->c ~?exp))))
+     `(<e! (jtk-dvlp.async.interop.promise/p->c ~?exp))))

src/jtk_dvlp/async/interop/promise.cljc

@@ -13,7 +13,7 @@
 
 
 (defn p->c
-  "Creates a promise-channel and put the val of resolved promise `p`
+  "Creates a `promise-chan` and put the val of resolved promise `p`
    or put an instance of `ExceptionInfo` if promise is rejected.
    Closes the channel after took val."
   [p]