floss/empc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

macro defining toggling commands

Browse source
This commit is contained in:
Renaud Casenave-Péré 2011-06-22 19:44:00 +09:00
parent ccc41ce02c
commit 2e9f7f265c
1 changed files with 18 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
empc.el
View file

@ -120,7 +120,24 @@ return at the end of a request.")
,(concat "Send " command " to the server.")
(empc-send ,command)))
(define-simple-command "status")
(defmacro define-toggle-command (command)
"Define a command that toggle a state."
`(defun ,(intern (concat "empc-send-" command)) (&optional state)
,(concat "Send " command " to the server.")
(if state
,(if (memq command '("consume" "random" "repeat" "single" "pause"))
`(empc-send (concat ,command " " (int-to-string state)))
`(empc-send (concat ,command " " state)))
(let ((status (plist-get (empc-update-status) ,(intern command))))
,(if (memq command '("consume" "random" "repeat" "single" "pause"))
`(empc-send (concat ,command " " (if (= status 1) "0" "1")))
(when (string= command "xfade")
`(empc-send (concat ,command " " (if (= status 0)
(int-to-string empc-default-crossfade)
(progn
(setq empc-default-crossfade status)
"0"))))))))))
(define-simple-command "play")
(define-simple-command "stop")