logger.cljs

(ns stopwatch.logger
  (:use [clojure.string :only (split-lines)]
        [stopwatch.util :only (get-log-path)])
  (:require [cljs.nodejs :as node]))

(def fs (node/require "fs"))
(def moment (node/require "moment"))

(defn- parse-datetime [date]
  (.toDate (moment date "HH:mm \\o\\n DD.MM.YYYY")))

(defn- parse-record [r]
  (let [[_ project start end] (re-find #"([^\:]+)\:\s*(.+) \- (.+)" r)]
    {:project project
     :start   (parse-datetime start)
     :end     (parse-datetime end)}))

(defn read
  ([]
    (read (get-log-path)))
  ([filename]
    (try
      (map parse-record (split-lines (.readFileSync fs filename "utf-8"))))
      (catch e [])))

util.cljs

(ns stopwatch.util
  (:require [cljs.nodejs :as node]))

(defn get-log-path []
  (.-STOPWATCH_LOG_PATH (.-env (js->clj node/process))))