Skip to content

Commit

Permalink
cleanup
Browse files Browse the repository at this point in the history
  • Loading branch information
odyssomay committed Nov 4, 2011
1 parent d018dfb commit 95d14f8
Showing 1 changed file with 0 additions and 2 deletions.
2 changes: 0 additions & 2 deletions src/simip/core.clj
Expand Up @@ -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.