akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

4207

This commit is contained in:
Kartik K. Agaram 2018-02-15 23:52:29 -08:00
parent 3eaca80834
commit aae1071005
5 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
edit/001-editor.mu
View File

@ -209,7 +209,6 @@ def render screen:&:screen, editor:&:editor -> last-row:num, last-column:num, sc
def clear-screen-from screen:&:screen, row:num, column:num, left:num, right:num -> screen:&:screen [
local-scope
load-inputs
#? stash [clear-screen-from] row column [between] left [and] right
# if it's the real screen, use the optimized primitive
{
break-if screen

4
sandbox/001-editor.mu
View File

@ -201,7 +201,9 @@ def render screen:&:screen, editor:&:editor -> last-row:num, last-column:num, sc
*editor <- put *editor, cursor-row:offset, cursor-row
*editor <- put *editor, cursor-column:offset, cursor-column
*editor <- put *editor, before-cursor:offset, before-cursor
return row, column
clear-line-until screen, right
row <- add row, 1
return row, left/column
]
def clear-screen-from screen:&:screen, row:num, column:num, left:num, right:num -> screen:&:screen [

2
sandbox/002-typing.mu
View File

@ -269,8 +269,6 @@ def editor-render screen:&:screen, editor:&:editor -> screen:&:screen, editor:&:
left:num <- get *editor, left:offset
right:num <- get *editor, right:offset
row:num, column:num <- render screen, editor
clear-line-until screen, right
row <- add row, 1
draw-horizontal screen, row, left, right, 9480/horizontal-dotted
row <- add row, 1
clear-screen-from screen, row, left, left, right

2
sandbox/004-programming-environment.mu
View File

@ -224,8 +224,6 @@ def render-sandbox-side screen:&:screen, env:&:environment, render-editor:render
left:num <- get *current-sandbox, left:offset
right:num <- get *current-sandbox, right:offset
row:num, column:num, screen, current-sandbox <- call render-editor, screen, current-sandbox
clear-line-until screen, right
row <- add row, 1
# draw solid line after code (you'll see why in later layers)
draw-horizontal screen, row, left, right
row <- add row, 1

2
sandbox/005-sandbox.mu
View File

@ -250,8 +250,6 @@ def! render-sandbox-side screen:&:screen, env:&:environment, render-editor:rende
render-current-sandbox?:bool <- equal render-from, -1
break-unless render-current-sandbox?
row, column, screen, current-sandbox <- call render-editor, screen, current-sandbox
clear-screen-from screen, row, column, left, right
row <- add row, 1
}
# render sandboxes
draw-horizontal screen, row, left, right