Re: small indentation inside with-html from spinneret (Common Lisp)

On Sun, Jun 07 2026, Michael Heerdegen wrote:

> How does your setup look like?  How can I reproduce your issue?

I start emacs like this:

emacs -Q -l init-test.el test.lisp

This is file init-test.el:

--8<---------------cut here---------------start------------->8---
(defun my-with-clog-create-indent (path state indent-point sexp-column normal-indent)
  "Indent forms inside with-clog-create with 2 spaces at every level."
  (save-excursion
    (goto-char (elt state 1))
    (+ (current-column) 2)))

(put 'with-clog-create 'common-lisp-indent-function #'my-with-clog-create-indent)
--8<---------------cut here---------------end--------------->8---

And this is test.lisp:

--8<---------------cut here---------------start------------->8---
(with-clog-create body
(gui-menu-bar ()
(gui-menu-drop-down (...)
(gui-menu-item (...)
(gui-menu-drop-down (...)
(gui-menu-item (...))
(gui-menu-item (...)))))))
--8<---------------cut here---------------end--------------->8---

Then I press TAB on every line, and see what happens.

This is, what I want:

--8<---------------cut here---------------start------------->8---
(with-clog-create body
  (gui-menu-bar ()
    (gui-menu-drop-down (...)
      (gui-menu-item (...)
        (gui-menu-drop-down (...)
          (gui-menu-item (...))
          (gui-menu-item (...)))))))
--8<---------------cut here---------------end--------------->8---

My emacs version is 923eb9afef02 from git master from Apr 10.

-- 
           Peter