Skip to content

Instantly share code, notes, and snippets.

@tnoborio

tnoborio/gist:574837

Created September 11, 2010 04:59
Show Gist options
  • Save tnoborio/574837 to your computer and use it in GitHub Desktop.
Save tnoborio/574837 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.clj
(defn carrier-by-request [{{user-agent "user-agent"} :headers :as req}]
(condp #(.startsWith %2 %1) user-agent
"DoCoMo" :docomo
"KDDI" :au
"SoftBank" :softbank))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment