added excel.

src/clj/auto_ap/parse.clj

@@ -1,7 +1,8 @@
 (ns auto-ap.parse
   (:require [clojure.java.io :as io]
             [clojure.string :as str]
-            [clojure.java.shell :as sh]))
+            [clojure.java.shell :as sh]
+            [auto-ap.parse.excel :as excel]))
 
 (def templates
   [{:vendor "CHFW"
@@ -49,8 +50,23 @@
        first
        (extract-template text)))
 
-(defn parse-file
-  [file]
+
+(defmulti parse-file (fn [file filename]  (last (str/split filename #"\." ))))
+
+(defmethod parse-file
+  "pdf"
+  [file filename]
   (->  (sh/sh "pdftotext" "-layout" file "-")
        :out
        parse))
+
+(defmethod parse-file
+  "xls"
+  [file filename]
+  (excel/parse-file file filename))
+
+
+(defmethod parse-file
+  "xlsx"
+  [file filename]
+  (excel/parse-file file filename))