1 files changed, 10 insertions, 0 deletions

@@ -44,5 +44,15 @@ prompt for the time format."
               (format-time-string +crux-alternate-date-format time))
              (t (format-time-string (read-string "Time Format: ") time))))))
 
+(defun +crux-kill-and-join-forward (&optional arg)
+  "If at end of line, join with following; else (visual)-kill line.
+In `visual-line-mode', runs command `kill-visual-line'; in other
+modes, runs command `kill-line'.  Passes ARG to command when
+provided.  Deletes whitespace at join."
+  (interactive "P")
+  (if (and (eolp) (not (bolp)))
+      (delete-indentation 1)
+    (funcall (if visual-line-mode #'kill-visual-line #'kill-line) arg)))
+
 (provide '+crux)
 ;;; +crux.el ends here