You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
26 lines
948 B
26 lines
948 B
2 years ago
|
;;; Custom keybindings made in minor mode so they won't be override by major modes.
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(define-minor-mode my-keys-mode
|
||
|
|
"Custom minor mode mainly to make keybindings."
|
||
|
|
:lighter " MK" ; show chars on modeline.
|
||
|
|
:init-value t ; set init-value to `t' to make it enabled in Fundamental mode.
|
||
|
|
:keymap (let ((map (make-sparse-keymap)))
|
||
|
|
(define-key map (kbd "M-h") 'windmove-left)
|
||
|
|
(define-key map (kbd "M-l") 'windmove-right)
|
||
|
|
(define-key map (kbd "M-j") 'windmove-down)
|
||
|
|
(define-key map (kbd "M-k") 'windmove-up)
|
||
|
|
; (define-key map (kbd "C-c C-n") 'tabbar-forward)
|
||
|
|
; (define-key map (kbd "C-c C-p") 'tabbar-backward)
|
||
|
|
map)
|
||
|
|
;; set command as alt on Mac
|
||
|
|
(when (eq system-type 'darwin)
|
||
|
|
(setq mac-command-modifier 'meta)))
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(define-globalized-minor-mode global-my-keys-mode my-keys-mode
|
||
|
|
(lambda () (progn (my-keys-mode t)
|
||
|
|
(column-number-mode t))))
|
||
|
|
|
||
|
|
(provide 'my-minor-mode)
|