   ;; (local-set-key [(control c)(-)] 'outline-cycle)
   ;; (local-set-key [(control c)(=)] 'show-entry)
   ;; (local-set-key [(control c)(+)] 'show-all)
+
+  (add-to-list 'hs-special-modes-alist
+               (list 'zomp-mode "\\(: *$\\|[({]\\)" "\\(end\\|[})]\\)" "/[*/]" 'zomp-forward-sexp nil))
 
   (zomp-ffap-init)
 

 'flymake-allowed-file-name-masks
 '("\\.zomp\\'" flymake-simple-make-init flymake-simple-cleanup))

(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)
  (local-set-key [remap forward-sexp] 'zomp-forward-sexp)
  (local-set-key [remap backward-sexp] 'zomp-backward-sexp)

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