~aleteoryx/ntalk

e5eea4ab99897de52c84c5f2fbdcb49bb90169ab — Aleteoryx a month ago 7e7aab9
do command parsing the non-lazy way
1 files changed, 9 insertions(+), 2 deletions(-)

M ntalk.tcl
M ntalk.tcl => ntalk.tcl +9 -2
@@ 319,7 319,7 @@ menu .menu.server.rm -tearoff 0
.menu.nt add command -label "about ntalk" -command {
	tk_messageBox -title "about ntalk" \
		-message "ntalk\nby aleteoryx" \
		-detail "last updated 2025-10-18" \
		-detail "last updated 2025-10-20" \
		-icon "info"
}
.menu.nt add separator


@@ 985,7 985,14 @@ bind .foot.input <Return> [concat [bind .foot.input <Return>] ";" {
		return
	}

	set line [lassign [string range $line 1 end] cmd]
	set idx [string first " " $line]
	if {$idx == -1} {
		set idx end
	} else {
		incr idx -1
	}
	set cmd [string range $line 1 $idx]
	set line [string range $line $idx+2 end]
	switch -nocase -- $cmd [concat $cmds {
		hist { hist }
		quit { quit }