variadic keyword args or map or no-args

kargs.clj

(defn kargs
  ([] (kargs {}))
  ([a b & {:as r}]
   (kargs (assoc r a b)))
  ([a] a))

(and (= (kargs :some 1 :me 2)
        (kargs {:some 1 :me 2})
        {:some 1 :me 2})
     (= (kargs)
        {}))
;; => true


(defmacro defkargs [name destrt & body]
  `(clojure.core/defn ~name
     ([] (~name {}))
     ([a# b# & {:as r#}]
      (~name (clojure.core/assoc r# a# b#)))
     ([~destrt]
      ~@body)))

(defkargs kargs-test {:keys [some me]}
  (when (and some me)
    (+ some me)))

(and (= (kargs-test :some 1 :me 2)
        (kargs-test {:some 1 :me 2})
        3)
     (= (kargs-test)
        nil))
;; => true