.emacs.d/init.d/basics/input.el

110 lines
3.2 KiB
EmacsLisp
Raw Normal View History

2019-10-14 17:38:14 +02:00
;;; input.el --- Configure behaviour of input devices. -*- lexical-binding: t; -*-
2020-02-11 16:47:12 +01:00
;; Time-stamp: <2020-02-11T16:35:03+0100>
2019-10-14 17:38:14 +02:00
;;; Commentary:
;; * Setup mouse & keyboard behaviour.
;; * Setup basic keybindings.
;;; Code:
(use-package emacs
:ensure nil
:custom
(mouse-wheel-scroll-amount '(1 ((shift) . 1))) ; Scroll 1 line at a time.
;; Paste text where the cursor is, not where the mouse is.
(mouse-yank-at-point t)
;; Reduce scroll lag significantly. <https://emacs.stackexchange.com/a/28746>
(auto-window-vscroll nil)
2019-10-14 17:38:14 +02:00
:config
(delete-selection-mode t) ; Delete selection when you start to write.
;; kill-region (cut) and kill-ring-save (copy) act on the current line if no
;; text is visually selected.
;; <https://www.emacswiki.org/emacs/WholeLineOrRegion>
(put 'kill-ring-save 'interactive-form
'(interactive
(if (use-region-p)
(list (region-beginning) (region-end))
(list (line-beginning-position) (line-beginning-position 2)))))
(put 'kill-region 'interactive-form
'(interactive
(if (use-region-p)
(list (region-beginning) (region-end))
(list (line-beginning-position) (line-beginning-position 2)))))
)
(use-package bind-key
:functions (my/delete-word my/backward-delete-word)
:config
(defun my/delete-word (arg)
"Delete characters forward until encountering the end of a word.
With argument, do this that many times."
(interactive "p")
(if (use-region-p)
(delete-region (region-beginning) (region-end))
(delete-region (point) (progn (forward-word arg) (point)))))
(defun my/backward-delete-word (arg)
"Delete characters backward until encountering the end of a word.
With argument, do this that many times."
(interactive "p")
(my/delete-word (- arg)))
(bind-keys
;; Reduce whitespace around cursor to 0 or 1, according to context.
("C-S-<delete>" . fixup-whitespace)
;; Scroll without moving the cursor.
("M-<down>" . scroll-up-line)
("M-<up>" . scroll-down-line)
;; Delete words without storing them in the kill buffer.
("C-<delete>" . my/delete-word)
("C-<backspace>" . my/backward-delete-word)
2020-01-27 09:21:22 +01:00
("C-q" . delete-frame)
;; Insert next character with control characters. Like C-S-v in the shell.
2020-01-27 09:21:22 +01:00
("C-S-v" . quoted-insert)
;; C-x C-f will be replaced with projectile-find-file.
("C-x C-S-f" . find-file)
2019-10-14 17:38:14 +02:00
)
)
; Multiple cursors.
(use-package multiple-cursors
:init
(global-unset-key (kbd "M-<down-mouse-1>"))
:bind
("C-x M-m" . mc/edit-lines)
("M-<mouse-1>" . mc/add-cursor-on-click)
)
;; Edit multiple regions in the same way simultaneously.
(use-package iedit
:bind
("C-;" . iedit-mode)
)
2019-12-01 11:26:26 +01:00
;; Display available keybindings.
(use-package which-key
:config
(which-key-mode)
)
;; Navigate between windows with alt+arrows.
(use-package windmove
:config
(windmove-default-keybindings '(meta shift))
:bind ; Needed for Emacs-over-SSH. 🤷
([(meta shift left)] . windmove-left)
([(meta shift right)] . windmove-right)
([(meta shift up)] . windmove-up)
([(meta shift down)] . windmove-down)
)
2019-10-14 17:38:14 +02:00
(provide 'basics/input)
;;; input.el ends here