Re: [STUMP] cmus interface

[JD Adams]

My latest version is using the package definition as you specified.  It
was a little tricky at first because I had to tweak my .stumpwmrc a bit
afterwards - I also had to change it to use "load" instead of
"load-module" - but now all seems to be working as before and my Lisp
seems stronger :)  Thanks!

On Mon, 2012-10-15 at 02:39 -0300, Diogo F. S. Ramos wrote:
> We first define a symbol using `defparameter'.
> 
> If later we decide to change it, we use the previous `setf'.
> ---
> 
> Although it works, using `setf' in a symbol before defining a variable
> with `defpackage', `defvar' or using `let' is discourage.
> 
>  src/stumpwm-cmus.lisp |    8 ++++----
>  1 file changed, 4 insertions(+), 4 deletions(-)
> 
> diff --git a/src/stumpwm-cmus.lisp b/src/stumpwm-cmus.lisp
> index 20ba9a3..081bb9d 100644
> --- a/src/stumpwm-cmus.lisp
> +++ b/src/stumpwm-cmus.lisp
> @@ -59,11 +59,11 @@
>  ;;;  (define-key *root-map* (kbd "C-M-l") "cmus-lyrics")
>  
>  ;;; Code:
> -(setf *cmus-commands* '( :PLAY "play" :PAUSE "pause" :STOP "stop" 
> -                       :NEXT "next" :PREV "prev" :FILE "file" :REPEAT 
> "repeat" 
> -                       :SHUFFLE "shuffle" :VOLUME "volume" :CLEAR "clear" 
> :RAW "raw"))
> +(defparameter *cmus-commands* '( :PLAY "play" :PAUSE "pause" :STOP "stop"
> +                                :NEXT "next" :PREV "prev" :FILE "file" 
> :REPEAT "repeat"
> +                                :SHUFFLE "shuffle" :VOLUME "volume" :CLEAR 
> "clear" :RAW "raw"))
>  
> -(setf *cmus-playlist-directory* "~/.cmus/")
> +(defparameter *cmus-playlist-directory* "~/.cmus/")
>  
>  ;; Thanks to sabetts of #stumpwm
>  (defun cat (&rest strings)