Next: Fix shell mode for 1.3.

.config/next/init.lisp

@@ -66,16 +66,17 @@
     (uiop:run-program (list "mpv" url))))
 (define-key "C-M-c v" 'play-video-in-current-page)
 
-;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (define-mode shell-mode ()
     "A basic shell prompt."
-    ((keymap
+    ((keymap-schemes
       :initform
       (let ((map (make-keymap)))
         (define-key :keymap map
           "c" 'run-shell-command
           "k" 'clear-shell)
-        map))))
+        (list :emacs map
+              :vi-normal map)))))
 
 (define-parenscript clear-shell-output ()
     (setf (ps:chain document body inner-h-t-m-l) ""))
@@ -97,7 +98,7 @@
   (with-result
       (input (read-from-minibuffer
               (minibuffer *interface*)
-              :input-prompt "Run in shell for Aparna:"))
+              :input-prompt "Run in shell:"))
     (rpc-buffer-evaluate-javascript
      *interface* (active-buffer *interface*)
      (append-output