 
 ; Creates a new commit object (and all required tree objects)
 ; from the current index
+; TODO: Update the index, HEAD and branch after creating objects!
 (defn create-commit [message parent-hash]
   (let [[tree-hash tree-structs] (index-to-tree-objects)
-        timestamp (str (current-unix-time) " +0000")
+        timestamp (str (current-unix-time) " +0000") ; TODO: Use current timezone
         text (str "tree " tree-hash "\n"
                   "parent " parent-hash "\n"
                   "author " (get-author) " " timestamp "\n"

          (.write wrtr bdata))
        (unset-writable filepath)))
    filepath))

(defn write-tree [tree-struct]
  (-> tree-struct
      (tree-data)
      (byte-array)
      (write-object)))

(defn write-blob [text]
  (write-object (str "blob " (count text) "\0" text)))

        data (concat header-bs body)
        ]
    data))

(defn write-tree [tree-struct]
  (-> tree-struct
      (tree-data)
      (byte-array)
      (write-object)))

(defn hash-tree [tree-struct]
  (->> tree-struct
