From ec19fb5f78036a5fe5f36eab713d79164f087a5a Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Sat, 22 May 2021 16:40:18 -0500 Subject: Add `sort-sexps' from unpackaged.el --- lisp/acdw.el | 49 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 49 insertions(+) (limited to 'lisp') diff --git a/lisp/acdw.el b/lisp/acdw.el index 8b87dd5..f607695 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el @@ -195,6 +195,55 @@ With a prefix argument N, (un)comment that many sexps." (dotimes (_ (or n 1)) (comment-sexp--raw)))) + +;;; Sort sexps +;; from https://github.com/alphapapa/unpackaged.el#sort-sexps + +(defun sort-sexps (beg end) + "Sort sexps in region. +Comments stay with the code below." + (interactive "r") + (cl-flet ((skip-whitespace () (while (looking-at (rx (1+ (or space "\n")))) + (goto-char (match-end 0)))) + (skip-both () (while (cond ((or (nth 4 (syntax-ppss)) + (ignore-errors + (save-excursion + (forward-char 1) + (nth 4 (syntax-ppss))))) + (forward-line 1)) + ((looking-at (rx (1+ (or space "\n")))) + (goto-char (match-end 0))))))) + (save-excursion + (save-restriction + (narrow-to-region beg end) + (goto-char beg) + (skip-both) + (cl-destructuring-bind (sexps markers) + (cl-loop do (skip-whitespace) + for start = (point-marker) + for sexp = (ignore-errors + (read (current-buffer))) + for end = (point-marker) + while sexp + ;; Collect the real string, then one used for sorting. + collect (cons (buffer-substring (marker-position start) (marker-position end)) + (save-excursion + (goto-char (marker-position start)) + (skip-both) + (buffer-substring (point) (marker-position end)))) + into sexps + collect (cons start end) + into markers + finally return (list sexps markers)) + (setq sexps (sort sexps (lambda (a b) + (string< (cdr a) (cdr b))))) + (cl-loop for (real . sort) in sexps + for (start . end) in markers + do (progn + (goto-char (marker-position start)) + (insert-before-markers real) + (delete-region (point) (marker-position end))))))))) + ;;; Emacs configuration functions -- cgit 1.4.1-21-gabe81