faukah/.emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

some changes to editing-utils

Browse source
This commit is contained in:
Charlie Root 2025-03-19 22:16:32 +01:00
commit 8cf87b2f94
Signed by: faukah
SSH key fingerprint: SHA256:Uj2AXqvtdCA4hn5Hq0ZonhIAyUqI1q4w2sMG3Z1TH7E
1 changed files with 0 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

36
lisp/init-editing-utils.el
View file

@ -7,9 +7,6 @@
(add-hook 'after-init-hook 'electric-pair-mode)) (add-hook 'after-init-hook 'electric-pair-mode))
(add-hook 'after-init-hook 'electric-indent-mode) (add-hook 'after-init-hook 'electric-indent-mode)
(maybe-require-package 'list-unicode-display)
;;; Some basic preferences ;;; Some basic preferences
(setq-default (setq-default
@ -57,16 +54,6 @@
(diminish 'subword-mode)) (diminish 'subword-mode))
(when (fboundp 'display-line-numbers-mode)
(setq-default display-line-numbers-width 3)
(add-hook 'prog-mode-hook 'display-line-numbers-mode))
(when (boundp 'display-fill-column-indicator)
(setq-default indicate-buffer-boundaries 'left)
(setq-default display-fill-column-indicator-character ?┊)
(add-hook 'prog-mode-hook 'display-fill-column-indicator-mode))
(when (require-package 'rainbow-delimiters) (when (require-package 'rainbow-delimiters)
(add-hook 'prog-mode-hook 'rainbow-delimiters-mode)) (add-hook 'prog-mode-hook 'rainbow-delimiters-mode))
@ -84,8 +71,6 @@
;;; Zap *up* to char is a handy pair for zap-to-char ;;; Zap *up* to char is a handy pair for zap-to-char
(global-set-key (kbd "M-Z") 'zap-up-to-char) (global-set-key (kbd "M-Z") 'zap-up-to-char)
(require-package 'browse-kill-ring)
(setq browse-kill-ring-separator "\f") (setq browse-kill-ring-separator "\f")
(global-set-key (kbd "M-Y") 'browse-kill-ring) (global-set-key (kbd "M-Y") 'browse-kill-ring)
(with-eval-after-load 'browse-kill-ring (with-eval-after-load 'browse-kill-ring
@ -116,27 +101,6 @@
(when (maybe-require-package 'avy) (when (maybe-require-package 'avy)
(global-set-key (kbd "C-;") 'avy-goto-char-timer)) (global-set-key (kbd "C-;") 'avy-goto-char-timer))
(require-package 'multiple-cursors)
;; multiple-cursors
(global-set-key (kbd "C-<") 'mc/mark-previous-like-this)
(global-set-key (kbd "C->") 'mc/mark-next-like-this)
(global-set-key (kbd "C-+") 'mc/mark-next-like-this)
(global-set-key (kbd "C-c C-<") 'mc/mark-all-like-this)
;; Train myself to use M-f and M-b instead
(global-unset-key [M-left])
(global-unset-key [M-right])
(defun kill-back-to-indentation ()
"Kill from point back to the first non-whitespace character on the line."
(interactive)
(let ((prev-pos (point)))
(back-to-indentation)
(kill-region (point) prev-pos)))
(global-set-key (kbd "C-M-<backspace>") 'kill-back-to-indentation)
;;; Page break lines ;;; Page break lines
(when (maybe-require-package 'page-break-lines) (when (maybe-require-package 'page-break-lines)