(ns whitman.core
  (:require [whitman.config :as config])
  (:gen-class))

(defn exit [code msg]
  (binding [*out* *err*]
    (do (println msg)
        (System/exit code))))

(defn -main [& args]
  (if (< (count args) 1)
      (exit 1 "No configuration file specified")
      (let [cfg (-> (nth args 0)
                    config/read-config)
            user-agent (get cfg "user-agent")]
        (println cfg))))

(ns whitman.core
  (:require [whitman.config :as config])
  (:gen-class))

(defn exit [code msg]
  (binding [*out* *err*]
    (do (println msg)
        (System/exit code))))

(defn -main [& args]
  (if (< (count args) 1)
      (exit 1 "No configuration file specified")
      (-> (nth args 0)
          config/read-config
          println)))

Use -> to simply main function...again
Use -> to simply main function...again

mdippery/whitman