kwarg-options.clj

;; Basis

(fn [& {:keys [a b]}] (+ a b))


;; gen param lists approach

(defn param-gen-style
  ([a-map]
   (let [{:keys [a b]} a-map]
     (+ a b)))

  ([a-key a-val & kvs]
   (let [{:keys [a b]} (concat (list a-key a-val) kvs)]
     (+ a b))))

(param-gen-style {:a 1 :b 2})
;;=> 3

(param-gen-style :a 1 :b 2)
;;=> 3



;; gen map check approach

(defn map-check-style
  [& kvs]
  (let [maybe-map (if (map? (first kvs)) (first kvs) kvs)
        {:keys [a b]} maybe-map]
    (+ a b)))


(map-check-style {:a 1 :b 2})
;;=> 3

(map-check-style :a 1 :b 2)
;;=> 3