fiddlerwoaroof/dotfiles - Change DHBUHEBOVAXLOPTCKGI3UZN7R5LSWWZWVDWOXZP7LFOAGMYEGNGQC

refactor(emacs,evil): redo smartparens keybindings as a keymap

Created by Edward Langley on December 22, 2022

DHBUHEBOVAXLOPTCKGI3UZN7R5LSWWZWVDWOXZP7LFOAGMYEGNGQC

Dependencies

In channels

main

Change contents

File deletion: dependencies, dependencies
BFD:BFD[3.1] → [4.129:152]
BFD:BFD[3.1] → [4.129:152]
BFD:BFD[4.152] → [4.128:128]
Replacement in emacs.d/lisp/configurations/evil-conf.el at line 1 [5.8110]
B:BD[5.8110] → [5.8111:8156]
```
(defun wrap-with-doublequote (&optional arg)
```
[5.8110]
[5.8156]
```
(defun fwoar:wrap-with-doublequote (&optional arg)
```
Replacement in emacs.d/lisp/configurations/evil-conf.el at line 5 [5.8110]
B:BD[5.8206] → [5.8206:8234]
```
(defun wrap-in-dollar-brace
```
[5.8206]
[5.8234]
```
(defun fwoar:wrap-in-dollar-brace
```

Replacement in emacs.d/lisp/configurations/evil-conf.el at line 70 [5.8110]

B:BD[5.10426] → [5.10426:10468]

B:BD[5.10468] → [6.184:195]

∅:D[6.195] → [5.10468:10532]

B:BD[5.10468] → [5.10468:10532]

