   (filter trend-installed? ping-successful-list)))
 
 (defn create-data-map
-  "parse the list of lists returned from read-csv"
+  "parse the list of lists returned from read-csv
+  If you want more data returned un-comment the fields below"
   [item]
   (let [[ip cp-name domain mac-ad off-scan-status ping prod-name platform os-server version patt-file scan-eng prev-pol cp-des rem-install] item]
     {:ip ip
-     :cp-name cp-name
-     :domain domain
-     :mac-ad mac-ad
+     ;; :cp-name cp-name
+     ;; :domain domain
+     ;; :mac-ad mac-ad
      :off-scan-status off-scan-status
      :ping ping
-     :prod-name prod-name
+     ;; :prod-name prod-name
      :platform platform
-     :os-server os-server
-     :version version
-     :patt-file patt-file
-     :scan-eng scan-eng
-     :prev-pol prev-pol
-     :cp-des cp-des
-     :rem-install rem-install}))
+     ;; :os-server os-server
+     ;; :version version
+     ;; :patt-file patt-file
+     ;; :scan-eng scan-eng
+     ;; :prev-pol prev-pol
+     ;; :cp-des cp-des
+     ;; :rem-install rem-install
+     }))
 
 (defn read-csv
   "read in a csv file"

(defn -main
  "do some fun stuff with csv files"
  [& args]
  (println "give me a file: ")
    (let [file-name (read-line)
          csv-data (read-csv file-name)
          data-map (map create-data-map csv-data)]
    (create-final-list data-map)))

(ns trend-compliance.core
  (:require [clojure.data.csv :as csv]
            [clojure.java.io :as io]
            [clojure.string :as str]
            [clojure.pprint :as pp])
  (:gen-class))

(defn trend-installed?
