mirror of
https://github.com/jimeh/.emacs.d.git
synced 2026-02-19 13:46:41 +00:00
40 lines
1.4 KiB
EmacsLisp
40 lines
1.4 KiB
EmacsLisp
;;; siren-smart-shift.el --- jimeh's Emacs Siren: smart-shift
|
|
|
|
;;; Commentary:
|
|
|
|
;; Configuration for smart-shift
|
|
|
|
;;; Code:
|
|
|
|
(use-package smart-shift
|
|
:general
|
|
("C-c [" 'smart-shift-left)
|
|
("C-c ]" 'smart-shift-right)
|
|
("M-{" 'smart-shift-left)
|
|
("M-}" 'smart-shift-right)
|
|
|
|
:config
|
|
;; Override default keymap adding support additional keybindings once
|
|
;; smart-shift is activated.
|
|
(defun smart-shift-override-local-map ()
|
|
"Override local key map for continuous indentation."
|
|
(setq overriding-local-map
|
|
(let ((map (copy-keymap smart-shift-mode-map)))
|
|
(define-key map (kbd "[") 'smart-shift-left)
|
|
(define-key map (kbd "]") 'smart-shift-right)
|
|
(define-key map (kbd "C-b") 'smart-shift-left)
|
|
(define-key map (kbd "C-f") 'smart-shift-right)
|
|
(define-key map (kbd "C-p") 'smart-shift-up)
|
|
(define-key map (kbd "C-b") 'smart-shift-down)
|
|
(define-key map (kbd "<left>") 'smart-shift-left)
|
|
(define-key map (kbd "<right>") 'smart-shift-right)
|
|
(define-key map (kbd "<up>") 'smart-shift-up)
|
|
(define-key map (kbd "<down>") 'smart-shift-down)
|
|
(define-key map [t] 'smart-shift-pass-through) ;done with shifting
|
|
map))
|
|
(message (propertize "Still in smart-shift key chord..."
|
|
'face 'error))))
|
|
|
|
(provide 'siren-smart-shift)
|
|
;;; siren-smart-shift.el ends here
|