- (unless address (setq address squeeze-server-address))
- (unless port (setq port squeeze-server-port))
- (when current-prefix-arg
- (let ((parameters (squeeze-read-server-parameters address port)))
- (setq address (car parameters)
- port (cdr parameters))))
- (let ((current-prefix-arg nil))
- (squeeze address port))
- (let ((buffer (get-buffer-create "*squeeze-control*")))
- (switch-to-buffer buffer)
- (squeeze-control-listen)
- (squeeze-control-refresh)
- (squeeze-control-display-players)))
+ (with-squeeze-parameters (address port)
+ (let ((current-prefix-arg nil))
+ (squeeze address port))
+ (let ((buffer (get-buffer-create "*squeeze-control*")))
+ (switch-to-buffer buffer)
+ (squeeze-control-listen)
+ (squeeze-control-refresh)
+ (squeeze-control-display-players))))
+
+(defun squeeze-control-reconnect (&optional address port)
+ (interactive)
+ (with-squeeze-parameters (address port)
+ (kill-buffer (get-buffer "*squeeze*"))
+ (let ((current-prefix-arg nil))
+ (squeeze-control address port))))