Looping through sequence of buttons and labels

Looping through sequence of buttons and labels

[Heime]

This function prints a line with two buttons.  I would like to extend this so that
I can have N rows, rather than just a single row as done here.


(defun mondu (monbf funcs labels)
  "Insert buttons in buffer MONBF, using FUNCS for button actions
with LABELS as button labels."

  (with-current-buffer (get-buffer-create monbf)
    (insert " DU \n\n")
    (insert " ")

    (insert-button "[-]" 'action (nth 0 funcs))
    (insert (format " %s  " (nth 0 labels)))

    (insert-button "[-]" 'action (nth 1 funcs))
    (insert (format " %s  " (nth 1 labels))))

  (pop-to-buffer monbf))

Re: Looping through sequence of buttons and labels

[CToID]

```
(dolist (VAR LIST [RESULT]) BODY...)

Loop over a list.
Evaluate BODY with VAR bound to each car from LIST, in turn.
Then evaluate RESULT to get return value, default nil.
```

-- 
Best,

ID

Re: Looping through sequence of buttons and labels

[CToID]

Just saw you have two lists here, then you should use `dotimes` instead 
of `dolist`.

-- 
Best,

ID

Re: Looping through sequence of buttons and labels

[Heime]

On Wednesday, July 3rd, 2024 at 4:15 AM, CToID <funk443@yahoo.com.tw> wrote:

> Just saw you have two lists here, then you should use `dotimes` instead
> of `dolist`.
> 
> --
> Best,
> ID

 Your update helps a lot.

Re: Looping through sequence of buttons and labels

[Stefan Monnier via Users list for the GNU Emacs text editor]

> Just saw you have two lists here, then you should use `dotimes` instead of
> `dolist`.

This is a good recipe if you want to suffer from O(N²) complexity 🙁
I'd go with `while`, `named-let`, or `cl-loop` instead, tho before that
I'd try to replace the two lists by a list of pairs so I can
just use `(pcase-)dolist`.


        Stefan