 
 ;; (defvar shk-recenter-pos  TODO
  
-

  (list '(lambda ()
           (setq comment-start "//")
           (setq indent-tabs-mode nil)
           ; highlight s-expression under cursor
           (hl-sexp-mode t)


                         (backward-char 1)))
                  ))))))

(defvar zomp-imenu-generic-expression
  '(("macro" "^(macro +\\([a-zA-Z0-9]+\\) " 1)
    ("function" "^(func +[a-zA-Z0-9]+ +\\([a-zA-Z0-9]+\\) " 1)
    ("var" "^(var +[a-zA-Z0-9]+ +\\([a-zA-Z0-9]+\\) " 1)
    ("const" "^(const +[a-zA-Z0-9]+ +\\([a-zA-Z0-9]+\\) " 1) ))
    
(defun zomp-mark-sexp ()
  (interactive)
  (cond (mark-active
