 (defn is-log?
   [line]
   (.startsWith line "LOG"))
-
-(defn is-author?
-  [line]
-  (.startsWith line "Author"))
-(defn is-date?
-  [line]
-  (.startsWith line "Date"))
-(defn is-commit?
-  [line]
-  (.startsWith line "Commit"))
-(defn is-message?
-  [line]
-  (.startsWith line "Message"))
 
 (defn get-log-seq
   [project-url ]

20      16      source/TvApp/src/org/droidtv/playtvapp/browse/ChannelItemView.java
0       7       source/TvApp/src/org/droidtv/playtvapp/browse/SourceBrowser.java
1       1       source/TvApp/src/org/droidtv/playtvapp/data/Channel.java
5       0       source/TvApp/src/org/droidtv/playtvapp/data/Data.java
Author:Jonathan Jeurissen
Date:1428422271
Commit:2e99f048810717b7a49eb328cac95c87bc4691c8
Message:[ReacTV] Renamed resource file for build issue

-       -       source/ReacTV/res/drawable/App_icon_original.png
-       -       source/ReacTV/res/drawable/app_icon_original.png
Author:Jonathan Jeurissen"

)

(defn get-commit-author
  [line]
  (if-let [ret (clojure.string/split line #":")]
    (if (= (nth ret 0) "Author")
      (nth ret 1))))
(defn get-commit-date
  [line]
  (if-let [ret (clojure.string/split line #":")]
    (if (= (nth ret 0) "Date")
      (nth ret 1))))
(defn get-commit-revision
  [line]
  (if-let [ret (clojure.string/split line #":")]
    (if (= (nth ret 0) "Commit")
      (nth ret 1))))
(defn get-commit-message
  [line]
  (if-let [ret (clojure.string/split line #":")]
    (if (= (nth ret 0) "Message")
      (nth ret 1))))

;;; return [add delete file] vector
(defn get-change-file

;;; lst is like: ("Author:..." "Date:..." ....""...)
(defn parse-log-head
   [lst ]
   (->commit-rec (get-commit-field lst "Author")
                 (get-commit-field lst "Date")
                 (get-commit-field lst "Commit")
                 (get-commit-message lst)))

;;; "-" "1" ->  0 1
(defn get-line-count
