From e8d9ffff99726eaf356dd58aead4930c856c25f8 Mon Sep 17 00:00:00 2001
From: Aleteoryx <alyx@aleteoryx.me>
Date: Sun, 21 Sep 2025 12:31:19 -0400
Subject: [PATCH] sixel menu improvements, MOTD

---
 ntalk.tcl | 44 +++++++++++++++++++++++++++++++++-----------
 1 file changed, 33 insertions(+), 11 deletions(-)

diff --git a/ntalk.tcl b/ntalk.tcl
index 6a029cbc47678cb264b3f7e92111cb5eeec53b14..e43b597dc6a4d3f48c50298f76d9e12a814d321f 100755
--- a/ntalk.tcl
+++ b/ntalk.tcl
@@ -173,6 +173,9 @@ make16
 
 ### UI SETUP ###
 
+set motd "no MOTD yet! maybe you should send one..."
+label .head -textvariable motd
+
 frame .foot
 entry .foot.input
 label .foot.msgs -textvariable lastmsg
@@ -187,6 +190,7 @@ pack .foot.ppl .foot.sep .foot.msgs -side right
 pack .foot.name -side left
 pack .foot.input -side bottom -fill x
 
+pack .head -side top
 pack .foot -side bottom -fill x
 pack .scroll -side right -fill y
 pack .buffer -fill both
@@ -205,6 +209,7 @@ bind . <Control-R> restart
 bind . <Control-s> {.menu.opt invoke "show raw sixel codes"}
 
 .buffer tag configure rawsixel -elide true -foreground DarkSlateGrey
+.buffer tag configure motd -foreground DarkGreen -justify center -spacing1 5 -spacing3 5 -underline 1
 
 
 ### MENU ###
@@ -289,13 +294,15 @@ proc regensixelmenu {} {
 	for {set i 0} {$i < [llength $sixellib]} {incr i} {
 		if {[lindex $sixellib $i] == {}} continue
 		lassign [lindex $sixellib $i] name data
-		set data [list "\\($data)"]
+		set name [string trim $name]
+		set data [string trim $data]
+		set escdata [list "\\($data)"]
 		lassign [getsubmenu .menu.sixels $name] menu label
-		$menu insert 0 command -label $label -command [subst {
-			.foot.input insert insert $data
+		$menu insert 0 command -image [sixels2image $data] -hidemargin 1 -command [subst {
+			.foot.input insert insert $escdata
 		}]
 		lassign [getsubmenu .menu.sixels.rm $name] menu label
-		$menu insert 0 command -label $label -command [subst {
+		$menu insert 0 command -image [sixels2image $data] -hidemargin 1 -command [subst {
 			rmsixel $i
 		}]
 	}
@@ -442,7 +449,18 @@ proc recvlines {{bd 0}} {
 }
 
 proc bufpush {line} {
-	global images
+	global images motd
+
+	set tag {}
+	if {[string first "MOTD:" $line] == 0} {
+		set motd [string trim [string range $line 5 end]]
+		set line "<<< $motd >>>"
+		set tag motd
+	} elseif {[string first "MOTD" $line] == 0} {
+		set motd [string trim [string range $line 4 end]]
+		set line "<<< $motd >>>"
+		set tag motd
+	}
 
 	.buffer configure -state normal
 	
@@ -450,7 +468,7 @@ proc bufpush {line} {
 	set idx2 -1
 	while {[set idx2 [string first "\\(" $line $idx1]] != -1} {
 		# insert the prefix text
-		.buffer insert end [string range $line $idx1 $idx2-1]
+		.buffer insert end [string range $line $idx1 $idx2-1] $tag
 
 		# get the sixels
 		set idx1 $idx2
@@ -464,8 +482,8 @@ proc bufpush {line} {
 		
 		set idx1 [expr {$idx2 + 1}]
 	}
-	.buffer insert end [string range $line $idx1 end]
-	.buffer insert end "\n"
+	.buffer insert end [string range $line $idx1 end] $tag
+	.buffer insert end "\n" $tag
 	
 	.buffer configure -state disabled
 }
@@ -529,8 +547,9 @@ proc stat {} {
 proc sendmsg {msg} {
 	global lastmsg
 	set msgid [send $msg]
-	if {$msgid == $lastmsg} {
-		bufpush "$msg\n"
+	if {$msgid == $lastmsg+1} {
+		set lastmsg $msgid
+		bufpush "$msg"
 		bufdown
 	} else { skip }
 }
@@ -559,7 +578,7 @@ proc n64k_date {} {
 ### BOOT ###
 
 set lastmsg 0
-last [.buffer cget -height]
+last 64
 stat
 after 10000 pollmsgs
 
@@ -582,6 +601,9 @@ bind .foot.input <Return> [concat [bind .foot.input <Return>] ";" {
 		{/send *} {
 			sendmsg [string range $line 6 end]
 		}
+		{/motd *} {
+			sendmsg "MOTD [string range $line 6 end]"
+		}
 		/me* {
 			sendmsg "${user}[string range $line 3 end]"
 		}