Skip to content

Instantly share code, notes, and snippets.

@hiredman
Created September 10, 2009 21:13
Show Gist options
  • Save hiredman/184831 to your computer and use it in GitHub Desktop.
Save hiredman/184831 to your computer and use it in GitHub Desktop.
(defn search-tickets-for [term]
(-> term search zip-soup first :content
((partial filter #(= :body (:tag %)))) first :content
((partial filter #(= :div (:tag %))))
((partial filter #(= "content" ((comp :id :attrs) %))))
((partial map :content)) first ((partial map :content))
((partial map first)) ((partial filter #(= :ul (:tag %)))) first :content
((partial map :content))
((partial map first))
((partial mapcat :content))
((partial filter #(= :h4 (:tag %))))
((partial mapcat :content))
((partial filter #(= :a (:tag %))))
((partial mapcat :content))))
@hiredman
Copy link
Author

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment