RE: [External] : Interactive option for command application

[Heime <heimeborgia@protonmail.com>]

On Tuesday, June 25th, 2024 at 12:22 AM, Drew Adams <drew.adams@oracle.com> wrote:

> > > > > Have a prefix arg use the frame. No prefix arg means use the buffer.
> > > > 
> > > > How would I handle the prefix arg to do as you suggest ?
> > > 
> > > Consult the manual - look for `interactive'. Look for` current-prefix-
> > > arg' if you use a Lisp sexp as arg to `interactive'.
> > 
> > Would I have to figure out whether I have '(4) or not, or just an if upon
> > current-prefix-arg ?
> 
> 
> Consult the doc. There are even examples there, IIRC.
> 
> `interactive' just passes some args to the body of your command code. 
> It's the logic of that body code that decides what to do with those args.

I have done like this, with a boolean monfont-prefix, I can change whether
I use the prefix or not.  When using the prefix, I set the "Frame" option,
otherwise I use the "Buffer" option.

If not using the prefix argument (monfont-prefix is nil) I ask the user
via completing-read. 

Would this be correct usage with current-prefix-arg ?

(defvar monfont-prefix t

  "Boolean variable determining if monfont uses the prefix argument.")


(defun monfont (face-family face-height okvir)

  (interactive

    (list

      (let ( (cseq '("Wargames" "URW Chancery L" "Century Schoolbook L")) )

        (completing-read " Family Name: " cseq nil t "Bold Oblique"))

      (let ( (hseq '("340" "300" "260" "230" "180")) )

        (completing-read " Face Height: " hseq nil nil "230"))

      (if monfont-prefix

          (if current-prefix-arg "Frame" "Buffer")

        (let ( (hseq '("Frame" "Buffer")) )

          (completing-read " Operation: " hseq nil t "Buffer"))) ))