             [trifl.fs :as fs]))
 
 (def post-regex #"posts/(\d{4})-(\d{2})/(\d{2})-(\d{2})(\d{2})(\d{2})/.*")
-(def date-format ":year-:month-:day :hour::minute::second")
+(def timestamp-format ":year-:month-:day :hour::minute::second")
+(def datestamp-format ":year-:month-:day")
 
 (defn get-build
   []

  (-> month
      (month->name)
      (subs 0 3)))

    :all))

(defn format-date
  [date-map formater]
  (reduce
    (fn [acc [k v]]
      (string/replace acc (str k) v))
    formater
    date-map))

(defn format-timestamp
  [date-map]
  (format-date date-map timestamp-format))

(defn format-datestamp
  [date-map]
  (format-date date-map datestamp-format))

(defn sanitize-str
  [str]
