Skip to content

Instantly share code, notes, and snippets.

@dakrone
Created January 14, 2011 03:37
Show Gist options
  • Select an option

  • Save dakrone/779130 to your computer and use it in GitHub Desktop.

Select an option

Save dakrone/779130 to your computer and use it in GitHub Desktop.
(defcommand catchup [channel args]
(let [msg (format "yum: %s" (doall (remove nil? (map :text (select @db :message nil)))))]
(spit "/tmp/foo.log" msg)
(send-to-client channel 777
msg)))
‹ ~ › ∴ cat /tmp/foo.log
yum: clojure.lang.LazySeq@ebcedf87%
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment