diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2015-08-15 05:07:31 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2015-08-15 05:07:31 -0700 |
| commit | 373953f21d267710cfc1e9c41d34f249a39cc84a (patch) | |
| tree | adb8677e88ba1267059756d4afeca8b5fcfb01fb | |
| parent | 35379c9abc22cb2ed535b0808efac909bddbb707 (diff) | |
| download | mu-373953f21d267710cfc1e9c41d34f249a39cc84a.tar.gz | |
2006
| -rw-r--r-- | edit.mu | 46 |
1 files changed, 23 insertions, 23 deletions
diff --git a/edit.mu b/edit.mu index 8886b835..656090c0 100644 --- a/edit.mu +++ b/edit.mu @@ -3963,29 +3963,6 @@ recipe resize [ reply env/same-as-ingredient:1 ] -recipe update-cursor [ - local-scope - screen:address <- next-ingredient - recipes:address:editor-data <- next-ingredient - current-sandbox:address:editor-data <- next-ingredient - sandbox-in-focus?:boolean <- next-ingredient - { - break-if sandbox-in-focus? -#? $print [recipes in focus -#? ] #? 1 - cursor-row:number <- get *recipes, cursor-row:offset - cursor-column:number <- get *recipes, cursor-column:offset - } - { - break-unless sandbox-in-focus? -#? $print [sandboxes in focus -#? ] #? 1 - cursor-row:number <- get *current-sandbox, cursor-row:offset - cursor-column:number <- get *current-sandbox, cursor-column:offset - } - move-cursor screen, cursor-row, cursor-column -] - scenario point-at-multiple-editors [ $close-trace assume-screen 30/width, 5/height @@ -4217,6 +4194,29 @@ recipe render-recipes [ reply screen/same-as-ingredient:0 ] +recipe update-cursor [ + local-scope + screen:address <- next-ingredient + recipes:address:editor-data <- next-ingredient + current-sandbox:address:editor-data <- next-ingredient + sandbox-in-focus?:boolean <- next-ingredient + { + break-if sandbox-in-focus? +#? $print [recipes in focus +#? ] #? 1 + cursor-row:number <- get *recipes, cursor-row:offset + cursor-column:number <- get *recipes, cursor-column:offset + } + { + break-unless sandbox-in-focus? +#? $print [sandboxes in focus +#? ] #? 1 + cursor-row:number <- get *current-sandbox, cursor-row:offset + cursor-column:number <- get *current-sandbox, cursor-column:offset + } + move-cursor screen, cursor-row, cursor-column +] + # ctrl-n - switch focus # todo: test this |