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

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

  )


;;(partial read-comments-inline commentMark)
(defn read-files
  "Read all files depend on root path and file types, find comments inside and return."
  ([commentDict]
   (doall (for [filepath (get-all-files)
                :when (not (.isDirectory (io/file filepath)))
