What is the command to transpose line from point till end of line?

Question

Is there a emacs command to tranpose the line from the point till end of the line. For example:

quick brown fox jumps over **<point>** the lazy dog meaning

After transpose it should be

the lazy dog meaning **<point>** quick brown fox jumps over

Answer 1

I'm not aware of any built-in functions, but here's a quick & dirty one:

(defun my/transpose-line-around-point (p)
  "Transpose text preceding line around POINT."
  (interactive "d")
  (let ((line-beginning (save-excursion (beginning-of-line-text) (point)))
    (line-end (save-excursion (end-of-line) (point))))
    (transpose-regions line-beginning p p line-end)))

It could be tweaked to handle spaces better when whitespace comes between the point and some text preceding the end of line.