XML Analyzer

core.clj

(ns xml-ids.core
  (:require [clojure.xml :as xml])
  (:require [clojure.string :as string])
  (:require [clojure.java.io :as io])
  (:gen-class))

(def source-list "list.txt") ;; List of paths to XML layouts, one per line.

(def ignored-tags [:import :data :variable :import :layout :merge :layout])

(defn skip? [tag] (some #(= % tag) ignored-tags))

(defn has-id? [attrs] (contains? attrs :android:id))

(defn identify [root nesting-level]
  (let [tag   (:tag root)
        children (:content root)]
    (do 
      (println "")
      (print (str nesting-level ";"))
      (print (str tag ";"))
      (print (str (count children) ";"))
      (print (str (or 
                    (skip? (:tag root)) 
                    (has-id? (:attrs root))) 
                  ";"))
      (doseq [child children 
              :when (not (skip? (:tag child)))] 
        (identify child (inc nesting-level)))
    )))

(defn -main
  [& args]
  (let [layouts (string/split (slurp source-list) #"\n") ]
    (doseq [layout layouts]
      (let [xml-contents (slurp layout)
            parsed-xml   (-> 
                           xml-contents
                           .getBytes
                           io/input-stream
                           xml/parse)]
        (println "")
        (print layout)
        (identify parsed-xml 0)
        (println "")))))