diff options
Diffstat (limited to 'sandbox/003-shortcuts.mu')
| -rw-r--r-- | sandbox/003-shortcuts.mu | 160 |
1 files changed, 143 insertions, 17 deletions
diff --git a/sandbox/003-shortcuts.mu b/sandbox/003-shortcuts.mu index d8e804f0..ee53335f 100644 --- a/sandbox/003-shortcuts.mu +++ b/sandbox/003-shortcuts.mu @@ -10,7 +10,7 @@ scenario editor-inserts-two-spaces-on-tab [ s:text <- new [ab cd] e:&:editor <- new-editor s, 0/left, 5/right - render screen, e + editor-render screen, e $clear-trace assume-console [ press tab @@ -32,7 +32,7 @@ scenario editor-inserts-two-spaces-and-wraps-line-on-tab [ assume-screen 10/width, 5/height s:text <- new [abcd] e:&:editor <- new-editor s, 0/left, 5/right - render screen, e + editor-render screen, e $clear-trace assume-console [ press tab @@ -1010,18 +1010,17 @@ def move-to-previous-line editor:&:editor -> editor:&:editor [ # then scan back another line # if either step fails, give up without modifying cursor or coordinates curr:&:duplex-list:char <- copy before-cursor + old:&:duplex-list:char <- copy curr { - old:&:duplex-list:char <- copy curr c2:char <- get *curr, value:offset at-newline?:bool <- equal c2, 10/newline break-if at-newline? - curr:&:duplex-list:char <- before-previous-line curr, editor + curr <- before-previous-screen-line curr, editor no-motion?:bool <- equal curr, old return-if no-motion? } { - old <- copy curr - curr <- before-previous-line curr, editor + curr <- before-previous-screen-line curr, editor no-motion?:bool <- equal curr, old return-if no-motion? } @@ -2185,7 +2184,7 @@ def before-start-of-next-line original:&:duplex-list:char, max:num -> curr:&:dup # previous *wrapped* line # returns original if no next newline # beware: never return null pointer -def before-previous-line in:&:duplex-list:char, editor:&:editor -> out:&:duplex-list:char [ +def before-previous-screen-line in:&:duplex-list:char, editor:&:editor -> out:&:duplex-list:char [ local-scope load-ingredients curr:&:duplex-list:char <- copy in @@ -2227,7 +2226,6 @@ def before-previous-line in:&:duplex-list:char, editor:&:editor -> out:&:duplex- ] # ctrl-/ - comment/uncomment current line -# todo: scenarios after <handle-special-character> [ { @@ -2236,13 +2234,7 @@ after <handle-special-character> [ cursor-column:num <- get *editor, cursor-column:offset data:&:duplex-list:char <- get *editor, data:offset <insert-character-begin> - cursor:&:duplex-list:char <- get *editor, before-cursor:offset - { - next:&:duplex-list:char <- next cursor - break-unless next - cursor <- copy next - } - before-line-start:&:duplex-list:char <- before-previous-line cursor, editor + before-line-start:&:duplex-list:char <- before-start-of-screen-line editor line-start:&:duplex-list:char <- next before-line-start commented-out?:bool <- match line-start, [#? ] # comment prefix { @@ -2250,23 +2242,73 @@ after <handle-special-character> [ # uncomment data <- remove line-start, 3/length-comment-prefix, data cursor-column <- subtract cursor-column, 3/length-comment-prefix + *editor <- put *editor, cursor-column:offset, cursor-column + go-render? <- render-line-from-start screen, editor, 3/size-of-comment-leader } { break-if commented-out? # comment insert before-line-start, [#? ] cursor-column <- add cursor-column, 3/length-comment-prefix + *editor <- put *editor, cursor-column:offset, cursor-column + go-render? <- render-line-from-start screen, editor, 0 } - *editor <- put *editor, cursor-column:offset, cursor-column <insert-character-end> - return 1/do-render + return } ] +# Render just from the start of the current line, and only if it wasn't +# wrapping before (include margin) and isn't wrapping now. Otherwise just tell +# the caller to go-render? the entire screen. +def render-line-from-start screen:&:screen, editor:&:editor, right-margin:num -> go-render?:bool, screen:&:screen [ + local-scope + load-ingredients + before-line-start:&:duplex-list:char <- before-start-of-screen-line editor + line-start:&:duplex-list:char <- next before-line-start + color:num <- copy 7/white + left:num <- get *editor, left:offset + cursor-row:num <- get *editor, cursor-row:offset + screen <- move-cursor screen, cursor-row, left + right:num <- get *editor, right:offset + end:num <- subtract right, right-margin + i:num <- copy 0 + curr:&:duplex-list:char <- copy line-start + { + render-all?:bool <- greater-or-equal i, end + return-if render-all?, 1/go-render + break-unless curr + c:char <- get *curr, value:offset + newline?:bool <- equal c, 10/newline + break-if newline? + color <- get-color color, c + print screen, c, color + curr <- next curr + i <- add i, 1 + loop + } + clear-line-until screen, right + return 0/dont-render +] + +def before-start-of-screen-line editor:&:editor -> result:&:duplex-list:char [ + local-scope + load-ingredients + cursor:&:duplex-list:char <- get *editor, before-cursor:offset + { + next:&:duplex-list:char <- next cursor + break-unless next + cursor <- copy next + } + result <- before-previous-screen-line cursor, editor +] + scenario editor-comments-empty-line [ local-scope assume-screen 10/width, 5/height e:&:editor <- new-editor [], 0/left, 5/right + editor-render screen, e + $clear-trace assume-console [ press ctrl-slash ] @@ -2285,12 +2327,15 @@ scenario editor-comments-empty-line [ 4 <- 1 5 <- 3 ] + check-trace-count-for-label 5, [print-character] ] scenario editor-comments-at-start-of-contents [ local-scope assume-screen 10/width, 5/height e:&:editor <- new-editor [ab], 0/left, 10/right + editor-render screen, e + $clear-trace assume-console [ press ctrl-slash ] @@ -2309,12 +2354,15 @@ scenario editor-comments-at-start-of-contents [ 4 <- 1 5 <- 3 ] + check-trace-count-for-label 10, [print-character] ] scenario editor-comments-at-end-of-contents [ local-scope assume-screen 10/width, 5/height e:&:editor <- new-editor [ab], 0/left, 10/right + editor-render screen, e + $clear-trace assume-console [ left-click 1, 7 press ctrl-slash @@ -2334,4 +2382,82 @@ scenario editor-comments-at-end-of-contents [ 4 <- 1 5 <- 5 ] + check-trace-count-for-label 10, [print-character] + # toggle to uncomment + $clear-trace + assume-console [ + press ctrl-slash + ] + run [ + editor-event-loop screen, console, e + 4:num/raw <- get *e, cursor-row:offset + 5:num/raw <- get *e, cursor-column:offset + ] + screen-should-contain [ + . . + .ab . + .┈┈┈┈┈┈┈┈┈┈. + . . + ] + check-trace-count-for-label 10, [print-character] +] + +scenario editor-comments-almost-wrapping-line [ + local-scope + assume-screen 10/width, 5/height + # editor starts out with a non-wrapping line + e:&:editor <- new-editor [abcd], 0/left, 5/right + editor-render screen, e + screen-should-contain [ + . . + .abcd . + .┈┈┈┈┈ . + . . + ] + $clear-trace + # on commenting the line is now wrapped + assume-console [ + left-click 1, 7 + press ctrl-slash + ] + run [ + editor-event-loop screen, console, e + ] + screen-should-contain [ + . . + .#? a↩ . + .bcd . + .┈┈┈┈┈ . + . . + ] +] + +scenario editor-uncomments-just-wrapping-line [ + local-scope + assume-screen 10/width, 5/height + # editor starts out with a comment that wraps the line + e:&:editor <- new-editor [#? ab], 0/left, 5/right + editor-render screen, e + screen-should-contain [ + . . + .#? a↩ . + .b . + .┈┈┈┈┈ . + . . + ] + $clear-trace + # on uncommenting the line is no longer wrapped + assume-console [ + left-click 1, 7 + press ctrl-slash + ] + run [ + editor-event-loop screen, console, e + ] + screen-should-contain [ + . . + .ab . + .┈┈┈┈┈ . + . . + ] ] |