; -*- tcl -*-

;; iank: i ran tclsh, saw it had barely any editing commands, searched packages for tcl readline,
;; found tcl-tclreadline. it didn't show how to use it for tclsh. googled it, found
;; this page https://wiki.tcl-lang.org/page/tclreadline, which suggested the following snippet.



package require tclreadline

proc ::tclreadline::prompt1 {} {
    return "[lindex [split [info hostname] "."] 0] [lindex [split [pwd] "/"] end] % "
}

::tclreadline::Loop