Anonymous avatar Anonymous committed 01dbdad

Move SP bindings to SP keymap

Comments (0)

Files changed (1)

 (bind-key "C-. i" 'ctl-dot-i-prefix-map)
 (bind-key "C-. i m" 'set-input-method)
 (bind-key "C-. i e" 'toggle-input-method)
-(bind-key "C-. i s" (lambda () (interactive) (set-input-method "slovak")))
+(bind-key "C-. i s" (lambda () (interactive) (set-input-method "slovak-prog-2")))
 (bind-key "C-. i c" (lambda () (interactive) (set-input-method "czech")))
 (bind-key "C-. i r" (lambda () (interactive) (set-input-method "russian-computer")))
 (bind-key "C-. i i" (lambda () (interactive) (set-input-method "italian-keyboard")))
 (dotimes (i 10)
   (bind-key (format "H-%d" i) 'digit-argument))
 (bind-key "H--" 'negative-argument)
-(bind-key "H-t" 'sp-prefix-tag-object)
-(bind-key "H-p" 'sp-prefix-pair-object)
-(bind-key "H-y" 'sp-prefix-symbol-object)
-(bind-key "H-h" 'sp-highlight-current-sexp)
-(bind-key "H-e" 'sp-prefix-save-excursion)
-(bind-key "H-s c" 'sp-convolute-sexp)
-(bind-key "H-s a" 'sp-absorb-sexp)
-(bind-key "H-s e" 'sp-emit-sexp)
-(bind-key "H-s p" 'sp-add-to-previous-sexp)
-(bind-key "H-s n" 'sp-add-to-next-sexp)
-(bind-key "H-s j" 'sp-join-sexp)
-(bind-key "H-s s" 'sp-split-sexp)
-(bind-key "H-s r" 'sp-rewrap-sexp)
+(bind-key "H-t" 'sp-prefix-tag-object sp-keymap)
+(bind-key "H-p" 'sp-prefix-pair-object sp-keymap)
+(bind-key "H-y" 'sp-prefix-symbol-object sp-keymap)
+(bind-key "H-h" 'sp-highlight-current-sexp sp-keymap)
+(bind-key "H-e" 'sp-prefix-save-excursion sp-keymap)
+(bind-key "H-s c" 'sp-convolute-sexp sp-keymap)
+(bind-key "H-s a" 'sp-absorb-sexp sp-keymap)
+(bind-key "H-s e" 'sp-emit-sexp sp-keymap)
+(bind-key "H-s p" 'sp-add-to-previous-sexp sp-keymap)
+(bind-key "H-s n" 'sp-add-to-next-sexp sp-keymap)
+(bind-key "H-s j" 'sp-join-sexp sp-keymap)
+(bind-key "H-s s" 'sp-split-sexp sp-keymap)
+(bind-key "H-s r" 'sp-rewrap-sexp sp-keymap)
 (defvar hyp-s-x-map)
 (define-prefix-command 'hyp-s-x-map)
-(bind-key "H-s x" hyp-s-x-map)
-(bind-key "H-s x x" 'sp-extract-before-sexp)
-(bind-key "H-s x a" 'sp-extract-after-sexp)
-(bind-key "H-s x s" 'sp-swap-enclosing-sexp)
+(bind-key "H-s x" hyp-s-x-map sp-keymap)
+(bind-key "H-s x x" 'sp-extract-before-sexp sp-keymap)
+(bind-key "H-s x a" 'sp-extract-after-sexp sp-keymap)
+(bind-key "H-s x s" 'sp-swap-enclosing-sexp sp-keymap)
 (defvar ctl-c-s-map)
 (define-prefix-command 'ctl-c-s-map)
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.