   (let [current-date (t/date-time year month)
         end-date     (t/plus current-date (t/months 1))]
     (month-seq current-date end-date (t/days 1))))
-
 
 (defn get-today [] 
   (t/to-time-zone (t/now) (t/default-time-zone))) 


(defn get-filename-extension [date]
  (file-format (convert-to-filename-extension date)))
 
(defn -main
  [& args]
  (println "Today is: " (get-journal-header (get-today)))
  (println "file format is: " (get-filename-extension (get-today)))
  (loop [days (number-of-days-in-month 2017 03)] 
    (when (seq days)
      (let [day (first days)
            journal-header (get-journal-header day)

        (spit filename journal-header)
        (recur (rest days))))))

(defn -main
  [& args]
  (println "Today is: " (get-journal-header (get-today)))
  (println "file format is: " (get-filename-extension (get-today)))
  (generate-journal-files 2017 03))
