Permalink
Browse files

Cleanup: fix indentation

  • Loading branch information...
1 parent cf58335 commit 47ac5d9ee8a48cf740240fb421a1b16cd0145c53 @ivan ivan committed Apr 25, 2012
Showing with 20 additions and 20 deletions.
  1. +20 −20 src/clj/org/dipert/swingrepl/main.clj
@@ -69,26 +69,26 @@
"Displays a JFrame with JConsole and attached REPL."
([] (make-repl-jframe {}))
([optmap]
- (let [options (merge default-opts optmap)
- {:keys [title width height on-close prompt init eval]} options
- jframe (doto (JFrame. title)
- (.setSize width height)
- (.setDefaultCloseOperation on-close)
- (.setLocationRelativeTo nil))]
- (let [console (bsh.util.JConsole.)]
- (doto (.getContentPane jframe)
- (.setLayout (java.awt.BorderLayout.))
- (.add console))
- (doto jframe
- (.pack)
- (.setSize width height))
- (.requestFocus console)
- (let [thread (make-repl-thread console :prompt prompt :init init :eval eval)
- stopper (clojure.repl/thread-stopper thread)]
- (.setInterruptFunction console (fn [reason] (stopper reason)))
- (.setEOFFunction console (window-closing-dispatcher jframe))
- (.start thread)
- (.setVisible jframe true))))))
+ (let [options (merge default-opts optmap)
+ {:keys [title width height on-close prompt init eval]} options
+ jframe (doto (JFrame. title)
+ (.setSize width height)
+ (.setDefaultCloseOperation on-close)
+ (.setLocationRelativeTo nil))]
+ (let [console (bsh.util.JConsole.)]
+ (doto (.getContentPane jframe)
+ (.setLayout (java.awt.BorderLayout.))
+ (.add console))
+ (doto jframe
+ (.pack)
+ (.setSize width height))
+ (.requestFocus console)
+ (let [thread (make-repl-thread console :prompt prompt :init init :eval eval)
+ stopper (clojure.repl/thread-stopper thread)]
+ (.setInterruptFunction console (fn [reason] (stopper reason)))
+ (.setEOFFunction console (window-closing-dispatcher jframe))
+ (.start thread)
+ (.setVisible jframe true))))))
(defmacro make-dbg-repl-jframe
"Displays a JFrame with JConsole and attached REPL. The frame has the context

0 comments on commit 47ac5d9

Please sign in to comment.