[bknr-cvs] hans changed trunk/projects/planetwit/ - bknr-cvs@common-lisp.net - mailman3.common-lisp.net

20 Aug 2009

Revision: 4445
Author: hans
URL: http://bknr.net/trac/changeset/4445
improve console output
U   trunk/projects/planetwit/load.clj
U   trunk/projects/planetwit/planetwit.clj
Modified: trunk/projects/planetwit/load.clj
===================================================================

--- trunk/projects/planetwit/load.clj	2009-08-20 11:44:49 UTC (rev 4444)
+++ trunk/projects/planetwit/load.clj	2009-08-20 12:21:41 UTC (rev 4445)
@@ -1,8 +1,6 @@
 (load-file "http-client.clj")
 (load-file "planetwit.clj")
 (loop []
-  (println "polling")
   (planetwit/poll)
-  (println "sleeping")
   (. java.lang.Thread (sleep 300000))
   (recur))
Modified: trunk/projects/planetwit/planetwit.clj
===================================================================
--- trunk/projects/planetwit/planetwit.clj	2009-08-20 11:44:49 UTC (rev 4444)
+++ trunk/projects/planetwit/planetwit.clj	2009-08-20 12:21:41 UTC (rev 4445)
@@ -60,6 +60,7 @@
   [items]
   (when items
     (let [item (first items)]
+      (println (:title item))
       (update-twitter-status
        (format "%s %s"
                (:title item)

    