gistfile1.txt

(ns foo.core 
  (:use [net.cgrand.enlive-html :as html])  
)

(def BASEURL "https://en.wikipedia.org/wiki/")

(defn fetch-url [url]
  (html/html-resource (java.net.URL. url)))

(defn define
  "Fetches a page from wikipedia and prints the first paragraph"
  [q]
  (let [url (str BASEURL q)
        content (fetch-url url)]
    ((comp html/text
          first
          html/select) content [:#mw-content-text :p])
  )
)