diff options
| -rw-r--r-- | .config/emacs/editing.el | 17 | ||||
| -rw-r--r-- | .config/emacs/modules/mm-keybindings.el | 1 |
2 files changed, 18 insertions, 0 deletions
diff --git a/.config/emacs/editing.el b/.config/emacs/editing.el index f635705..951a774 100644 --- a/.config/emacs/editing.el +++ b/.config/emacs/editing.el @@ -156,4 +156,21 @@ point." (previous-line 2) (end-of-line))) +(defun e/split-line (&optional above) + "Split the line at point. +Place the contents after point on a new line, indenting the new line +according to the current major mode. With prefix argument ABOVE the +contents after point are placed on a new line before point." + (interactive "P") + (save-excursion + (let* ((start (point)) + (end (pos-eol)) + (string (buffer-substring start end))) + (delete-region start end) + (when above + (goto-char (1- (pos-bol)))) + (newline) + (insert string) + (indent-according-to-mode)))) + (provide 'editing) diff --git a/.config/emacs/modules/mm-keybindings.el b/.config/emacs/modules/mm-keybindings.el index 2bc0971..c1dee93 100644 --- a/.config/emacs/modules/mm-keybindings.el +++ b/.config/emacs/modules/mm-keybindings.el @@ -111,6 +111,7 @@ the first command is remapped to the second command." "C-<prior>" #'backward-page "C-." #'repeat + "C-^" #'e/split-line "C-/" #'e/mark-line-dwim "C-c d" #'duplicate-dwim |