(defn configure
  ""
  [session & {:keys [config max-heap heap-new jmx-port
                     jvm-base-opts jvm-opts role nodes wrappers
                     max-seeds]
              :or   {max-heap      "4G"
                     heap-new      "1G"
                     jmx-port      7199
                     jvm-base-opts default-jvm-opts
                     max-seeds     2
                     role          :cassandra}
              :as   options}]
  (let [config        (merge default-config config)
        jvm-opts      (concat jvm-base-opts jvm-opts)]
    (-> session
        (remote-file/remote-file "/etc/cassandra/cassandra-env.sh"
                                 :content (environment
                                           max-heap heap-new jmx-port jvm-opts))
        (remote-file/remote-file "/etc/cassandra/cassandra.yaml"
                                 :content (yaml/generate-string
                                           (-> config
                                               (wrap-address session)
                                               (wrap-seeds session role))))
        ((fn [s] (log/warn "Calling PROXIED-BY") s))
        (haproxy/proxied-by :director :cassandra :ip (compute/private-ip
                                                       (session/target-node session))))))