anchor.diff:    (chain require (ready (lambda ()
                             (require (list "ace/ace-uncompressed" "parenscript")
                                      (lambda ()
  -                                     (require (list "ace/theme-twilight" "engine/commands/default_commands")
  +                                     (require (list "engine/commands/default_commands" "ace/theme-twilight")
                                                 (lambda ()
                                                   (let ((editor (chain ace (edit "editor"))))
                                                     (chain editor (set-theme "ace/theme/twilight"))
  
positive.code:       (lambda (canon ps)
          (flet ((bind-key (key)
                   (create win key mac key sender "editor")))
            (chain ps (map (chain canon add-command)
                           (list (create name "move-beginning-of-line" bind-key (bind-key "Ctrl-a")
                                         exec (lambda (env args request)
                                                (chain env editor (move-cursor-to (chain env editor selection (get-selection-lead) row) 0))))
                                 (create name "move-end-of-line" bind-key (bind-key "Ctrl-e")
                                         exec (lambda (env args request)
                                                (chain env editor selection (move-cursor-line-end))))
                                 (create name "back-to-indentation" bind-key (bind-key "Alt-m")
                                         exec (lambda (env args request)
                                                (chain env editor selection (move-cursor-line-end))
                                                (chain env editor selection (move-cursor-line-start)))))))))))
  
  (define-memoized-ps-handler (client/parenscript :uri "/client/parenscript.js") ()
    (define (lambda ()
  
negative.code: (setq *dispatch-table* (list 'dispatch-easy-handlers
                               (create-folder-dispatcher-and-handler "/client/ace/"
                                                                     (pathname-as-directory (in-project-path "support" "ace" "build" "src")))
                               (create-folder-dispatcher-and-handler "/client/"
                                                                     (pathname-as-directory (in-project-path "client")))                             
                               'default-dispatcher))
  