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

May specify an argument to simple commands

Browse source
This commit is contained in:
Renaud Casenave-Péré 2011-06-30 12:21:23 +09:00
parent e650be5d5b
commit dcdeeb8ead
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
empc.el
View file

@ -185,10 +185,12 @@ If the stream process is killed for whatever the reason, pause mpd if possible."
(defmacro empc-define-simple-command (command)
"Define a simple command that doesn't require heavy response processing."
`(defun ,(intern (concat "empc-send-" command)) ()
`(defun ,(intern (concat "empc-send-" command)) (&optional arg)
,(concat "Send " command " to the server.")
(interactive)
(empc-send ,command)))
(if arg
(empc-send (concat ,(concat command " ") arg))
(empc-send ,command))))
(empc-define-simple-command "play")
(empc-define-simple-command "stop")