props.clj

(defn >props-seq
  ([props-map carry out]
    (reduce
      (fn [coll [k v]]
        (let [carry-str (if carry (str carry ".") "")
              prefix (str carry-str (name k))]
          (if (map? v)
            (concat coll (>props-seq v prefix []))
            (conj coll [prefix v]))))
      out
      props-map))

  ([props]
    (>props-seq props nil [])))