diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2017-05-19 23:15:47 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2017-05-19 23:39:07 -0700 |
commit | 27bd7e76a245397170ad618337cfc1dc49851061 (patch) | |
tree | fbd69875cea6f1b203e926a2ff4b2c52394403ac /edit/005-sandbox.mu | |
parent | c9e5287db38355990682e657d1a18c00e1f062fc (diff) | |
download | mu-27bd7e76a245397170ad618337cfc1dc49851061.tar.gz |
3869
Clean up a few superficial things in Caleb's commit.
Diffstat (limited to 'edit/005-sandbox.mu')
-rw-r--r-- | edit/005-sandbox.mu | 66 |
1 files changed, 1 insertions, 65 deletions
diff --git a/edit/005-sandbox.mu b/edit/005-sandbox.mu index 278f9d17..02bdd284 100644 --- a/edit/005-sandbox.mu +++ b/edit/005-sandbox.mu @@ -358,6 +358,7 @@ def sandbox-menu-columns left:num, right:num -> edit-button-left:num, edit-butto # print a text 's' to 'editor' in 'color' starting at 'row' # clear rest of last line, move cursor to next line +# like 'render-code' but without syntax-based colorization def render-text screen:&:screen, s:text, left:num, right:num, color:num, row:num -> row:num, screen:&:screen [ local-scope load-ingredients @@ -435,71 +436,6 @@ scenario read-text-wraps-barely-long-lines [ ] ] -# like 'render-text', but with colorization for comments like in the editor -def render-code screen:&:screen, s:text, left:num, right:num, row:num -> row:num, screen:&:screen [ - local-scope - load-ingredients - return-unless s - color:num <- copy 7/white - column:num <- copy left - screen <- move-cursor screen, row, column - screen-height:num <- screen-height screen - i:num <- copy 0 - len:num <- length *s - { - +next-character - done?:bool <- greater-or-equal i, len - break-if done? - done? <- greater-or-equal row, screen-height - break-if done? - c:char <- index *s, i - <character-c-received> # only line different from 'render-text' - { - # newline? move to left rather than 0 - newline?:bool <- equal c, 10/newline - break-unless newline? - # clear rest of line in this window - { - done?:bool <- greater-than column, right - break-if done? - space:char <- copy 32/space - print screen, space - column <- add column, 1 - loop - } - row <- add row, 1 - column <- copy left - screen <- move-cursor screen, row, column - i <- add i, 1 - loop +next-character - } - { - # at right? wrap. - at-right?:bool <- equal column, right - break-unless at-right? - # print wrap icon - wrap-icon:char <- copy 8617/loop-back-to-left - print screen, wrap-icon, 245/grey - column <- copy left - row <- add row, 1 - screen <- move-cursor screen, row, column - # don't increment i - loop +next-character - } - i <- add i, 1 - print screen, c, color - column <- add column, 1 - loop - } - was-at-left?:bool <- equal column, left - clear-line-until screen, right - { - break-if was-at-left? - row <- add row, 1 - } - move-cursor screen, row, left -] - # assumes programming environment has no sandboxes; restores them from previous session def restore-sandboxes env:&:environment, resources:&:resources -> env:&:environment [ local-scope |