/src/hiredman/clojurebot/simplyscala.clj

http://github.com/hiredman/clojurebot · Clojure · 25 lines · 21 code · 4 blank · 0 comment · 2 complexity · 5e82b4748a00cf93f44d6ed8bb249ca9 MD5 · raw file 

    

  1. (ns hiredman.clojurebot.simplyscala
    2. 

  2.   (:use [hiredman.clojurebot.core :only (defresponder2 new-send-out extract-message)])
    3. 

  3.   (:require [hiredman.utilities :as util])
    4. 

  4.   (:import (java.net URLEncoder )))
    5. 

  5. 

  6. 

  7. (def scala-the-easy-way "http://www.simplyscala.com/interp?bot=irc&code=")
    8. 

  8. 

  9. (defn scala-eval [code]
    10. 

  10.     (-> code URLEncoder/encode ((partial str scala-the-easy-way))
    11. 

  11.           util/get-url (.split "res0: ") rest ((partial apply str))))
    12. 

  12. 

  13. (defresponder2
    14. 

  14.   {:priority 0
    15. 

  15.    :name ::scala
    16. 

  16.    :dispatch (fn [bot msg]
    17. 

  17.                (and (:addressed? (meta msg))
    18. 

  18.                     (.startsWith (extract-message bot msg) "scala")))
    19. 

  19.    :body (fn [bot msg]
    20. 

  20.            (new-send-out bot :msg msg
    21. 

  21.              (scala-eval
    22. 

  22.                (let [m (extract-message bot msg)]
    23. 

  23.                  (if (.startsWith m "scala")
    24. 

  24.                    (.replaceAll m "^scala" "")
    25. 

  25.                    (.substring m 1))))))})
    26.