                    "Eval function at point and goto next")
   (zomp-add-action zomp-shell-run-immediate [(control c)(control i)] "Enter code to run")
 
-  (zomp-add-seperator zomp-sep-1)
+  (zomp-add-seperator)
   (zomp-add-action zomp-start-or-show-shell
                    [(control c)(control s)]
                    "Start Zomp shell")


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defmacro zomp-add-seperator (seperator-id)
  `(local-set-key [menu-bar zomp ,seperator-id] '("--")))

(defmacro zomp-dofun (name command &optional confirm-msg)
  (if confirm-msg

  (zomp-add-action zomp-shell-list-bindings [(control c)(control f)] "List bindings...")
  (zomp-add-action zomp-shell-help [(control c)(control ??)] "Show Zomp shell help")

  (zomp-add-seperator)
  (zomp-add-action zomp-indent-current-or-fill [(meta q)] "Indent current")
  (zomp-add-action zomp-indent-buffer [(shift meta q)] "Indent buffer")

  (zomp-add-seperator)
  (zomp-add-action zomp-shell-discard-input [(control c)(control l)] "Discard entered text")
  (zomp-add-action zomp-shell-eval-buffer [(control c)(control b)] "Eval buffer")
  (zomp-add-action zomp-shell-eval-region [(control c)(control r)] "Eval region")