(use-package evil-smartparens
  :ensure t
  :delight
  :after evil smartparens
  :config
  (evil-smartparens-mode 1)

[5.10426]

[5.10532]

(define-keymap :prefix 'fwoar:smartparens-map
  ;; wrapping
  "W" #'sp-wrap-round
  "C-W" #'sp-wrap-round
  "w" (define-keymap :prefix 'fwoar:smartparens-wrap-map
        "(" #'sp-wrap-round
        ")" #'sp-wrap-round

Replacement in emacs.d/lisp/configurations/evil-conf.el at line 78 [5.8110]

B:BD[5.10533] → [5.10533:10554]

B:BD[5.10554] → [7.4508:4710]

  (progn ;; wrapping
    (evil-define-key 'normal 'global (kbd ",W") 'sp-wrap-round)
    (evil-define-key 'normal 'global  (kbd "C-, W") 'sp-wrap-round)
    (evil-define-key 'normal 'global  (kbd "C-, C-W") 'sp-wrap-round)

[5.10533]

[8.260]

        "{" #'sp-wrap-curly
        "}" #'sp-wrap-curly

Replacement in emacs.d/lisp/configurations/evil-conf.el at line 81 [5.8110]

B:BD[5.10752] → [7.4711:4841]

B:BD[7.4841] → [8.262:262]

∅:D[8.262] → [5.10872:11104]

∅:D[7.4841] → [5.10872:11104]

∅:D[9.4844] → [5.10872:11104]

B:BD[5.10872] → [5.10872:11104]

    (evil-define-key 'normal 'global (kbd ",w(") 'sp-wrap-round)
    (evil-define-key 'normal 'global (kbd ",w)") 'sp-wrap-round)
    (define-key global-map (kbd "C-, (") 'sp-wrap-round)
    (define-key global-map (kbd "C-, C-(") 'sp-wrap-round)
    (define-key global-map (kbd "C-, )") 'sp-wrap-round)
    (define-key global-map (kbd "C-, C-)") 'sp-wrap-round)

[5.10752]

[5.11104]

        "[" #'sp-wrap-square
        "]" #'sp-wrap-square

Replacement in emacs.d/lisp/configurations/evil-conf.el at line 84 [5.8110]

B:BD[5.11105] → [7.4842:5119]

B:BD[7.5119] → [8.264:264]

∅:D[8.264] → [5.11367:11717]

∅:D[7.5119] → [5.11367:11717]

∅:D[9.5122] → [5.11367:11717]

B:BD[5.11367] → [5.11367:11717]

    (evil-define-key 'normal 'global (kbd ",w$") 'wrap-in-dollar-brace)
    (evil-define-key 'normal 'global  (kbd "C-, $") 'wrap-in-dollar-brace)
    (evil-define-key 'normal 'global (kbd ",w{") 'sp-wrap-curly)
    (evil-define-key 'normal 'global (kbd ",w}") 'sp-wrap-curly)
    (define-key global-map (kbd "C-, {") 'sp-wrap-curly)
    (define-key global-map (kbd "C-, C-{") 'sp-wrap-curly)
    (define-key global-map (kbd "C-, }") 'sp-wrap-curly)
    (define-key global-map (kbd "C-, C-}") 'sp-wrap-curly)
    (define-key global-map (kbd "C-, w {") 'sp-wrap-curly)
    (define-key global-map (kbd "C-, w }") 'sp-wrap-curly)

[5.11105]

[5.11717]

        "\"" #'fwoar:wrap-with-doublequote
        "$" #'fwoar:wrap-in-dollar-brace)

Replacement in emacs.d/lisp/configurations/evil-conf.el at line 87 [5.8110]

B:BD[5.11718] → [9.5123:5255]

∅:D[7.5252] → [5.11840:12201]

∅:D[9.5255] → [5.11840:12201]

B:BD[5.11840] → [5.11840:12201]

    (evil-define-key 'normal 'global (kbd ",w[") 'sp-wrap-square)
    (evil-define-key 'normal 'global (kbd ",w]") 'sp-wrap-square)
    (define-key global-map (kbd "C-, w [") 'sp-wrap-square)
    (define-key global-map (kbd "C-, <escape>") 'sp-wrap-square)
    (define-key global-map (kbd "C-, [") 'sp-wrap-square)
    (define-key global-map (kbd "C-, w ]") 'sp-wrap-square)
    (define-key global-map (kbd "C-, C-]") 'sp-wrap-square)
    (define-key global-map (kbd "C-, ]") 'sp-wrap-square)

[5.11718]

[5.12201]

  ;; narrowing
  "n" (define-keymap :prefix 'fwoar:smartparens-narrow-map
        "(" #'sp-narrow-to-sexp
        ")" #'sp-narrow-to-sexp
        "d" #'narrow-to-defun
        "n" #'narrow-to-defun
        "r" #'narrow-to-region
        "w" #'widen)

Replacement in emacs.d/lisp/configurations/evil-conf.el at line 96 [5.8110]

B:BD[5.12202] → [7.5253:5327]

B:BD[7.5327] → [10.535:616]

    (evil-define-key 'normal 'global (kbd ",w\"") 'wrap-with-doublequote)
    (comment (define-key cider-mode-map (kbd "C-, w \"") 'sp-wrap-doublequote)))

[5.12202]

[5.12342]

  ;; splicing
  "S" #'sp-splice-sexp
  "A" #'sp-splice-sexp-killing-backward
  "D" #'sp-splice-sexp-killing-forward
  "F" #'sp-splice-sexp-killing-around

Replacement in emacs.d/lisp/configurations/evil-conf.el at line 102 [5.8110]

B:BD[5.12343] → [5.12343:12364]

B:BD[5.12364] → [9.5331:5396]

B:BD[9.5396] → [10.617:762]

∅:D[10.762] → [7.5394:5476]

B:BD[5.12550] → [7.5394:5476]

B:BD[7.5476] → [10.763:942]

∅:D[10.942] → [9.5480:5561]

B:BD[5.12787] → [9.5480:5561]

B:BD[9.5561] → [10.943:1120]

∅:D[10.1120] → [7.5559:5639]

B:BD[5.13021] → [7.5559:5639]

B:BD[7.5639] → [10.1121:1297]

  (progn ;; splicing
    (evil-define-key 'normal 'global (kbd ",S") 'sp-splice-sexp)
    (comment (define-key cider-mode-map (kbd "C-, S") 'sp-splice-sexp)
             (define-key cider-mode-map (kbd "C-, C-S") 'sp-splice-sexp))
    (evil-define-key 'normal 'global (kbd ",A") 'sp-splice-sexp-killing-backward)
    (comment (define-key cider-mode-map (kbd "C-, A") 'sp-splice-sexp-killing-backward)
             (define-key cider-mode-map (kbd "C-, C-A") 'sp-splice-sexp-killing-backward))
    (evil-define-key 'normal 'global (kbd ",D") 'sp-splice-sexp-killing-forward)
    (comment (define-key cider-mode-map (kbd "C-, D") 'sp-splice-sexp-killing-forward)
             (define-key cider-mode-map (kbd "C-, C-D") 'sp-splice-sexp-killing-forward))
    (evil-define-key 'normal 'global (kbd ",F") 'sp-splice-sexp-killing-around)
    (comment (define-key cider-mode-map (kbd "C-, F") 'sp-splice-sexp-killing-around)
             (define-key cider-mode-map (kbd "C-, C-F") 'sp-splice-sexp-killing-around)))

[5.12343]

[5.13253]

  ;; paren manipulation
  "," #'sp-backward-barf-sexp
  "." #'sp-forward-barf-sexp
  "<" #'sp-backward-slurp-sexp
  ">" #'sp-forward-slurp-sexp

Replacement in emacs.d/lisp/configurations/evil-conf.el at line 108 [5.8110]

B:BD[5.13254] → [5.13254:13277]

B:BD[5.13277] → [7.5640:5712]

B:BD[7.5712] → [10.1298:1457]

∅:D[10.1457] → [9.5716:5787]

B:BD[5.13484] → [9.5716:5787]

B:BD[9.5787] → [10.1458:1615]

∅:D[10.1615] → [7.5785:5858]

B:BD[5.13688] → [7.5785:5858]

B:BD[7.5858] → [10.1616:1777]

∅:D[10.1777] → [9.5862:5934]

B:BD[5.13898] → [9.5862:5934]

B:BD[9.5934] → [10.1778:1938]

  (progn ;; barf/slurp
    (evil-define-key 'normal 'global (kbd ",,") 'sp-backward-barf-sexp)
    (comment (define-key cider-mode-map (kbd "C-, ,") 'sp-backward-barf-sexp)
             (define-key cider-mode-map (kbd "C-, C-,") 'sp-backward-barf-sexp))
    (evil-define-key 'normal 'global (kbd ",.") 'sp-forward-barf-sexp)
    (comment (define-key cider-mode-map (kbd "C-, .") 'sp-forward-barf-sexp)
             (define-key cider-mode-map (kbd "C-, C-.") 'sp-forward-barf-sexp))
    (evil-define-key 'normal 'global (kbd ",<") 'sp-backward-slurp-sexp)
    (comment (define-key cider-mode-map (kbd "C-, <") 'sp-backward-slurp-sexp)
             (define-key cider-mode-map (kbd "C-, C-<") 'sp-backward-slurp-sexp))
    (evil-define-key 'normal 'global (kbd ",>") 'sp-forward-slurp-sexp)
    (comment (define-key cider-mode-map (kbd "C-, >") 'sp-forward-slurp-sexp)
             (define-key cider-mode-map (kbd "C-, C->") 'sp-forward-slurp-sexp)))

[5.13254]

[5.14106]

  ;; misc

Replacement in emacs.d/lisp/configurations/evil-conf.el at line 110 [5.8110]

B:BD[5.14107] → [5.14107:14124]

B:BD[5.14124] → [9.5935:6323]

  (progn ;; misc
    (evil-define-key 'normal 'global (kbd ",~") 'sp-convolute-sexp)
    (evil-define-key 'normal 'global (kbd ",a") 'sp-absorb-sexp)
    (evil-define-key 'normal 'global (kbd ",e") 'sp-emit-sexp)
    (evil-define-key 'normal 'global (kbd ",`") 'sp-clone-sexp)
    (evil-define-key 'normal 'global (kbd ",J") 'sp-join-sexp)
    (evil-define-key 'normal 'global (kbd ",|") 'sp-split-sexp))

[5.14107]

[5.14482]

  "~" 'sp-convolute-sexp
  "a" 'sp-absorb-sexp
  "e" 'sp-emit-sexp
  "`" 'sp-clone-sexp
  "J" 'sp-join-sexp
  "|" 'sp-split-sexp)

Replacement in emacs.d/lisp/configurations/evil-conf.el at line 117 [5.8110]

B:BD[5.14483] → [5.14483:14505]

B:BD[5.14505] → [9.6324:6691]

  (progn ;; narrowing
    (evil-define-key 'normal 'global (kbd "<leader>n(") 'sp-narrow-to-sexp)
    (evil-define-key 'normal 'global (kbd "<leader>n)") 'sp-narrow-to-sexp)
    (evil-define-key 'normal 'global (kbd "<leader>nn") 'narrow-to-defun)
    (evil-define-key 'normal 'global (kbd "<leader>nr") 'narrow-to-region)
    (evil-define-key 'normal 'global (kbd "<leader>nw") 'widen)))

[5.14483]

[5.14812]


(use-package evil-smartparens
  :ensure t
  :delight
  :after evil smartparens
  :config
  (evil-smartparens-mode 1)
  (define-key global-map (kbd "C-,") 'fwoar:smartparens-map)
  (evil-define-key 'normal 'global (kbd ",") 'fwoar:smartparens-map))