Emacsの括弧機能を超絶強化するsmartparensとrainbow-delimiters

(use-package smartparens
  :ensure t
  :bind (
         :map smartparens-mode-map
              ("C-M-a" . sp-beginning-of-sexp)              ;; カーソルが括弧の中か上にある場合、括弧の先頭に移動
              ("C-M-e" . sp-end-of-sexp)                    ;; カーソルが括弧の中か上にある場合、括弧の最後に移動
              ;; ("C-M-d" . sp-down-sexp)          ;; 現在いる括弧の中にさらにネストした括弧がある場合その括弧に移動
              ;; ("C-M-u" . sp-up-sexp)            ;; 現在いる括弧の外の閉じ括弧に移動
              ;; ("C-M-w" . sp-backward-down-sexp) ;; カーソルから見て後ろにネストした括弧がある場合は、そのネストに入っていく
              ;; ("C-M-q" . sp-backward-up-sexp)   ;; カーソルより後ろに上位の括弧がある場合はその上位の括弧に移動する
              ("C-M-f" . sp-forward-symbol)     ;; 次のシンボルへざっくり移動する。M-f良いような気がする。
              ("C-M-b" . sp-backward-symbol)    ;; 前のシンボルへざっくり移動する。M-bで良いような気がする。
              ;; ("C-M-n" . sp-next-sexp)          ;; 現在のカーソルがある階層で次の括弧へ移動する
              ;; ("C-M-p" . sp-previous-sexp)      ;; 現在のカーソルがある階層で前の括弧へ移動する
              ("C-s-f" . sp-forward-sexp)                   ;; カーソルからの次の括弧へ移動する。
              ("C-s-b" . sp-backward-sexp)                  ;; カーソルからの前の括弧へ移動する。

              ;; カーソルがある位置のワードをその括弧で囲う
              ("C-c ("  . wrap-with-parens)
              ("C-c ["  . wrap-with-brackets)
              ("C-c {"  . wrap-with-braces)
              ("C-c '"  . wrap-with-single-quotes) ;; lisp-modeではシングルクオーはテキストではなく変数のオブジェクト化で使われるので、利用できない
              ("C-c \"" . wrap-with-double-quotes)

              ;;          ;;("M-<" . sp-backward-unwrap-sexp)  ;; input系のM-[プレフィックスにぶつかり、予期せない挙動が出るのでショートカットを変更する。
              ("M-]" . sp-unwrap-sexp) ;; 現在のカーソルがる位置の括弧を解除する
              ;;          ("C-<right>" . sp-forward-slurp-sexp) ;; 括弧が囲む範囲を右に拡張する
              ;;          ("C-<left>" . sp-forward-barf-sexp) ;; 括弧が囲む範囲を左に縮小する。
              ("M-k" . sp-kill-sexp)) ;; ざっくり括弧の範囲を削除する。変数名や関数にも使える

  :init
  (smartparens-global-mode t)   ;; 基本的なsmartparensモードを起動
  (require 'smartparens-config) ;; メージャーモードに合わせて必要な括弧のモードを起動する設定
  :config
  ;; カーソルがある位置の要素を括弧でラップするための関数
  (defmacro def-pairs (pairs)
    "Define functions for pairing. PAIRS is an alist of (NAME . STRING)
     conses, where NAME is the function name that will be created and
     STRING is a single-character string that marks the opening character.
     (def-pairs ((paren . \"(\")
              (bracket . \"[\"))
     defines the functions WRAP-WITH-PAREN and WRAP-WITH-BRACKET,respectively."
    `(progn
       ,@(cl-loop for (key . val) in pairs
                  collect
                  `(defun ,(read (concat
                                  "wrap-with-"
                                  (prin1-to-string key)
                                  "s"))
                       (&optional arg)
                     (interactive "p")
                     (sp-wrap-with-pair ,val)))))

  (def-pairs ((paren . "(")
              (bracket . "[")
              (brace . "{")
              (single-quote . "'")
              (double-quote . "\""))))

(use-package rainbow-delimiters
  :ensure t
  :init
  (add-hook 'prog-mode-hook #'rainbow-delimiters-mode)) ;;プログラミングモード全てでカッコをハイライトする

()

"この範囲をC-SPCで選択して、ダブルクォートで囲ってみます"

←C-M-a                                 C-M-e→
"<https://raw.githubusercontent.com/install.el>"

M-fの場合はカーソルはこのように前へ移動します
|  =>|  => |   =>  |  => |   =>   |
event-apply-control-super-modifier

C-M-fの場合はカーソルはこのように前へ移動します
|                =>               |
event-apply-control-super-modifier

C-M-fの場合はカーソルはこのように前へ移動します
|  =>   |   =>  |  =>|      =>       | => |    =>   | =>|  =>|
response = await loop.run_in_executor(None, requests.get, url)

C-s-fの場合はカーソルはこのように前へ移動します
|  =>   |   =>  |  =>|      =>       |         =>            |
response = await loop.run_in_executor(None, requests.get, url)