sort-block

sort-block

[Emanuel Berg]

Useful?

Maybe something like this already ... somewhere!

(defun sort-block ()
  (interactive)
  (let ((beg (progn (backward-paragraph) (point)))
        (end (progn (forward-paragraph)  (point))) )
    (sort-lines nil beg end) ))

https://dataswamp.org/~incal/emacs-init/sort-incal.el

-- 
underground experts united
https://dataswamp.org/~incal

RE: [External] : sort-block

[Drew Adams]

> Useful?

It's up to you.

> Maybe something like this already ... somewhere!
> (defun sort-block ()
>   (interactive)
>   (let ((beg (progn (backward-paragraph) (point)))
>         (end (progn (forward-paragraph)  (point))) )
>     (sort-lines nil beg end) ))

`M-h M-x sort-lines'

Or if you're going to add a key binding, it might
be more useful to add one for `sort-lines' than
for `sort-block' (aka `sort-paragraph').

Re: [External] : sort-block

[Emanuel Berg]

Drew Adams wrote:

> Or if you're going to add a key binding, it might be more
> useful to add one for `sort-lines' than for `sort-block'
> (aka `sort-paragraph').

I'll change the name ... thanks.

(defun sort-paragraph ()
  (interactive)
  (let ((beg (progn (backward-paragraph) (point)))
        (end (progn (forward-paragraph)  (point))) )
    (sort-lines nil beg end) ))
(defalias 'sort-block #'sort-paragraph)

-- 
underground experts united
https://dataswamp.org/~incal