about summary refs log tree commit diff stats
path: root/edit/001-editor.mu
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2016-05-19 21:35:34 -0700
committerKartik K. Agaram <vc@akkartik.com>2016-05-19 21:35:34 -0700
commit607ddf3391dba72725a368e047169004ada0fcbe (patch)
treebaa3557cae6220a7e9be943af0d76edd7e0eb588 /edit/001-editor.mu
parent66ee78a7bbc209d640c3c360d8973248bc66c898 (diff)
downloadmu-607ddf3391dba72725a368e047169004ada0fcbe.tar.gz
2983 - migrate buttons over to sandbox/
Diffstat (limited to 'edit/001-editor.mu')
-rw-r--r--edit/001-editor.mu20
1 files changed, 0 insertions, 20 deletions
diff --git a/edit/001-editor.mu b/edit/001-editor.mu
index 68bb1775..be210b95 100644
--- a/edit/001-editor.mu
+++ b/edit/001-editor.mu
@@ -222,26 +222,6 @@ def render screen:address:screen, editor:address:editor-data -> last-row:number,
   return row, column, screen/same-as-ingredient:0, editor/same-as-ingredient:1
 ]
 
-def clear-line-until screen:address:screen, right:number/inclusive -> screen:address:screen [
-  local-scope
-  load-ingredients
-  _, column:number <- cursor-position screen
-  space:character <- copy 32/space
-  bg-color:number, bg-color-found?:boolean <- next-ingredient
-  {
-    # default bg-color to black
-    break-if bg-color-found?
-    bg-color <- copy 0/black
-  }
-  {
-    done?:boolean <- greater-than column, right
-    break-if done?
-    screen <- print screen, space, 7/white, bg-color  # foreground color is mostly unused except if the cursor shows up at this cell
-    column <- add column, 1
-    loop
-  }
-]
-
 def clear-screen-from screen:address:screen, row:number, column:number, left:number, right:number -> screen:address:screen [
   local-scope
   load-ingredients