crappyrules/notehub
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

minor improvements

Browse Source
This commit is contained in:
Christian Mueller
2014-03-31 11:26:59 +02:00
parent 6e923b907b
commit 31763becb5
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/notehub/storage.clj
+4 -3
View File
@@ -139,8 +139,9 @@
all-notes (map first (partition 2 (redis :hgetall :note))) all-notes (map first (partition 2 (redis :hgetall :note)))
old-notes (filter #(< (Long/parseLong (redis :hget :published %)) timestamp) all-notes) old-notes (filter #(< (Long/parseLong (redis :hget :published %)) timestamp) all-notes)
unpopular-notes (filter #(< (try (Long/parseLong (redis :hget :views %)) unpopular-notes (filter #(< (try (Long/parseLong (redis :hget :views %))
(catch Exception a 0)) N) old-notes)] (catch Exception a 0)) N) old-notes)]
(println "timestamp:" (str (java.util.Date. timestamp))) (println "timestamp:" (str (java.util.Date. timestamp)))
(println (count unpopular-notes) "deleted")
(doseq [note-id unpopular-notes] (doseq [note-id unpopular-notes]
(delete-note note-id))))) (do (println "deleting" note-id)
(delete-note note-id)))
(println (count unpopular-notes) "deleted"))))