Skip to content

Instantly share code, notes, and snippets.

View drone29a's full-sized avatar

Matt Revelle drone29a

View GitHub Profile
(import java.util.concurrent.Executors)
(use '[plumbing.core :only [wait-until with-log]])
(require '[work.core :as work]
'[fetcher.core :as fetcher])
(def test-feed-urls
["http://daringfireball.net/index.xml" "http://www.rollingstone.com/siteServices/rss/allNews" "http://feeds.feedburner.com/iamwhitePosterous" "http://www.9to5mac.com/feed" "http://abovethecrowd.com/feed/" "http://feeds.feedburner.com/pulsosocial" "http://www.bytearray.org/?feed=rss2" "http://usabilitytestinghowto.blogspot.com/feeds/posts/default" "http://mgalligan.com/rss" "http://feeds.searchengineland.com/searchcap" "http://feeds.feedburner.com/palletops" "http://googledevjp.blogspot.com/feeds/posts/default" "http://blog.boxee.tv/feed/" "http://twitgoo.com/1r6osl/?format=rss" "http://davidrcole.com/feed/" "http://milancermak.posterous.com/rss.xml" "http://typedia.com/blog/feed/" "http://diveintohtml5.org//hg.diveintohtml5.org/hgweb.cgi/atom-log" "http://www.curious-creature.org/feed/" "http://networkeffect.allthingsd.com/fee
@drone29a
drone29a / jme3_local_install.py
Last active December 20, 2015 08:29
Use lein localrepo to install jMonkeyEngine3 jars. Build jME3 with "ant build-engine" then run this script from "<jme3_root>/engine/dist/lib".
import os
import subprocess
path = os.path.dirname(os.path.realpath(__file__))
def install_cmd(fname, group_id, art_id, version):
return "lein localrepo install %s %s/%s %s" % (fname, group_id, art_id, version)
for fname in os.listdir(path):
name = os.path.splitext(fname)[0]
@drone29a
drone29a / randon_schema_ex.clj
Created July 17, 2014 12:32
A random Schema example
(defn integer-string? [s]
(and (string? s)
(every? (partial contains? #{\0 \1 \2 \3 \4 \5 \6 \7 \8 \9}) s)))
(def IntStr (sc/pred integer-string?))
(def DateStr (sc/pred (comp not nil? #(.parse (SimpleDateFormat. "yyyy-MM-dd") % (ParsePosition. 0)))))
(def FundingAgentLevel
{(sc/required-key "id") String
(sc/required-key "name") String
(sc/optional-key "abbr") String})