branch: externals/ampc
commit bdb75f9ab9e43657ffdb375f1f71988dcb99862e
Author: Christopher Schmidt <christop...@ch.ristopher.com>
Commit: Christopher Schmidt <christop...@ch.ristopher.com>
* ampc.el (ampc-mode-map): Add checkboxes to the toggle menu items.
---
ampc.el | 18 ++++++++++++------
1 file changed, 12 insertions(+), 6 deletions(-)
diff --git a/ampc.el b/ampc.el
index 7afeea4646..adca4d0bf1 100644
--- a/ampc.el
+++ b/ampc.el
@@ -42,7 +42,7 @@
;; Optionally bind a key to this function, e.g.:
;;
;; (global-set-key (kbd "<f9>") 'ampc)
-
+;;
;; Byte-compile ampc (M-x byte-compile-file RET /path/to/ampc.el RET) to
improve
;; its performance!
@@ -424,8 +424,8 @@ all the time!"
map))
;;; **** menu
-(easy-menu-define ampc-menu ampc-mode-map
- "Main Menu for ampc"
+(easy-menu-define nil ampc-mode-map
+ nil
'("ampc"
["Play" ampc-toggle-play
:visible (and ampc-status
@@ -445,9 +445,15 @@ all the time!"
["Decrease volume" ampc-decrease-volume]
["Increase crossfade" ampc-increase-crossfade]
["Decrease crossfade" ampc-decrease-crossfade]
- ["Toggle repeat" ampc-toggle-repeat]
- ["Toggle random" ampc-toggle-random]
- ["Toggle consume" ampc-toggle-consume]
+ ["Toggle repeat" ampc-toggle-repeat
+ :style toggle
+ :selected (equal (cdr-safe (assq 'repeat ampc-status)) "1")]
+ ["Toggle random" ampc-toggle-random
+ :style toggle
+ :selected (equal (cdr-safe (assq 'random ampc-status)) "1")]
+ ["Toggle consume" ampc-toggle-consume
+ :style toggle
+ :selected (equal (cdr-safe (assq 'consume ampc-status)) "1")]
"--"
["Trigger update" ampc-trigger-update]
["Quit" ampc-quit]))
