Permalink
Browse files

Remove debug

  • Loading branch information...
1 parent c30135b commit 2a5fd21f9008c64da08514cf81277c46b860cef8 @mtnygard committed Jun 28, 2011
Showing with 1 addition and 6 deletions.
  1. +1 −6 src/clj/growl.clj
View
7 src/clj/growl.clj
@@ -3,12 +3,7 @@
(:import [javax.script ScriptEngine ScriptEngineManager]))
(def apple-script-engine (.getEngineByName (ScriptEngineManager.) "AppleScript"))
-
-(defn- eval-apple-script
- [s]
- (println s)
- (.eval apple-script-engine s (.getContext apple-script-engine)))
-
+(defn- eval-apple-script [s] (.eval apple-script-engine s (.getContext apple-script-engine)))
(defn q [n] (str \" n \"))
(defn as-array [c] (str \{ (s/join \, (map (comp q name) c)) \}))
(defn tell [appname & s] (eval-apple-script (str "tell application " (q appname) "\n" (s/join s) "\nend tell")))

0 comments on commit 2a5fd21

Please sign in to comment.