 ;;:= TODO: make diferent behavior of deffirent args.
 ;;:= TODO: make tags options
 (defn -main [& args]
-  (let [commentDict (read-json)]
+  (let [commentDict (read-json)
+        [root & filetypes] args]
     (println args)
-    (println (read-files commentDict "./src" "clj" "")))
+    (println filetypes)
+    (println (read-files commentDict root filetypes)))
 )

  )


(defn read-files ;;:= TODO: directory format
  "(partial read-comments-inline commentMark)"
  ([commentDict]
   (doall (for [filepath (get-all-files)
                :when (not (.isDirectory (io/file filepath)))

                :when mark]
            (conj (read-comments-in-file filepath mark)
                  filepath))))
  ([commentDict root filetypes]
   (let [typepatterns (for [filetype filetypes
                            :when (not= "" filetype)]
                        (list (re-pattern (str ".+" filetype "$"))
