kvmap.clj

(defn kvmap [fun hash]
  (into {} (map (fn [[k v]] [k (fun k v)]) 
                (seq hash))))

(kvmap (fn [k v] (str v "/" k)) {"host" "http://localhost" "most" "umph"})
;; => {"most" "umph/most", "host" "http://localhost/host"}


(defn kvmpa [fun hs]
  (reduce-kv (fn [all k v]
               (assoc all k (fun k v))) {} hs))

;; Let fun take and return a k/v pair
(defn kvamp [fun hs]
  (into {} (map fun (seq hs))))
(kvmap (fn [[k v]] [k (str v "/" k)]) {"host" "http://localhost" "most" "umph"})