Define colon commands in viper?

Define colon commands in viper?

[Kai Großjohann]

How do I define a colon command in viper, such that `:meep' calls
the `ding' function, say?

(Actually I think I want `:make' to run the `compile' command.  But
who knows what ideas might turn up.)

kai
-- 
A large number of young women don't trust men with beards.  (BFBS Radio)

Re: Define colon commands in viper?

[Edward O'Connor]

> How do I define a colon command in viper, such that `:meep' calls
> the `ding' function, say?

There's probably a better way to do this, but here's what I do in my
.emacs file WRT :open and the like:

;; Make :o and :open work in viper. Why isn't this the default?
(defadvice ex-cmd-assoc (after ted-open-fix activate)
  "Make vi's :o and :open work correctly."
  (when (string-equal (car ad-return-value) "open")
      (setq ad-return-value
            '("open" (find-file
                      (read-file-name "Find file: "))))))

Perhaps you could do something similar for :meep, or :make?


Ted

-- 
Edward O'Connor
ted@oconnor.cx

Re: Define colon commands in viper?

[Kai Großjohann]

Edward O'Connor <ted@stewart.floobin.cx> writes:

>> How do I define a colon command in viper, such that `:meep' calls
>> the `ding' function, say?
>
> There's probably a better way to do this, but here's what I do in my
> .emacs file WRT :open and the like:

You pointed me in the right direction.  I guess that it would work to
add an entry to ex-token-alist.  Thanks!

kai
-- 
A large number of young women don't trust men with beards.  (BFBS Radio)