From ccb32710a497906e54fd6f4415853269712ed7e0 Mon Sep 17 00:00:00 2001
From: d6 <d_m@plastic-idolatry.com>
Date: Wed, 25 Jan 2023 12:51:25 -0500
Subject: [PATCH] add .theme support (thanks neauoire)

---
 term.tal | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/term.tal b/term.tal
index c970847..ab80001 100644
--- a/term.tal
+++ b/term.tal
@@ -76,6 +76,7 @@
     #07bf .System/r DEO2
     #07bf .System/g DEO2
     #07bf .System/b DEO2
+    ;load-theme JSR2
 
     ( set starting tint: reverse=0, bg=0, fg=2 )
     #02 .attr STZ
@@ -95,6 +96,18 @@
 
     BRK
 
+@load-theme ( -> )
+    ;&path .File/name DEO2
+    #0002 .File/len DEO2
+    ;&r .File/r DEO2
+    ;&g .File/r DEO2
+    ;&b .File/r DEO2
+    .File/ok DEI2 ORA #01 JCN JMP2r
+    LIT2 &r $2 .System/r DEO2
+    LIT2 &g $2 .System/g DEO2
+    LIT2 &b $2 .System/b DEO2
+    JMP2r [ &path ".theme $1 ]
+
 @first-addr ( -> )
     ;cells JMP2r