 
 ;; (defvar shk-recenter-pos  TODO
  
-

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

(defun zomp-mark-sexp ()
  (interactive)
  (cond (mark-active

  (list '(lambda ()
           (setq comment-start "//")
           (setq indent-tabs-mode nil)

           (setq imenu-generic-expression zomp-imenu-generic-expression)
           (local-set-key [(control ?')] 'imenu)
           
           ; highlight s-expression under cursor
           (hl-sexp-mode t)

