From 2c53c3d0a921aec9825946be8dc37eff95b95485 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sun, 12 Mar 2017 00:31:55 -0800 Subject: 3789 I accidentally got rid of git snapshotting of lessons back when I switched to testable file primitives last December (commit 3705). >:-( Bringing it back now, hopefully better. The improvement is that there's now at most one commit every time we hit F4. This change adds yet another reason that running `mu` from a different directory is just not supported. --- html/edit/009-sandbox-test.mu.html | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'html/edit/009-sandbox-test.mu.html') diff --git a/html/edit/009-sandbox-test.mu.html b/html/edit/009-sandbox-test.mu.html index 93625606..92ec3f39 100644 --- a/html/edit/009-sandbox-test.mu.html +++ b/html/edit/009-sandbox-test.mu.html @@ -155,7 +155,7 @@ if ('onhashchange' in window) { 92 ] 93 94 # include expected response when saving or restoring a sandbox - 95 before <end-save-sandbox> [ + 95 before <end-save-sandbox> [ 96 { 97 ¦ expected-response:text <- get *curr, expected-response:offset 98 ¦ break-unless expected-response @@ -164,7 +164,7 @@ if ('onhashchange' in window) { 101 } 102 ] 103 -104 before <end-restore-sandbox> [ +104 before <end-restore-sandbox> [ 105 { 106 ¦ filename <- append filename, [.out] 107 ¦ contents <- slurp resources, filename @@ -192,7 +192,7 @@ if ('onhashchange' in window) { 129 ¦ break-unless sandbox 130 ¦ # toggle its expected-response, and save session 131 ¦ sandbox <- toggle-expected-response sandbox -132 ¦ save-sandboxes env, resources +132 ¦ save-sandboxes env, resources 133 ¦ hide-screen screen 134 ¦ screen <- render-sandbox-side screen, env, render 135 ¦ screen <- update-cursor screen, recipes, current-sandbox, sandbox-in-focus?, env @@ -246,7 +246,7 @@ if ('onhashchange' in window) { 183 ] 184 185 # when rendering a sandbox, color it in red/green if expected response exists -186 after <render-sandbox-response> [ +186 after <render-sandbox-response> [ 187 { 188 ¦ break-unless sandbox-response 189 ¦ *sandbox <- put *sandbox, response-starting-row-on-screen:offset, row @@ -255,17 +255,17 @@ if ('onhashchange' in window) { 192 ¦ response-is-expected?:bool <- equal expected-response, sandbox-response 193 ¦ { 194 ¦ ¦ break-if response-is-expected?:bool -195 ¦ ¦ row, screen <- render-text screen, sandbox-response, left, right, 1/red, row +195 ¦ ¦ row, screen <- render-text screen, sandbox-response, left, right, 1/red, row 196 ¦ } 197 ¦ { 198 ¦ ¦ break-unless response-is-expected?:bool -199 ¦ ¦ row, screen <- render-text screen, sandbox-response, left, right, 2/green, row +199 ¦ ¦ row, screen <- render-text screen, sandbox-response, left, right, 2/green, row 200 ¦ } 201 ¦ jump +render-sandbox-end 202 } 203 ] 204 -205 before <end-render-sandbox-reset-hidden> [ +205 before <end-render-sandbox-reset-hidden> [ 206 *sandbox <- put *sandbox, response-starting-row-on-screen:offset, 0 207 ] -- cgit 1.4.1-2-gfad0