^T to toggle syntax on/off

Author: braindigitalis

os/programs/edit.rrbasic

@@ -5,6 +5,7 @@ top = 0
 currentx = 0
 currenty = 0
 dirty = FALSE
+hl_on = TRUE
 DIM content$, max
 lastfind$ = ""
 
@@ -36,7 +37,12 @@ DEF PROCdraw
 	CURSOR 2, TERMHEIGHT
 	GCOL &AA
     RECTANGLE 0, GRAPHICS_HEIGHT - 20, GRAPHICS_WIDTH - 1, GRAPHICS_HEIGHT - 1
-	PRINT "ESC EXIT             ^S SAVE                 ^W WHEREIS                      ^R REPLACE                  ";
+	PRINT "ESC EXIT", CHR$(9), "^S SAVE", CHR$(9), "^W WHEREIS", CHR$(9), "^R REPLACE", CHR$(9), "^T ";
+	IF hl_on = TRUE THEN
+	    PRINT "DISABLE SYNTAX";
+	ELSE
+	    PRINT "ENABLE SYNTAX";
+	ENDIF
 	CURSOR TERMWIDTH - 15, TERMHEIGHT
 	PRINT currentx; ","; top + currenty; " ";
 	CURSOR 1, 0
@@ -85,7 +91,10 @@ DEF PROCtext
 	CURSOR 1, 2
 	FOR l = top TO top + TERMHEIGHT - 3
 		PROCclearLineFromCursor
-		IF l < max THEN PRINT HIGHLIGHT$(LEFT$(content$(l), TERMWIDTH))
+		IF l < max THEN
+		    IF hl_on = TRUE THEN PRINT HIGHLIGHT$(LEFT$(content$(l), TERMWIDTH))
+		    IF hl_on = FALSE THEN PRINT LEFT$(content$(l), TERMWIDTH)
+		ENDIF
 	NEXT
 	AUTOFLIP FALSE
 	FLIP
@@ -173,9 +182,19 @@ DEF PROCctrl(ctrlkey$)
 	IF UPPER$(ctrlkey$) = "S" THEN PROCsave
 	IF UPPER$(ctrlkey$) = "W" THEN PROCsearch
 	IF UPPER$(ctrlkey$) = "R" THEN PROCreplace
+	IF UPPER$(ctrlkey$) = "T" THEN PROCtoggleSyntax
 	PROCtext
 ENDPROC
 
+REM Toggle syntax highlighting
+DEF PROCtoggleSyntax
+    IF hl_on = TRUE THEN
+        hl_on = FALSE
+    ELSE
+        hl_on = TRUE
+    ENDIF
+ENDPROC
+
 REM handle save
 DEF PROCsave
 	IF ARGS$ = "" THEN PROCsaveNew