Auto insersion of closing " (doublequote) in paredit-mode.

lem-paredit-mode/paredit-mode.lisp

@@ -59,6 +59,22 @@ link : http://www.daregada.sakuraweb.com/paredit_tutorial_ja.html
       (character-offset p -1))
     (character-offset p -1)))
 
+(define-command paredit-insert-doublequote () ()
+  (let ((p (current-point)))
+    (when (eql (character-at p -1) #\\)
+      (insert-character p #\")
+      (return-from paredit-insert-doublequote))
+    (unless (or (eql (character-at p -1) #\Space)
+                (bolp p))
+      (insert-character p #\Space))
+    (dolist (c '(#\" #\"))
+      (insert-character p c))
+    (unless (or (eolp p)
+                (eql (character-at p) #\Space))
+      (insert-character p #\Space)
+      (character-offset p -1))
+    (character-offset p -1)))
+
 (define-command paredit-backward-delete (&optional (n 1)) ("p")
   (when (< 0 n)
     (with-point ((p (current-point)))
@@ -68,6 +84,9 @@ link : http://www.daregada.sakuraweb.com/paredit_tutorial_ja.html
                (delete-next-char)
                (delete-previous-char)))
         (#\) (backward-char))
+        (#\" (when (char= (character-at p 1) #\")
+               (delete-next-char)
+               (delete-previous-char)))
         (otherwise
          (delete-previous-char))))
     (paredit-backward-delete (1- n))))
@@ -151,6 +170,7 @@ link : http://www.daregada.sakuraweb.com/paredit_tutorial_ja.html
                        (backward-sexp . paredit-backward)
                        ("(" . paredit-insert-paren)
                        (")" . paredit-close-parenthesis)
+                       ("\"" . paredit-insert-doublequote)
                        (delete-previous-char . paredit-backward-delete)
                        ("C-Right" . paredit-slurp)
                        ("C-Left" . paredit-barf)