gistfile1.txt

(ns bot1.core
  (import (org.jibble.pircbot PircBot))
  (require hobbit.bitly)
  (import (hobbit.bitly Bitly)))


(def *bot*)

(def url-regex #"[A-Za-z]+://[^  ^/]+\.[^  ^/]+[^ ]+")

(defn sendMsg "send a message to a recv, a recv is a channel name or a nick"
  [this recv msg]
  (.sendMessage this recv (.replace (str msg) \newline \ )))

(def *bitly* (hobbit.bitly/Bitly. "a" "b" "c"))

(defn handleMessage [channel sender login hostname message] 
  (let [url (re-find url-regex message)]
    (println url)))


(defn pircbot []
  (proxy [PircBot] []
    (onMessage [channel sender login hostname message]
      (handleMessage channel sender login hostname message)
    )))
    


(defn -main [& args]
  (def *bot* (pircbot))
  (.connect *bot* "")
  (.changeNick *bot* "clojure")
  (.joinChannel *bot* "#test"))