Christophe
Weblog
Wiki
Code
Publications
Music
projects
/
squeeze-el.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b64ea2b
)
improve squeeze-control startup
author
Christophe Rhodes
<csr21@cantab.net>
Mon, 24 Mar 2014 09:16:12 +0000
(09:16 +0000)
committer
Christophe Rhodes
<csr21@cantab.net>
Mon, 24 Mar 2014 09:16:12 +0000
(09:16 +0000)
squeeze.el
patch
|
blob
|
history
diff --git
a/squeeze.el
b/squeeze.el
index 7ac1841083cf3ffc6bf7e163de2211d73ff9692c..88bcc3a74ce0b452f99aa17149259400e5325a6e 100644
(file)
--- a/
squeeze.el
+++ b/
squeeze.el
@@
-97,6
+97,9
@@
((string= power "0") 'squeeze-player-off-face)
(t 'squeeze-player-face))))
((string= power "0") 'squeeze-player-off-face)
(t 'squeeze-player-face))))
+(defun squeeze-control-listen ()
+ (comint-send-string (get-buffer-process "*squeeze*") (format "listen 1\n")))
+
(defun squeeze-control-refresh ()
(interactive)
(squeeze-control-query-players)
(defun squeeze-control-refresh ()
(interactive)
(squeeze-control-query-players)
@@
-207,4
+210,6
@@
(squeeze)
(let ((buffer (get-buffer-create "*squeeze-control*")))
(switch-to-buffer buffer)
(squeeze)
(let ((buffer (get-buffer-create "*squeeze-control*")))
(switch-to-buffer buffer)
+ (squeeze-control-listen)
+ (squeeze-control-refresh)
(squeeze-control-display-players)))
(squeeze-control-display-players)))