implement Toggle-Insert

  The function got lost in a reshuffle way back when, but looks like it never
  did anything useful. Huh.

diff --git a/command-functions.lisp b/command-functions.lisp
index 2d3cb2d..6aa4c55 100644 (file)
--- a/command-functions.lisp
+++ b/command-functions.lisp
@@ -31,9 +31,13 @@
 
 (defun add-char (char editor)
   (with-editor-point-and-string ((point string) editor)
-    (setf (get-string editor) (concat (subseq string 0 point)
-                                     (string char)
-                                     (subseq string point)))
+    (setf (get-string editor)
+          (concat (subseq string 0 point)
+                  (string char)
+                  (if (editor-insert-mode editor)
+                      (subseq string point)
+                      (when (> (length string) (1+ point))
+                        (subseq string (1+ point))))))
     (incf (get-point editor))))
 
 (defun delete-char-backwards (chord editor)
@@ -351,3 +355,7 @@
   (print-in-lines editor
                  (with-output-to-string (s)
                    (describe (read-from-string (editor-word editor)) s))))
+
+(defun toggle-insert (chord editor)
+  (declare (ignore chord))
+  (setf (editor-insert-mode editor) (not (editor-insert-mode editor))))

diff --git a/editor.lisp b/editor.lisp
index ca3fd72..64e7234 100644 (file)
--- a/editor.lisp
+++ b/editor.lisp
@@ -35,7 +35,7 @@
              :initarg :complete)
    (history :accessor editor-history)
    (killring :accessor editor-killring)
-   (insert :reader editor-insert-mode
+   (insert :accessor editor-insert-mode
           :initform t
           :initarg :insert-mode)
    (mark :accessor editor-mark