Amateur Lisp

contacts.clj

; scrape some VCF in to Clojure data

(def raw_data (slurp "/Users/jd/Documents/contacts_dump.vcf"))

(defn deets [args]
  { :name (first (filter #(re-matches #"FN.*" %) args))
    :number (first (filter #(re-matches #"TEL.*" %) args))})

(def contacts
  (map deets
    (partition-by #(= % "END:VCARD")
    (clojure.string/split-lines raw_data))))

(defn missing_data? [rec]
  (or
    (nil? (:name rec))
    (nil? (:number rec))))

(def contacts_present
  (filter (comp not missing_data?) contacts))