(ns utils
  (:import java.text.SimpleDateFormat
           java.util.Date)
  (:use clojure.contrib.json.write
        clojure.contrib.sql))

(let [db-host "localhost"
      db-port 5432
      db-name "dumpfm"]
  (def *db* {:classname "org.postgresql.Driver"
             :subprotocol "postgresql"
             :subname (str "//" db-host ":" db-port "/" db-name)
             :user "postgres"
             :password "root"}))


;; Misc

(defn ms-in-future [ms]
  (+ ms (System/currentTimeMillis)))

(defn swap [f]
  (fn [& more] (apply f (reverse more))))

(def YYYYMMDD-format (new SimpleDateFormat "yyyyMMdd"))

(defn today []
  (.format YYYYMMDD-format (new Date)))

(def formatter (new SimpleDateFormat "h:mm a EEE M/d"))

(defn non-empty-string? [s]
  (cond (string? s) (> (count s) 0)
        :else s))

(defn seconds [t] (* t 1000))
(defn minutes [t] (* t 60 1000))

(defn kbytes [b] (* b 1024))
(defn mbytes [b] (* b 1024 1024))

;; JSON responses

(def yyyy-mm-dd-formatter (new SimpleDateFormat "yyyy-MM-dd"))

(defmethod print-json Date
  [d]
  (print-json (.format yyyy-mm-dd-formatter d)))

(defn resp-error [message]
  {:status 400 :headers {} :body message})

(defn resp-success [message]
  {:status 200 :headers {} :body (json-str message)})

;; Database

(defn do-select [query]
  (with-connection *db*
    (with-query-results rs query
      (doall rs))))

(defn do-count [query]
  ((first (with-connection *db*
	    (with-query-results rs query
	      (doall rs))))
   :count))

(defn do-delete [table query]
  (with-connection *db*
    (delete-rows table query)))

;; Parsing

(defn maybe-parse-int 
  ([s] (Integer/parseInt s))
  ([s default]
     (try (Integer/parseInt s)
          (catch NumberFormatException _ default))))

(defn maybe-parse-long [s f]
  (if s (Long/parseLong s) f))