การปิดวงเล็บที่ค้างอยู่ทั้งหมด

เมื่อเขียนรหัส lisp บางครั้งฉันลึกลงไปในนิพจน์ที่ซ้อนกันและทั้งหมดที่ฉันต้องการคือการใส่วงเล็บปิดที่หายไปทั้งหมด ตอนนี้ฉันแค่สอดมันไว้จนกว่าฉันจะได้ paren ที่ไม่ตรงกัน แต่มันไม่ได้มีประสิทธิภาพมาก
มีคำสั่งใด ๆ ที่จะแทรกวงเล็บที่หายไปทั้งหมดหรือไม่?

FYI ฉันใช้ smartparens เพื่อแทรก parens ที่ตรงกันโดยอัตโนมัติ ถึงกระนั้นบางครั้งฉันก็ต้องทำเช่นนี้

นี่คือฟังก์ชั่นที่ปิดวงเล็บ unclosed ทั้งหมดและคู่ที่ตรงกันอื่น ๆ มันขึ้นอยู่กับการแยกวิเคราะห์ sexp ของ Emacs มันเพียง แต่สนับสนุนคู่ตัวเดียวจับคู่เพื่อให้สิ่งที่ต้องการ{-จะถูกปิดด้วยไม่ได้} -}สำหรับเสียงกระเพื่อมนั้นไม่สำคัญ

(defun close-all-parentheses ()
  (interactive "*")
  (let ((closing nil))
    (save-excursion
      (while (condition-case nil
         (progn
           (backward-up-list)
           (let ((syntax (syntax-after (point))))
             (case (car syntax)
               ((4) (setq closing (cons (cdr syntax) closing)))
               ((7 8) (setq closing (cons (char-after (point)) closing)))))
           t)
           ((scan-error) nil))))
    (apply #'insert (nreverse closing))))

ฉันพบว่าหากคุณติดตั้งน้ำเมือกมีคำสั่งให้ทำสิ่งนี้เรียกว่า slime-close-all-parens-in-sexp

เป็นวิธีดั้งเดิม (และเกือบผิดอย่างแน่นอน) ในการทำเช่นนั้น

(defun buffer-needs-parens-fixing ()
  (save-excursion
    (condition-case nil
        (check-parens)
      (error (point)))))

(defun buffer-fix-parens ()
  (interactive)
  (while (buffer-needs-parens-fixing)
    (insert ")")))

ท่ามกลางข้อ จำกัด อื่น ๆ มันจะถือว่าวงเล็บทั้งหมดที่ต้องใส่คือ:

• คนที่ปิด
• จำเป็นที่ตำแหน่งปัจจุบัน

ฉันเดาว่ามันอาจจะเพียงพอสำหรับการใช้งานเฉพาะของคุณ