Skip to content

Instantly share code, notes, and snippets.

@sorenmacbeth

sorenmacbeth/shaper_tests.clj

Created October 2, 2011 20:07
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save sorenmacbeth/1257870 to your computer and use it in GitHub Desktop.
Save sorenmacbeth/1257870 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
shaper_tests.clj
(let [src [["http://www.google.co.in.../search?hl=en&source=hp&q=farewell quotes&meta=&oq=farewell &aq=0&aqi=g10&aql=&gs_sm=c&gs_upl=1235l2985l0l6500l9l9l0l2l2l0l234l1451l0.2.5l7l0"]
["http://www.google.com/search?q=farewell%20quotes"]
["http://www.dopeness.org/foo"]
[""]]]
(fact?<-
[[nil nil] ["www.google.com" "farewell quotes"] ["www.dopeness.org" ""] ["(direct)" ""]]
[!ref !kw]
(src ?r)
(expand-fields ?r :> !kw !ref)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment