common.clj

(ns fx.utils.common
  (:require
   [malli.core :as m]))


(defn entity-key->entity-type [entity-key]
  (if (vector? entity-key)
    (second entity-key)
    entity-key))

(m/=> entity-key->entity-type
  [:=> [:cat [:or :qualified-keyword [:vector :qualified-keyword]]]
   :qualified-keyword])


(defn tap->
  "Like tap> but returns value
   If multiple values passed will return the first one"
  [& args]
  (tap> (reverse args))
  (first args))


(defn tap->>
  "Like tap> but returns value
   If multiple values passed will return the last one"
  [& args]
  (tap> args)
  (last args))