Remap KBDs for Paredit
I wasn't using the previous KBDs, which were modelled after Vim's answer for Paredit KBDs. Some of the mappings bothered me, so I needed that made more sense to me.
This commit is contained in:
		
							parent
							
								
									a99939657b
								
							
						
					
					
						commit
						88d75b9771
					
				
					 1 changed files with 17 additions and 9 deletions
				
			
		| 
						 | 
					@ -17,20 +17,28 @@
 | 
				
			||||||
  'emacs-lisp-mode
 | 
					  'emacs-lisp-mode
 | 
				
			||||||
  'ielm-mode)
 | 
					  'ielm-mode)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					;; Here is some of the thinking behind some of the keybindings:
 | 
				
			||||||
 | 
					;;
 | 
				
			||||||
 | 
					;; slurp    s
 | 
				
			||||||
 | 
					;; barf     S
 | 
				
			||||||
 | 
					;; forward  )
 | 
				
			||||||
 | 
					;; backward (
 | 
				
			||||||
 | 
					;;
 | 
				
			||||||
 | 
					;; Known concession: s and S eclipse Vim bindings. There is a precedent already
 | 
				
			||||||
 | 
					;; for eclipsing the s binding for window splitting. Shift-s feel appropriate
 | 
				
			||||||
 | 
					;; for barfing, since eclisping the b KBD feels less acceptable than eclisping
 | 
				
			||||||
 | 
					;; the s KBD.
 | 
				
			||||||
 | 
					
 | 
				
			||||||
;; paredit LISP editing
 | 
					;; paredit LISP editing
 | 
				
			||||||
(use-package paredit
 | 
					(use-package paredit
 | 
				
			||||||
  :general
 | 
					  :general
 | 
				
			||||||
  (general-unbind paredit-mode-map "C-j" "M-q")
 | 
					  (general-unbind paredit-mode-map "C-j" "M-q")
 | 
				
			||||||
  (n paredit-mode-map
 | 
					  (n paredit-mode-map
 | 
				
			||||||
     ">)" 'paredit-forward-slurp-sexp
 | 
					     "s)" 'paredit-forward-slurp-sexp
 | 
				
			||||||
     "<(" 'paredit-backward-slurp-sexp
 | 
					     "s(" 'paredit-backward-slurp-sexp
 | 
				
			||||||
     "<)" 'paredit-forward-barf-sexp
 | 
					     "S)" 'paredit-forward-barf-sexp
 | 
				
			||||||
     ">(" 'paredit-backward-barf-sexp
 | 
					     "S(" 'paredit-backward-barf-sexp
 | 
				
			||||||
     ">e" 'paredit-move-forward
 | 
					     "gr" 'paredit-raise-sexp)
 | 
				
			||||||
     "<e" 'paredit-move-backward
 | 
					 | 
				
			||||||
     ">f" 'paredit-move-backward
 | 
					 | 
				
			||||||
     "<f" 'paredit-move-backward
 | 
					 | 
				
			||||||
     "go" 'paredit-raise-sexp)
 | 
					 | 
				
			||||||
  :ghook (wpc/lisp-mode-hooks #'enable-paredit-mode))
 | 
					  :ghook (wpc/lisp-mode-hooks #'enable-paredit-mode))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
(provide 'wpc-lisp)
 | 
					(provide 'wpc-lisp)
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue