Browse files

cleanup

  • Loading branch information...
1 parent d018dfb commit 95d14f8a2dc48ae39cacc6f6eba4fe82f9649ba0 @odyssomay committed Nov 4, 2011
Showing with 0 additions and 2 deletions.
  1. +0 −2 src/simip/core.clj
View
2 src/simip/core.clj
@@ -244,15 +244,13 @@
device-index (some #(re-matches #"[0-9]+" %) opts)
content (ssw/border-panel :center player-panel
:south indicator-panel)]
- (println filename device-index)
(ssw/config! frame :content content)
(open-sequencer (first (get-sequencers)))
(open-output-device (first (get-output-devices)))
(when filename
(open-midi-file (file filename)))
(when device-index
(set-midi-device (read-string device-index)))
-; (set-midi-device
(disable-focus content)
(-> frame ssw/pack! ssw/show!)))

0 comments on commit 95d14f8

Please sign in to comment.