Skip to content

Instantly share code, notes, and snippets.

@mudgen

mudgen/gist:4068032

Created November 13, 2012 20:03
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 mudgen/4068032 to your computer and use it in GitHub Desktop.
Save mudgen/4068032 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
(defn -getIcon
[this kind]
(condp some #(= kind %)
[BeanInfo/ICON_COLOR_16x16
BeanInfo/ICON_MONO_16x16] (load-icon this "/images/hello_world_16.png")
[BeanInfo/ICON_COLOR_32x32
BeanInfo/ICON_MONO_32x32] (load-icon this "/images/hello_world_32.png")))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment