select-keys.clj

(defn select-keys* [m paths]
  (apply merge-in
        (map #(cond
                (nil? %)              nil
                (not (sequential? %)) {% (get m %)}
                (= 1 (count %))       {(first %) (get m (first %))}
                :else                 {(first %) (select-keys* (get m (first %)) [(rest %)])})
             paths)))

(comment
  (def ks  [[:map :zoom] :display [:transect :query]])
  (def ks2 [[:map :zoom] :display [:map :active] [:transect :query]])
  (def m {:map
          {:center [-34.506683349609375 135.2468490600586],
           :zoom   10,
           :active (95)},
          :display
          {:sidebar   {:selected "tab-habitat"},
           :catalogue {:tab "org", :expanded #{}}},
          :transect   {:show? false, :query nil},
          :legend-ids ()})
  
  (select-keys* m ks)

;; {:map {:zoom 10},
;;  :display
;;  {:sidebar {:selected "tab-habitat"},
;;   :catalogue {:tab "org", :expanded #{}}}, 
;;  :transect {:query nil}}

  (select-keys* m ks2)
;; {:map {:zoom 10, :active (95)},
;;  :display
;;  {:sidebar {:selected "tab-habitat"},
;;   :catalogue {:tab "org", :expanded #{}}}, 
;;  :transect {:query nil}}
  
  )