mdw@git.distorted.org.uk Git - profile/blob - dot/tclshrc

   1 ### -*-tcl-*-
   2
   3 if {$tcl_interactive} {
   4   if {![catch { package require tclreadline }]} {
   5     proc _set_prompt {} {
   6       set bold [exec tput bold]
   7       set unbold [exec tput sgr0]
   8       set interp [file tail [info nameofexecutable]]
   9       proc ::tclreadline::prompt1 {} \
  10           [list return "$bold$interp%$unbold "]
  11       proc ::tclreadline::prompt2 {} \
  12           [list return "$bold$interp>$unbold "]
  13     }
  14     _set_prompt
  15     rename _set_prompt {}
  16     ::tclreadline::Loop
  17   }
  18 }