sort buffer [random] and sort whole lines

[Emanuel Berg]

I don't know if this is good or bad (well,
enough with the false modesty already, it seems
to work alright after >zero testing) but I know
for sure stuff like this should be available at
the fingertips for every Emacs user.

The buffer as the building block, and
automations as the bloodstream, have *always*
been our moneymakers, right?

Comments on code welcome, as always :)


;;; RANDOM

(defun sort-lines-random (start end)
  (interactive "r")
  (save-excursion
    (save-restriction
      (narrow-to-region start end)
      (goto-char (point-min))
      (sort-subr nil            ; not REVERSE
                 #'forward-line ; NEXTRECFUN
                 #'end-of-line  ; ENDRECFUN
                 nil nil        ; no keys (STARTKEYFUN and ENDKEYFUN)
                 (lambda (a b) (zerop (random 2)) )))))

;;; WHOLE LINES

(defun sort-whole-lines (start end)
  (interactive "r")
  (save-excursion
    (let ((start (progn (goto-char start) (line-beginning-position)))
          (end   (progn (goto-char end)   (line-end-position))) )
      (sort-lines nil start end) ))) ; nil = not REVERSE

;;; ENTIRE BUFFER

(defun sort-buffer ()
  (interactive)
  (sort-whole-lines (point-min) (point-max)) )

(defun sort-buffer-random ()
  (interactive)
  (sort-lines-random (point-min) (point-max)) )


More sorting:

    http://user.it.uu.se/~embe8573/emacs-init/sort-my.el

-- 
underground experts united
http://user.it.uu.se/~embe8573