status bar + todo list

femto.tal

@@ -36,6 +36,25 @@
 (     black, red, green, yellow,             )
 (     blue, magenta, cyan, white             )
 
+( TODO: )
+( - set up term scrolling at start )
+( - optimize term drawing )
+( - get long line truncation/scrolling working )
+( - unify insertion/overwrite code )
+( - display cursor coords )
+( - page up/page down )
+( - jump to end of buffer )
+( - line numbers in left column (toggle mode?) )
+( - help text )
+( - save file command -> tmp first )
+( - open file command? )
+( - close file command? )
+( - move by word/paragraph )
+( - search )
+( - search&replace )
+( - tab support? )
+( - windows line-ending support (CRLF) )
+
 |00 @System     [ &vector $2 &wst  $1 &rst    $1 &pad   $4 &r $2 &g $2 &b $2   &debug $1 &halt $1 ]
 |10 @Console    [ &vector $2 &read $1 &pad    $5 &write $1 &error  $1 ]
 |a0 @File       [ &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 ]
@@ -343,7 +362,8 @@
     &continue DEOkr INC2 ,&loop JMP
     &done POP2 POP2 POP2r
 
-    #01 height ;term-move-cursor JSR2
+    #00 height ;term-move-cursor JSR2
+    ;messages/saved ;print JSR2
     ;filename ;print JSR2
     #20 emit
     ;buffer/limit LDA2 ;buffer/data SUB2 ;emit-dec2 JSR2
@@ -520,7 +540,9 @@
 
 @messages [ &input-error "input 20 "error 00
             &bytes 20 "bytes 00
-            &lines 20 "lines 00 ]
+            &lines 20 "lines 00
+            &saved "-- 20 00
+            &unsaved "** 20 00 ]
 
 @tmp [ &pos :tmp/data
        &data $100 ]