Add empty-seq? function and update nodes-from-opt to handle empty sequences (#13)

1 files changed, 8 insertions, 0 deletions

diff --git a/src/dompa/nodes.cljc b/src/dompa/nodes.cljc
index d2f8e4b..eef65d3 100644
--- a/src/dompa/nodes.cljc
+++ b/src/dompa/nodes.cljc
@@ -142,11 +142,19 @@
   (and (sequential? coll)
        (> (count coll) 1)))
 
+(defn- empty-seq?
+  [coll]
+  (and (sequential? coll)
+       (empty? coll)))
+
 (defn- nodes-from-opt
   [opt]
   (cond (map? opt)
         opt
 
+        (empty-seq? opt)
+        nil
+
         (list-of-many? opt)
         {:node/name :<>
          :node/children opt}