Re: master 35d5ad713e 1/3: Rewrite wallpaper.el to use a cl-defstruct

Re: master 35d5ad713e 1/3: Rewrite wallpaper.el to use a cl-defstruct

[Stefan Monnier]

> +(cl-defstruct (wallpaper-setter
> +               ;; Rename the default constructor from `make-wallpaper-cmd'.
> +               (:constructor
> +                wallpaper-setter-create
> +                ( name command args-raw
> +                  &rest rest-plist
> +                  &aux
> +                  (args (if (listp args-raw)
> +                            args-raw
> +                          (string-split args-raw)))
> +                  (predicate (plist-get rest-plist :predicate))))

FWIW, the above does not "rename" anything.  It just adds another
constructor in addition to the default `make-wallpaper-cmd`.
If you don't want that default (I never want it, personally), then you
need to add (:constructor nil) to your `cl-defstruct`.


        Stefan

Re: master 35d5ad713e 1/3: Rewrite wallpaper.el to use a cl-defstruct

[Stefan Kangas]

Stefan Monnier <monnier@iro.umontreal.ca> writes:

> FWIW, the above does not "rename" anything.  It just adds another
> constructor in addition to the default `make-wallpaper-cmd`.
> If you don't want that default (I never want it, personally), then you
> need to add (:constructor nil) to your `cl-defstruct`.

Thanks, fixed.