Find the running Pallet nodes in a group, along with their IP addresses

nodes-and-ips-in-group.clj

; Get the running nodes and the their ip addresses for the named group
; Need to define:
;   service - the pallet.compute service on which the nodes are running
(defn nodes-in-group
  [group]
    (filter
     #(and (.equals group (pallet.compute/group-name %))
           (pallet.compute/running? %))
     (pallet.compute/nodes service)))

(defn ips-in-group
  [group]
    (map
     #(pallet.compute/primary-ip %)
     (nodes-in-group group)))