From: Christophe Rhodes <csr21@cantab.net>
Date: Tue, 25 Mar 2014 16:22:11 +0000 (+0000)
Subject: add a keymap to the mixer bar
X-Git-Url: http://christophe.rhodes.io/gitweb/?p=squeeze-el.git;a=commitdiff_plain;h=aaded6da36926b4518435ac2beb965342c6e04bf

add a keymap to the mixer bar

also cleverness with intangible text property to avoid having
a useless space at the end of lines
---

diff --git a/squeeze.el b/squeeze.el
index bcdf4e2..d71a503 100644
--- a/squeeze.el
+++ b/squeeze.el
@@ -143,16 +143,15 @@
                   (t "█"))
             (make-string nblank ? ))))
 
-(defun squeeze-mixer-insert-bar (vol width)
+(defun squeeze-mixer-make-bar (vol width)
   (let ((bar (squeeze-mixer-compute-bar vol width))
         (lo (floor (* 0.65 width)))
         (hi (floor (* 0.9 width))))
-    (insert ?▕
+    (concat "▕"
             (propertize (substring bar 0 lo) 'face 'squeeze-mixer-quiet-face)
             (propertize (substring bar lo hi) 'face 'squeeze-mixer-medium-face)
             (propertize (substring bar hi) 'face 'squeeze-mixer-loud-face)
-            ?▏
-            )))
+            (propertize "▏" 'intangible t))))
 
 (defvar squeeze-players ())
 
@@ -189,6 +188,10 @@
   (when id
     (comint-send-string (get-buffer-process "*squeeze*") (format "%s mixer volume %+d\n" id (- inc)))))
 
+(defun squeeze-control-volume-set (id val)
+  (interactive)
+  (comint-send-string (get-buffer-process "*squeeze*") (format "%s mixer volume %d\n" id val)))
+
 (defun squeeze-control-query-mixer-volume (&optional id)
   (interactive)
   (unless id
@@ -217,6 +220,20 @@
       (accept-process-output (get-buffer-process "*squeeze*"))))
   (squeeze-control-display-players))
 
+(defvar squeeze-control-mixer-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map (kbd "RET") 'squeeze-control-mixer-foo)
+    map))
+
+(defun squeeze-control-mixer-foo ()
+  (interactive)
+  (let* ((end (next-single-property-change (point) 'keymap))
+         (start (previous-single-property-change end 'keymap))
+         (val (/ (* 100 (- (point) start)) (- end start 1)))
+         (id (get-text-property (point) 'squeeze-playerid)))
+    (message "start %d, end %d, val %d" start end val)
+    (squeeze-control-volume-set id val)))
+
 (defun squeeze-control-display-players ()
   (interactive)
   (let ((players squeeze-players))
@@ -229,8 +246,11 @@
                             'face (squeeze-control-player-face player)
                             'squeeze-playerid (squeeze-player-playerid player)))
         (when (squeeze-player-volume player)
-          (squeeze-mixer-insert-bar (squeeze-player-volume player) 28))
-        (insert "\n"))
+          (insert (propertize (squeeze-mixer-make-bar (squeeze-player-volume player) 28)
+                              'squeeze-playerid (squeeze-player-playerid player)
+                              'keymap squeeze-control-mixer-map
+                              'rear-nonsticky '(keymap))))
+        (insert (propertize "\n" 'intangible t)))
       (read-only-mode 1))))
 
 (cl-defstruct (squeeze-player (:constructor squeeze-make-player))