Getting settings for all nodes for all groups

settings.clj

(defn get-group-settings [session group]
  (let [nodes (session/nodes-in-group session group)]
    (zipmap (map #(compute/primary-ip %) nodes)
            (map (fn [node]
                   (parameter/get-node-settings session node group nil))
                 nodes))))

(defn get-all-settings [session]
  (let [groups (map :group-name (:groups session))]
    (zipmap
     groups
     (map #(get-group-settings session %) groups))))