New scraping routines

src/com_jakewindle_git/scraper.clj

@@ -1,6 +1,27 @@
 (ns com-jakewindle-git.scraper
-  (:require [clj-http.client :as client]))
+  (:gen-class)
+  (:require [clj-http.client :as client]
+            [hickory.core :as hick]))
 
+;; Models
+
+;; Page
+(defn page [html]
+  {:html html :parsed nil})
+
+(defn get-src [uri]
+  (:body (client/get uri)))
+
+(defn parse-src [src]
+  (hick/parse src))
+
+(defn new-page [uri]
+  (-> uri
+      (get-src)
+      (parse-src)
+      (page)))
+
+;; Entities
 (defn greet
   "Callable entry point to the application."
   [data]