Add sort-setq

1 files changed, 33 insertions, 0 deletions

@@ -156,5 +156,38 @@ With a prefix argument N, (un)comment that many sexps."
     (dotimes (_ (or n 1))
       (+lisp-comment-sexp--raw))))
 
+;;; Sort `setq' constructs
+(defun +lisp-sort-setq ()
+  (interactive)
+  (save-excursion
+    (save-restriction
+      (let ((sort-end (progn
+                        (end-of-defun)
+                        (backward-char)
+                        (point-marker)))
+            (sort-beg (progn
+                        (beginning-of-defun)
+                        (or (re-search-forward "[ \\t]*(" (point-at-eol) t)
+                            (point-at-eol))
+                        (forward-sexp)
+                        (or (re-search-forward "\\<" (point-at-eol) t)
+                            (point-at-eol))
+                        (point-marker))))
+        (narrow-to-region (1- sort-beg) (1+ sort-end))
+        (sort-subr nil #'+lisp-sort-setq-next-record
+                   #'+lisp-sort-setq-end-record)))))
+
+(defun +lisp-sort-setq-next-record ()
+  (condition-case nil
+      (progn
+        (forward-sexp 1)
+        (backward-sexp))
+    ('scan-error (end-of-buffer))))
+
+(defun +lisp-sort-setq-end-record ()
+  (condition-case nil
+      (forward-sexp 2)
+    ('scan-error (end-of-buffer))))
+
 (provide '+lisp)
 ;;; +lisp.el ends here