implement full working first version

Author: MichelML

.travis.yml

@@ -0,0 +1 @@
+language: clojure

src/jlog/core.clj

@@ -1,7 +1,10 @@
 (ns jlog.core
   (:require [clojure.string :as str])
+  (:require [clojure.java.shell :only [sh]])
   (:gen-class))
 
+(use '[clojure.java.shell :only [sh]])
+
 (defn has-length?
   "Checks if a list or string is of length n."
   [args-list n]
@@ -37,7 +40,23 @@
       (str/replace timelog "h" "h ") 
       timelog)))
 
+(defn jar-path
+  "utility function to get the jar path without the jar file."
+  [& [ns]]
+  (str/replace (-> (or ns (class *ns*))
+      .getProtectionDomain .getCodeSource .getLocation .getPath) #"[^/]+$" ""))
+
+(def jira-issue
+  (future 
+    (let [out (:out (sh "hg" "branch"))]
+      (if-not (str/blank? out) 
+        (re-find #"[a-zA-Z]{3,4}-\d{1,4}" out)
+        (throw (Exception. "Cannot retrieve your current branch. Make sure you are in a repository's."))))))
+
 (defn -main [& args]
   (if (valid-jlog-args-list? (get-two-args args))
-    (spit "jlog.txt" (str (.format (java.text.SimpleDateFormat. "MM/dd/yyyy") (new java.util.Date)) " --- " (space-hrs&mins (second args)) "\n") :append true)
-    (println "Invalid syntax. Run jlog with 'jlog -t 1h'")))
+    (spit (str (jar-path) "jlog.txt") (str @jira-issue " --- " (.format (java.text.SimpleDateFormat. "MM/dd/yyyy") (new java.util.Date)) " --- " (space-hrs&mins (second args)) "\n") :append true)
+    (println "Invalid syntax. Run jlog with 'jlog -t 1h'"))
+  )
+
+