  'flymake-allowed-file-name-masks
  '("\\.zomp\\'" flymake-simple-make-init flymake-simple-cleanup))
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; misc
+
 (defun zomp-region-to-html (regbegin regend)
   "Will replace the current region with html. Requires a matching
   css section. To get it copy the css annotations from the

  (local-set-key [(control c)(control u)] 'zomp-move-up)
  (local-set-key [(control c)(control n)] 'zomp-next-block)
  (local-set-key [(control c)(control p)] 'zomp-prev-block)

  ;; extra comfort (insert ///, * in matching places, * / => */ etc.)
  (local-set-key "\r" 'zomp-newline)

  (interactive "P")
  (zomp-move-until-same-or-less-indent 'previous-line))

(defun zomp-forward-sexp (times)
  "`forward-sexp' for Zomp."
  (interactive "p")
  (dotimes (_ times)
    (if (looking-at ": *$")
        (progn
          (back-to-indentation)
          ;; TODO: do not depend on this function!
          (shk-change-line (list 4) t)
          (forward-word 1))
      (forward-sexp 1))))

(defun zomp-backward-sexp (times)
  "`backward-sexp' for Zomp."
  (interactive "p")
  (dotimes (_ times)
    (if (looking-back "^ *end *")
        (progn
          (back-to-indentation)
          (shk-change-line (list 4) nil)
          (end-of-line 1)
          (when (looking-at ": *")
            (while (not (looking-at ":"))
              (backward-char 1)))))
    (backward-sexp 1)))

(defun zomp-setup ()
  "Setup function for `zomp-mode'."
  (setq comment-start "//")
