วิธีการแทนที่การผูกโหมดหลัก

บางครั้งการโยงคีย์โกลบอลของฉันถูกเขียนทับโดยโหมดหลัก ตัวอย่างง่ายๆคือการตั้งค่าต่อไปนี้ในไฟล์ init ของฉัน

(global-set-key (kbd "C-j") 'newline-and-indent)

แต่น่ารำคาญที่การเชื่อมโยงปุ่มกดนี้ถูกซ่อนไว้ในโหมดหลัก "Lisp Interaction" ซึ่งเป็นโหมดเริ่มต้นของบัฟเฟอร์รอยขีดข่วน

เมื่อฉันพบว่าตัวเองอยู่ในสถานการณ์ที่เป็นโหมดหลัก (หรือโหมดรอง) กำลังซ่อนปุ่มลัดส่วนกลางของฉันฉันจะเอามันกลับมาได้อย่างไร

หมายเหตุ: คำถามของฉันไม่ใช่"ฉันจะผูกC-jไว้newline-and-indentในโหมด" Lisp Interaction "ได้อย่างไร" ฉันสนใจคำตอบทั่วไปเพิ่มเติมเกี่ยวกับวิธีจัดการกับ keymaps ที่ขัดแย้งหรือ keybindings ผู้ใช้ที่ถูกซ่อนโดยโหมดหลัก / รองบางอย่าง

มีวิธี "ทางลัด" ด้วยเช่นกันหากคุณไม่ต้องการกำหนดโหมดย่อยของคุณเอง (ที่ฉันพูดถึงในคำตอบแรก)

คุณสามารถติดตั้งuse-packageแพคเกจใช้ได้จาก Melpa และทำให้การใช้bind-key*หรือbind-keys*แมโครที่เป็นส่วนหนึ่งของแพคเกจที่มาพร้อมกับbind-keyuse-package

จากเอกสารของbind-key.el:

;; If you want the keybinding to override all minor modes that may also bind
;; the same key, use the `bind-key*' form:
;;
;;   (bind-key* "<C-return>" 'other-window)

;; To bind multiple keys in a `bind-key*' way (to be sure that your bindings
;; will not be overridden by other modes), you may use `bind-keys*' macro:
;;
;;    (bind-keys*
;;     ("C-o" . other-window)
;;     ("C-M-n" . forward-page)
;;     ("C-M-p" . backward-page))

คุณสามารถกำหนดโหมดรองของคุณเองและแผนที่ที่สำคัญและมีที่แทนที่โหมดอื่น ๆ ทั้งหมด (เล็กน้อย + ที่สำคัญ) นั่นเป็นเหตุผลที่ฉันเลือกที่จะเขียนโหมดรองของตัวเอง

ขั้นตอนในการผูกการคีย์ของคุณจะแทนที่การโยงทั้งหมด:

• การกำหนดโหมดย่อยและแผนที่หลักของคุณเองดังแสดงด้านล่าง
• เปิดใช้งานโหมดย่อยของคุณทั่วโลก
• (define-key my-mode-map (kbd "C-j") #'newline-and-indent)

ในทำนองเดียวกันการเชื่อมโยงคีย์อื่น ๆ ของคุณที่ตั้งค่าในโหมดรองของคุณจะแทนที่สิ่งเหล่านั้นในโหมดอื่น ๆ

ฉันขอแนะนำให้อ่านโพสต์บล็อกโดย Christopher Wellons เกี่ยวกับวิธีการเขียนโหมดรอง บล็อกนั้นบวกกับความยุ่งยากในการตั้งค่าการเชื่อมโยงคีย์nilหลาย ๆ แบบในโหมดหลักและรองหลาย ๆ โหมดเป็นแรงบันดาลใจให้ฉันเขียนโหมดรองของตัวเอง

ส่วนที่ดีที่สุดของการใช้วิธีนี้คือเมื่อคุณต้องการตรวจสอบว่าการเชื่อมโยงคีย์ทำอะไรในการกำหนดค่าเริ่มต้นของ emacs คุณเพียงปิดโหมดรอง จากนั้นคุณเปิดใช้งานอีกครั้งและคุณจะได้รับการเชื่อมโยงคีย์แบบกำหนดเองของคุณ

;; Main use is to have my key bindings have the highest priority
;; https://github.com/kaushalmodi/.emacs.d/blob/master/elisp/modi-mode.el

(defvar my-mode-map (make-sparse-keymap)
  "Keymap for `my-mode'.")

;;;###autoload
(define-minor-mode my-mode
  "A minor mode so that my key settings override annoying major modes."
  ;; If init-value is not set to t, this mode does not get enabled in
  ;; `fundamental-mode' buffers even after doing \"(global-my-mode 1)\".
  ;; More info: http://emacs.stackexchange.com/q/16693/115
  :init-value t
  :lighter " my-mode"
  :keymap my-mode-map)

;;;###autoload
(define-globalized-minor-mode global-my-mode my-mode my-mode)

;; https://github.com/jwiegley/use-package/blob/master/bind-key.el
;; The keymaps in `emulation-mode-map-alists' take precedence over
;; `minor-mode-map-alist'
(add-to-list 'emulation-mode-map-alists `((my-mode . ,my-mode-map)))

;; Turn off the minor mode in the minibuffer
(defun turn-off-my-mode ()
  "Turn off my-mode."
  (my-mode -1))
(add-hook 'minibuffer-setup-hook #'turn-off-my-mode)

(provide 'my-mode)

;; Minor mode tutorial: http://nullprogram.com/blog/2013/02/06/

หากต้องการให้การรวมโกลบอลแทนที่การโยงโหมดหลักให้ตั้งค่าการรวมnilในโหมดหลัก:

(define-key my-major-mode-map (kbd "C-j") nil)

เป็นไปไม่ได้ที่จะมีการเชื่อมโยงทั่วโลกมีความสำคัญกว่าทุกโหมดโดยทั่วไป (ไม่เช่นนั้นจะไม่มีประเด็นในการมีโหมดหลัก) แต่คุณสามารถแฮ็คมันโดยการสร้างโหมดรองของคุณเองด้วยการผูกที่สำคัญที่สุด อย่างน้อยคุณก็จะมีความสำคัญเหนือกว่าโหมดส่วนใหญ่ (แม้ว่าจะไม่จำเป็นทั้งหมด)

คุณสามารถใช้มาโครเหล่านี้ได้:

(defmacro expose-global-keybinding (binding map)
  `(define-key ,map ,binding (lookup-key (current-global-map) ,binding)))

(defmacro expose-bindings (map bindings)
  `(dolist (bnd ,bindings)
     (expose-global-keybinding (kbd bnd) ,map)))

แก้ไข :

ตรวจสอบการร้อง:

หาก keymap X กำลังแทนที่ Y ส่วนกลางของคุณคุณเขียน:

(expose-bindings X '("Y"))

จากนั้นการแทนที่จะเป็น 'เลิกทำ'