       :buf  info)))
 
 (defn scope-close
-  "Close a given scope. Copes with the case where the server has crashed by
-  handling timeout errors when killing the scope's bus-synth."
+  "Close a given scope. Copes with the case where the server has crashed
+  by handling timeout errors when killing the scope's bus-synth."
   [s]
   (log/info (str "Closing scope: \n" s))
   (let [{:keys [id bus-synth buf]} s]

         (.setAlwaysOnTop keep-on-top)))))

(defn scopes-start
  "Schedule the scope to be updated every (/ 1000 FPS) ms (unless the scopes are
  already running in which case it does nothing."
  []
  (ensure-internal-server!)
  (dosync

       (scopes-start))))

(defn pscope
  "Creates a 'perminent' scope, i.e. one where the window is always kept
  on top of other OS windows. See scope."
  ([& args]
     (ensure-internal-server!)
     (apply scope (concat args [:keep-on-top true]))))
