package require patternpunk package require punk::ansi package require textblock apply { {} { set l "[punk::ansi::a+ term-blue][>punk . logo2][punk::ansi::a]" set f [textblock::frame -type arc -ansiborder [punk::ansi::a+ green] $l] set info "\n[info patchlevel]\n[>punk . version]" puts -nonewline stdout \n[textblock::join -- $f " " $info] } } #puts -nonewline stdout [n/new ::[set ::tcl_platform(user)]] puts -nonewline stdout [punk::nav::ns::newns ::[set ::tcl_platform(user)]] #mode raw