Add advice to cut line or region from cursor point

1 files changed, 10 insertions, 0 deletions

diff --git a/emacs-config.org b/emacs-config.org
index 86793b8..c067c52 100644
--- a/emacs-config.org
+++ b/emacs-config.org
@@ -56,6 +56,16 @@ Add advice to copy line at cursor point or region.
              (line-beginning-position 2)))))
 #+end_src
 
+Add advice to cut line or region at cursor point.
+#+begin_src elisp
+  (defadvice kill-region (before dwim-cut activate compile)
+    "Cut the current line at point or region."
+    (interactive
+     (if mark-active (list (region-beginning) (region-end))
+       (list (line-beginning-position)
+             (line-beginning-position 2)))))
+#+end_src
+
 ** Editor
 Tab behaviour settings.
 #+begin_src elisp