trans.lisp 286 B

123456789
  1. (defcommand trans-en-ru () ()
  2. "Run `xterm' with `trans' in interactive mode."
  3. (term-shell-command "trans -I en:ru" :title "trans-en-ru"))
  4. (defcommand trans-ru-en () ()
  5. "Run `xterm' with `trans' in interactive mode."
  6. (term-shell-command "trans -I ru:en" :title "trans-ru-en"))