Updated 2016-07-13 10:19:12 by dbohdan

This page is meant to collect command prompts for Pure-tcl readline2.
namespace eval ::TclReadLine::prompts {}

proc ::TclReadLine::prompts::user-at-host {} {
    return $::tcl_platform(user)@[info hostname]
}

proc ::TclReadLine::prompts::shorten-path {path} {
    set splitPath [file split $path]
    set result {}
    foreach fragment [lrange $splitPath 0 end-1] {
        lappend result [string index $fragment 0]
    }
    return [file join {*}$result [lindex $splitPath end]]
}

# Looks like this:
# tclsh-8.6.3 [Downloads] %
set ::TclReadLine::prompts::path {tclsh[info patchlevel] \[[pwd]\]% }

# Looks like the above but with color.
set ::TclReadLine::prompts::pathColor {\033\[36mtclsh-[info patchlevel]\033\[0m \[\033\[34m[file tail [pwd]\033\[0m]\]\033\[31m % \033\[0m}

# A fish shell-style prompt with a clock.
# Looks like this:
# 14:49:52 [email protected] /h/d/Downloads>
set  ::TclReadLine::prompts::fish {[clock format [clock seconds] -format {%H:%M:%S}] [::TclReadLine::prompts::user-at-host] [::TclReadLine::prompts::shorten-path [pwd]]> }

set ::TclReadLine::PROMPT $::TclReadLine::prompts::path