Html Cleaner

html-o-matic

(use 'pl.danieljanus.tagsoup)
(use 'hiccup.core)

(defn parser [file_path]
  (pl.danieljanus.tagsoup/parse (java.io.ByteArrayInputStream. (.getBytes (slurp file_path)))))

(defn attr_filter [element]
  (cond
    (map? element) {}
    (=  (type []) (type element)) (mapv identity (map attr_filter element))
    :else element))

(defn sanitizer [parsed_data]
  (mapv identity (map attr_filter parsed_data)))

(defn renderer [sanitized_data]
  (hiccup.core/html sanitized_data))

(defn html_cleaner [file_path]
  (renderer (sanitizer (parser file_path))))

(defn clean-o-matic [input_file output_file]
  (with-open [w (clojure.java.io/writer  output_file :append true)]
    (.write w (html_cleaner input_file))))