(ns clj-shrink.models.link
  (:require [clj-time.core :as ctime]
            [clj-time.format :as tform]
            [clj-time.coerce :as coerce]
            [clojure.string :as string])
  (:use korma.db
        korma.core))

(def time-format (tform/formatter "H:mm:ss" (ctime/default-time-zone)))
(def date-format (tform/formatter "MM/dd/yy" (ctime/default-time-zone)))

(defn timestamp []
  (let [now (ctime/now)]
    (str (tform/unparse date-format now) " " (tform/unparse time-format now))))

Generated by matt using scpaste at Sun Nov 6 20:29:28 2011. EST. (original)