here is my work in progress. vocabulary subject to change without warning
dos format text.  not all utterances work right. ymmv.

--- eric (do you want docs with that??)


switch-to-vocabulary /create /module EMACS EMACS
switch-to-group /create EMACS
switch-to-group /create "emacs html mode"
switch-to-group /create "html helper"
switch-to-group /create EMACS
add-word "[abort emacs]" /keys {Ctrl+g} /nsc
add-word "[autofill mode]" /keys {Esc}xauto-fill-mode{Enter} /nsc
add-word "[beginning of buffer]" /keys {Esc}< /nsc
add-word "[Beginning of Line]" /keys {Ctrl+a} /sb0 /cr
add-word "[capitalize word]" /keys {Esc}c /nsc
add-word "[change directory]" /keys cd{Space} /nsc
add-word "[change ownership]" /keys "chown " /nsc /u
add-word "[compose mail]" /keys "comp " /nsc /u
add-word "[copy file]" /keys "cp "
add-word "[copy region]" /keys {Esc}w /nsc
add-word "[delete file]" /keys "rm "
add-word "[delete mail]" /keys rmm
add-word "[delete next]" /keys rmm;next /nsc /u
add-word "[delete word]" /keys {Esc}{BackSpace} /nsc
add-word "[do macro]" /keys {Ctrl+x}e /nsc
add-word "[dot cf]" /script "SendKeys \".cf\"" /sb0 /u
add-word "[dot com]" /script "SendKeys \".com\"" /nsc /u
add-word "[dot htm]" /keys .htm /nsc /u
add-word "[dot html]" /keys .html /nsc /u
add-word "[dot mc]" /script "SendKeys \".mc\"" /sb0 /u
add-word "[dvi laser]" /keys dvilj2p{Space} /nsc
add-word "[echo string]" /script "SendKeys \"echo \"" /nsc
add-word "[end macro]" /keys {Ctrl+x}) /nsc
add-word "[end of buffer]" /keys {Esc}> /nsc
add-word "[End of Line]" /keys {Ctrl+e} /sb0 /cr
add-word "[eric's  web site]" /keys http://www.saturn.net/~esj
add-word "[exit emacs]" /keys {Ctrl+x}{Ctrl+c} /nsc /nf
add-word "[fill paragraph]" /script "SendKeys \"{Esc}q\"" /nsc
add-word "[find file]" /keys {Ctrl+x}{Ctrl+f} /nsc
add-word "[forward mail]" /keys "forw " /nsc /u
add-word "[go to line]" /keys {Alt+x}goto-line{Enter} /nsc
add-word [gunzip] /keys "gunzip " /nsc
add-word "[html mode]" /script "sethomegroup \"EMACS\",\"emacs\", \"html helper\", \"EMACS\", 1" /nsc
add-word "[include mail]" /script "SendKeys \"inc\"" /nsc
add-word "[insert file]" /keys {Ctrl+x}i /nsc
add-word "[join it]" /script "SendKeys \"_\"" /sa0 /sb0 /u
add-word "[kill buffer]" /keys {Ctrl+x}k /nsc
add-word "[kill character]" /script "SendKeys \"{Ctrl+d}\"" /nsc
add-word "[kill line]" /keys {Ctrl+k} /nsc
add-word "[kill region]" /keys {Ctrl+w} /nsc
add-word "[kill sentence]" /script "SendKeys \"{Esc}k\"" /nsc
add-word "[kill word]" /script "SendKeys \"{Esc}d\"" /nsc
add-word "[leave mark]" /script "SendKeys \"{Esc}xset-mark-command{Enter}\"" /nsc
add-word "[left sentence]" /script "SendKeys \"{Esc}a\"" /nsc
add-word "[left word]" /script "SendKeys \"{Esc}b\"" /nsc
add-word "[lowercase word]" /keys {Esc}l /nsc
add-word "[m4 comment]" /keys "dnl #" /nsc /u
add-word "[make directory]" /keys "mkdir "
add-word "[move file]" /script "SendKeys \"mv{Space}\"" /nsc
add-word "[next line]" /keys {Ctrl+j} /nsc /u
add-word "[next mail]" /keys next
add-word "[one window]" /keys {Ctrl+x}1 /nsc
add-word "[open line]" /script "SendKeys \"{Ctrl+o}\"" /nsc
add-word "[other buffer]" /keys {Ctrl+x}b /nsc
add-word "[other window]" /keys {Ctrl+x}o /nsc
add-word "[previous mail]" /keys prev /nsc /u
add-word "[query replace]" /keys {Esc}% /nsc
add-word "[repeat it]" /keys {Ctrl+u} /nsc
add-word "[reply mail]" /keys "repl " /nsc
add-word "[right sentence]" /script "SendKeys \"{Esc}e\"" /nsc
add-word "[right word]" /script "SendKeys \"{Esc}f\"" /nsc
add-word "[save buffer]" /keys {Ctrl+x}{Ctrl+s} /nsc
add-word "[save buffers]" /keys {Ctrl+x}s /nsc
add-word "[scan from]" /keys "scan `pick -from `{ExtLeft}" /nsc
add-word "[search backwards]" /keys {Ctrl+r} /nsc
add-word "[search forward]" /keys {Ctrl+s} /nsc
add-word "[send it]" /keys send{Enter} /nsc
add-word "[show file]" /keys "more " /nsc
add-word "[show mail]" /keys "show "
add-word "[sign me]" /script "SendKeys \"---{Space}eric{Enter}\"" /nsc
add-word [smilely] /keys :-)
add-word "[Split Window]" /keys {Ctrl+x}2 /nsc
add-word "[start macro]" /keys {Ctrl+x}( /nsc
add-word "[start of line]" /keys {Esc}m /nsc
add-word "[su root]" /script "SendKeys \"su{Space}-{Space}root\"" /nsc
add-word "[suspend emacs]" /keys {Ctrl+z} /nsc /nf
add-word "[up one]" /script "SendKeys \"..\"" /sa0 /sb0 /u
add-word "[yank again]" /keys {Esc}y /nsc
add-word "[yank it back]" /keys {Ctrl+y} /nsc
switch-to-group /create "emacs html mode"
add-word "[begin block quote]" /keys <blockquote>{Enter} /nsc
add-word "[begin bold]" /keys <b>
add-word "[begin bullet list]" /keys <ul>
add-word "[begin italics]" /keys <i>
add-word "[begin ordered list]" /keys <ol> /sa0 /sb0 /cr /u
add-word "[block quote region]" /keys {Ctrl+w}<blockquote>{Ctrl+y}</blockquote> /nsc
add-word "[center region]" /keys {Ctrl+w}<center>{Ctrl+y}</center> /nsc
add-word "[define table]" /keys "<table border=0></table>{Esc}b{Ctrl+b}{Ctrl+b}" /nsc
add-word "[end block quote]" /keys {Enter}</blockquote>{Enter} /nsc
add-word "[end bold]" /keys </b>
add-word "[end bullet list]" /keys </ul>
add-word "[end italics]" /keys </i>
add-word "[end ordered list]" /keys </ol> /sb0 /u
add-word "[header 1]" /keys <h1></h1>{Ctrl+b}{Ctrl+b}{Ctrl+b}{Ctrl+b}{Ctrl+b} /nsc
add-word "[header 2]" /keys <h2></h2>{Ctrl+b}{Ctrl+b}{Ctrl+b}{Ctrl+b}{Ctrl+b} /nsc
add-word "[header 3]" /keys <h3></h3>{Ctrl+b}{Ctrl+b}{Ctrl+b}{Ctrl+b}{Ctrl+b} /nsc
add-word "[header 4]" /keys <h4></h4>{Ctrl+b}{Ctrl+b}{Ctrl+b}{Ctrl+b}{Ctrl+b} /nsc
add-word "[header 5]" /keys <h5></h5>{Ctrl+b}{Ctrl+b}{Ctrl+b}{Ctrl+b}{Ctrl+b} /nsc
add-word "[header 6]" /keys <h6></h6>{Ctrl+b}{Ctrl+b}{Ctrl+b}{Ctrl+b}{Ctrl+b} /nsc
add-word "[horizontal rule]" /keys <hr> /sa0 /sb0 /cr /u
add-word "[line break]" /keys <br> /sa0 /sb0 /cr /u
add-word "[link region]" /script "SendKeys \"{Ctrl+w}<a{Space}href=\"\"\"\">{Ctrl+y}</a>{Ctrl+r}=\"\"{Ctrl+f}{Ctrl+f}\"
nospacenext" /nsc
add-word "[link target]" /script "SendKeys \"<a name=\"\"\"\"></a>{Ctrl+b}{Ctrl+b}{Ctrl+b}{Ctrl+b}{Ctrl+b}{Ctrl+b}\"
nospacenext" /nsc
add-word "[list item]" /keys <li> /sa0 /sb0 /cr /u
add-word "[mail to]" /script "SendKeys \"mailto:\"
nospacenext" /sa0 /sb0 /nsc /u
add-word "[next list item]" /keys {Ctrl+j}<li> /nsc
add-word "[paragraph break]" /keys <p> /sa0 /sb0 /cr /u
add-word "[table data]" /keys <td></td>{Ctrl+b}{Ctrl+b}{Ctrl+b}{Ctrl+b}{Ctrl+b} /nsc
add-word "[table header]" /keys <th></th>{Ctrl+b}{Ctrl+b}{Ctrl+b}{Ctrl+b}{Ctrl+b} /nsc
add-word "[table row]" /keys <tr></tr>{ExtLeft}{ExtLeft}{ExtLeft}{ExtLeft}{ExtLeft} /nsc
switch-to-group /create "html helper"
add-word "[block quote]" /keys {Ctrl+c}{Ctrl+s}b /nsc
add-word "[define table]" /keys "<table border=0></table>{Esc}b{Ctrl+b}{Ctrl+b}" /nsc
add-word "[definition list]" /keys {Ctrl+c}{Ctrl+l}d /nsc
add-word "[header 1]" /keys {Ctrl+c}{Ctrl+t}1 /nsc
add-word "[header 2]" /keys {Ctrl+c}{Ctrl+t}2 /nsc
add-word "[header 3]" /keys {Ctrl+c}{Ctrl+t}3 /nsc
add-word "[header 4]" /keys {Ctrl+c}{Ctrl+t}4 /nsc
add-word "[header 5]" /keys {Ctrl+c}{Ctrl+t}5 /nsc
add-word "[header 6]" /keys {Ctrl+c}{Ctrl+t}6 /nsc
add-word "[horizontal rule]" /keys {Ctrl+c}= /nsc
add-word "[line break]" /keys {Ctrl+c}{Enter} /nsc
add-word "[link target]" /keys {Ctrl+c}{Ctrl+a}n /nsc
add-word "[list item]" /keys {Ctrl+c}{Ctrl+l}i /nsc
add-word "[mail to]" /keys mailto: /sa0 /sb0 /cr
add-word "[make bold]" /keys {Ctrl+c}{Ctrl+p}b /nsc
add-word "[make emphasized]" /keys {Ctrl+c}{Ctrl+s}e /nsc
add-word "[make italic]" /keys {Ctrl+c}{Ctrl+p}i /nsc
add-word "[make link]" /keys {Ctrl+c}{Ctrl+a}l /nsc
add-word "[make underline]" /keys {Ctrl+c}{Ctrl+p}u /nsc
add-word "[next field]" /keys {Ctrl+Alt+f} /nsc
add-word "[on region]" /keys {Ctrl+u} /nsc
add-word "[ordered list]" /keys {Ctrl+c}{Ctrl+l}o /nsc
add-word "[paragraph break]" /keys {Alt+Enter} /nsc
add-word "[previous field]" /keys {Ctrl+Alt+b} /nsc
add-word "[table data]" /keys <td></td>{Ctrl+b}{Ctrl+b}{Ctrl+b}{Ctrl+b}{Ctrl+b} /nsc
add-word "[table header]" /keys <th></th>{Ctrl+b}{Ctrl+b}{Ctrl+b}{Ctrl+b}{Ctrl+b} /nsc
add-word "[table row]" /keys <tr></tr>{ExtLeft}{ExtLeft}{ExtLeft}{ExtLeft}{ExtLeft} /nsc
add-word "[unordered list]" /keys {Ctrl+c}{Ctrl+l}u /nsc