+(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)))
+