key-echo: 单按修饰键来触发Emacs命令

manateelazycat · 2023 年8 月 3 日 21:42

manateelazycat/lazycat-emacs/blob/7e32845f9ae077415708c85a277ea0ba0a39b4c6/site-lisp/config/init-key-echo.el#L89


      
          ;;
          ;;
          
          
;;; Require
          (require 'key-echo)
          
          
;;; Code:
          
          
(key-echo-enable)
          
          
(defun key-echo-shift-to-switch-input-method (key)
            (interactive)
            ;; (message "***** %s" key)
            (cond
             ;; Press `Shift' to toggle input method.
             ((and (string-equal key "Key.shift")
                   (not buffer-read-only)
                   (not (derived-mode-p 'eaf-mode)))
              (toggle-input-method)
          
          
    ;; Change cursor color if `cursor-chg' is installed.

早上增强了一下，单按Shift是用于切换输入法，单按Left Alt是用于弹出 blink-search, 单按Right Alt是用于弹出popweb翻译