From d2bd40bfcb995fecb947035b0c896342ca22cdd6 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sun, 15 Nov 2015 12:47:48 -0800 Subject: 2447 --- html/edit/002-typing.mu.html | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) (limited to 'html/edit/002-typing.mu.html') diff --git a/html/edit/002-typing.mu.html b/html/edit/002-typing.mu.html index c1f1128f..538bbf5d 100644 --- a/html/edit/002-typing.mu.html +++ b/html/edit/002-typing.mu.html @@ -114,8 +114,8 @@ body { font-family: monospace; color: #eeeeee; background-color: #080808; } screen-height:number <- screen-height screen # count newlines until screen row curr:address:duplex-list:character <- get *editor, top-of-screen:offset - prev:address:duplex-list:character <- copy curr # just in case curr becomes null and we can't compute prev-duplex - curr <- next-duplex curr + prev:address:duplex-list:character <- copy curr # just in case curr becomes null and we can't compute prev + curr <- next curr row:number <- copy 1/top column:number <- copy left cursor-row:address:number <- get-address *editor, cursor-row:offset @@ -155,8 +155,8 @@ body { font-family: monospace; color: #eeeeee; background-color: #080808; } # skip to next line row <- add row, 1 column <- copy left - curr <- next-duplex curr - prev <- next-duplex prev + curr <- next curr + prev <- next prev loop +next-character:label } { @@ -169,8 +169,8 @@ body { font-family: monospace; color: #eeeeee; background-color: #080808; } # don't increment curr/prev loop +next-character:label } - curr <- next-duplex curr - prev <- next-duplex prev + curr <- next curr + prev <- next prev column <- add column, 1 loop } @@ -234,8 +234,8 @@ body { font-family: monospace; color: #eeeeee; background-color: #080808; } local-scope load-ingredients before-cursor:address:address:duplex-list:character <- get-address *editor, before-cursor:offset - insert-duplex c, *before-cursor - *before-cursor <- next-duplex *before-cursor + insert c, *before-cursor + *before-cursor <- next *before-cursor cursor-row:address:number <- get-address *editor, cursor-row:offset cursor-column:address:number <- get-address *editor, cursor-column:offset left:number <- get *editor, left:offset @@ -248,7 +248,7 @@ body { font-family: monospace; color: #eeeeee; background-color: #080808; } <insert-character-special-case> # but mostly we'll just move the cursor right *cursor-column <- add *cursor-column, 1 - next:address:duplex-list:character <- next-duplex *before-cursor + next:address:duplex-list:character <- next *before-cursor { # at end of all text? no need to scroll? just print the character and leave at-end?:boolean <- equal next, 0/null @@ -283,7 +283,7 @@ body { font-family: monospace; color: #eeeeee; background-color: #080808; } break-if at-newline? print-character screen, currc curr-column <- add curr-column, 1 - curr <- next-duplex curr + curr <- next curr loop } go-render? <- copy 0/false @@ -867,8 +867,8 @@ body { font-family: monospace; color: #eeeeee; background-color: #080808; } right:number <- get *editor, right:offset screen-height:number <- screen-height screen # insert newline - insert-duplex 10/newline, *before-cursor - *before-cursor <- next-duplex *before-cursor + insert 10/newline, *before-cursor + *before-cursor <- next *before-cursor *cursor-row <- add *cursor-row, 1 *cursor-column <- copy left # maybe scroll @@ -883,7 +883,7 @@ body { font-family: monospace; color: #eeeeee; background-color: #080808; } indent?:boolean <- get *editor, indent?:offset reply-unless indent? d:address:duplex-list:character <- get *editor, data:offset - end-of-previous-line:address:duplex-list:character <- prev-duplex *before-cursor + end-of-previous-line:address:duplex-list:character <- prev *before-cursor indent:number <- line-indent end-of-previous-line, d i:number <- copy 0 { @@ -905,7 +905,7 @@ body { font-family: monospace; color: #eeeeee; background-color: #080808; } at-start?:boolean <- equal curr, start reply-if at-start? { - curr <- prev-duplex curr + curr <- prev curr break-unless curr at-start?:boolean <- equal curr, start break-if at-start? -- cgit 1.4.1-2-gfad0