From eda8b7e8f1b447d5596efba6e8097f3a533b709c Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Wed, 18 Dec 2024 11:23:17 -0800
Subject: [PATCH] Added PasteMono

---
 etc/dir10x10.chr | Bin 4096 -> 4096 bytes
 src/nasu.tal     |  10 ++++++++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/etc/dir10x10.chr b/etc/dir10x10.chr
index 37bc7e673c10ca2b39e6c2444c64bc1944251427..3f7b2d75cbd7106831da20d2f59b944be9b25330 100644
GIT binary patch
delta 47
zcmZorXi%6CJeiq!?Igy4Nh}*CF$GLw-3;UhOauzC1WaPwFo`u_6B9Gz<^<NYoB)6j
B4}kyx

delta 47
zcmZorXi%6Oz`SANh6R%sFegmjzzC#SH%|;+J9z^$kjV%XVgb@j$(uK@`f>pP^0yRb

diff --git a/src/nasu.tal b/src/nasu.tal
index 70dba45..c76cc3b 100644
--- a/src/nasu.tal
+++ b/src/nasu.tal
@@ -70,7 +70,7 @@
 	"Nasu 0a
 	( details ) "A 20 "Sprite 20 "Editor 0a
 	( author ) "By 20 "Hundred 20 "Rabbits 0a
-	( date ) "1 20 "Dec 20 "2024 00 01
+	( date ) "18 20 "Dec 20 "2024 00 01
 	( icon ) 83 =appicon
 
 @manifest ( ... )
@@ -84,10 +84,11 @@
 	( - ) 00 00 =file-save-mono "SaveMono $1
 	( - ) 01 "p =save-theme "SaveTheme $1
 	( - ) 01 "q =exit "Exit $1
-	( >>> ) 09 "Edit $1
+	( >>> ) 0a "Edit $1
 	( - ) 01 "c =edit-copy-chr "Copy $1
 	( - ) 05 "C =edit-copy-icn "CopyMono $1
 	( - ) 01 "v =edit-paste "Paste $1
+	( - ) 01 "v =edit-paste-icn "PasteMono $1
 	( - ) 01 "x =edit-cut "Cut $1
 	( - ) 00 08 =edit-erase "Erase $1
 	( - ) 00 "i =edit-invert "Invert $1
@@ -1094,6 +1095,11 @@
 	#0010 .File/length DEO2
 	;op-read <run> !<redraw>
 
+@edit-paste-icn ( -- )
+	;snarf-txt .File/name DEO2
+	#0008 .File/length DEO2
+	;op-read <run> !<redraw>
+
 @edit-cut ( -- )
 	edit-copy-chr ;op-erase <run> !<redraw>