This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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}) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;Steps toward pulling otu composiiton strategy. need to do same for input so calcs ca be push through or pill through. | |
(defn async [f task out] (f task out)) | |
(defn sync [f task out] (out (f task))) | |
(defn in-pool | |
[p f] | |
(fn [& args] | |
(.submit p (fn [] (apply f args))))) | |
;;TODO; unable to shutdown pool. seems recursive fns are not responding to interrupt. http://download.oracle.com/javase/tutorial/essential/concurrency/interrupt.html |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defn set-log-level! | |
([level] | |
(set-log-level! [(org.apache.log4j.Logger/getRootLogger)] level)) | |
([loggers level] | |
(let [loggers (map (fn [l] (if (string? l) | |
(org.apache.log4j.Logger/getLogger l) | |
l)) | |
loggers)] | |
(doseq [l loggers] | |
(.setLevel l (case level |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
import re | |
test = '<a href="http://m.twitter.com/" rel="nofollow">mobile web</a>' | |
p = re.compile("\<.*[a|A].*\>(.*)\<.*/[a|A].*\>") | |
m = p.match(test) | |
print m.groups()[0] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
- (void)setSelected:(BOOL)isSelected | |
{ | |
[self setBackgroundColor:isSelected ? [CPColor colorWithPatternImage:[[CPImage alloc] initWithContentsOfFile:"Resources/screen-selection.png" size:CGSizeMake(1.0, 24.0)]] : nil]; | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;; Not too bad for a :once fixture | |
(defn test-ns-hook | |
[] | |
(init-db (fn [] (get-tests) | |
(put-tests)))) | |
;;; Gets ugly fast for :each fixtures | |
(defn test-ns-hook | |
[] | |
(init-db (fn [] (get-tests)) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// | |
// FileUpload.j | |
// Editor | |
// | |
// Created by Francisco Tolmasky on 03/04/08. | |
// Copyright 2005 - 2008, 280 North, Inc. All rights reserved. | |
// | |
import <Foundation/CPObject.j> | |
import <Foundation/CPValue.j> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defn domap | |
"A map for side-effects. The argument order is the same as map, but | |
unlike map the function results are not retained. Takes a function | |
followed by any number of collections and applies the function to the | |
first item in each coll, then the second etc. Returns nil." | |
[fn & colls] | |
(let [num-colls (count colls)] | |
(doseq [args (partition num-colls (apply interleave colls))] | |
(apply fn args)))) |
NewerOlder