Re: sml-mode indentation for structures

[Helmut Eller]

On Mon, Oct 06 2014, Stefan Monnier wrote:

>> Can somebody tell me how sml-mode indentation rules can be configured?
>
> I guess the "right" way to do that, would be:
>
>    (defun my-sml-rules (orig kind token)
>      (pcase (cons kind token)
>        (`(:before . "d=")
>         (if (smie-rule-parent-p "structure" "signature" "functor") 2
>           (funcall orig kind token)))
>        (`(:after . "struct") 2)
>        (_ (funcall orig kind token))))
>
>    (add-hook 'sml-mode-hook
>              (lambda ()
>                (add-function :around smie-indent-rules #'my-sml-rules)))
>

Thanks!  That works very well.

> -- Stefan "guaranteed 100% untested"

I only had to replace smie-indent-rules with
(symbol-function 'sml-smie-rules).

Helmut