Posted to tcl by aspect at Thu May 11 09:41:23 GMT 2017view raw

  1. #!/usr/bin/env expect
  2. #
  3. spawn nano
  4.  
  5. interact {
  6. -nobuffer -re
  7. {\rproc [^ ]+ } { send "{args} {\r\r}\033\[A " }
  8. }
  9.