dictionary.clj

(defn answer-with [irc-data reply]
  (let [{:keys [irc channel nick]} irc-data]
    (ircb/send-message irc channel
      (str nick ": " reply)))

(defplugin 
  (:dict 
   "Takes a word and look's up it's definition via the Wordnik dictionary API."
   ["dict"]
   [{:keys [irc channel nick args] :as data}]
   (answer-with data 
		(let [[text part] (lookup-def (first args))]
		  (if (seq text) (str part ": " text) "Word not found.")))))

(defn answer-to [irc-data f]
  (let [{:keys [irc channel nick]} irc-data]
    (ircb/send-message irc channel
      (str nick ": " (f irc-data))))

(defplugin 
  (:dict 
   "Takes a word and look's up it's definition via the Wordnik dictionary API."
   ["dict"]
   [{:keys [irc channel nick args] :as data}]
   (answer-to data (fn [{:keys [args]}] 
		     (let [[text part] (lookup-def (first args))]
		       (if (seq text) (str part ": " text) "Word not found."))))))