From b37ed033f65b56d9ec249b25bbfdf27aaef6bc9a Mon Sep 17 00:00:00 2001 From: Thomas Voss Date: Sat, 19 Oct 2024 23:20:04 +0200 Subject: emacs: Implement e/split-line --- .config/emacs/editing.el | 17 +++++++++++++++++ .config/emacs/modules/mm-keybindings.el | 1 + 2 files changed, 18 insertions(+) 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-" #'backward-page "C-." #'repeat + "C-^" #'e/split-line "C-/" #'e/mark-line-dwim "C-c d" #'duplicate-dwim -- cgit v1.2.3