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

Peter Münster <[email protected]> writes:

>
> Ok, unfortunately it seems, that it’s not really *always*:
>
> --8<---------------cut here---------------start------------->8---
> (with-clog-create body
>   (okokok ()
>     (okokok ()
>       (okokok ()
>         (okokok ())))))
>
> (defun my-func ()
>   (with-clog-create body
>     (okokok ()
>             (NOT-OK ()
>               (okokok ()
>                 (okokok ()))))))
>
> (defun my-func ()
>   (call-a-func
>    (with-clog-create body
>      (okokok ()
>        (ok-here ()   ; strange...
>          (okokok ()
>            (okokok ())))))))
> --8<---------------cut here---------------end--------------->8---
>
> Line 10 of this test file is not ok.
>
> How could I get my preferred indentation also for line 10 please?
>
> TIA for any help,

Note that Plan B, your earlier solution, does not have this problem:

(progn
  (setopt lisp-indent-maximum-backtracking 15) ; `15' levels arbritrarily chosen

  (defun my-special-with-indent (path state indent-point sexp-column normal-indent)
    "Indent forms inside custom `with-*' forms using two spaces at every level."
    (save-excursion
      (goto-char (elt state 1))
      (+ (current-column) 2)))

    (put 'with-clog-create 'common-lisp-indent-function #'my-special-with-indent))

-- 
The lyf so short, the craft so long to lerne.
- Geoffrey Chaucer, The Parliament of Birds.