Re: SMIE examples or guides

[Stefan Monnier <monnier@iro.umontreal.ca>]

> HELLO three one
>     four ten BYE
> eleven HELLO
>     twelve
>     BYE

This goes a bit against SMIE's default indentation principles, so it's
going to take more efforts (IOW adding support for this kind of
indentation is still on the todo list).

Maybe something along the following lines would work:

   (defun my-indent-foo ()
     (unless (looking-at "BYE\\_>")
       (save-excursion
         (let ((x nil))
           (while (progn (setq x (smie-backward-sexp))
                         (null (car-safe x))))
           (when (equal "HELLO" (nth 2 x))
             (goto-char (nth 1 x))
             (+ 4 (smie-indent-virtual)))))))
and add

     (add-hook 'smie-indent-functions #'my-indent-foo nil t)

in your major mode function.


        Stefan