my-calculate-indent function

[Pietro Giorgianni <giorgian@gmail.com>]

hi,

i'm working on a major mode for a simple script language.

blocks are enclosed in {}, and i wrote this function:

(defun tintin-calculate-indent ()
  (let ((opened (count-matches "{" 0 (point)))
        (closed (count-matches "}" 0 (point))))
    (max 0
     (if (equal (char-after) 125)
         (* tintin-indentation-step (- (- opened closed) 1))
       (* tintin-indentation-step (- opened closed))))))


which works, but is ugly.

questions:

1) is there already a function that does this?

2) if not, how can i do it better?

thanks

giorgian