Add `sort-setq'

1 files changed, 31 insertions, 0 deletions

@@ -513,5 +513,36 @@ It's called 'require-private' for historical reasons."
       (when (fboundp mode)
         (funcall mode -1)))))
 
+
+;;; Sort setq...
+;; https://emacs.stackexchange.com/questions/33039/
+
+(defun sort-setq ()
+  (interactive)
+  (save-excursion
+    (save-restriction
+      (let ((sort-end (progn (end-of-defun)
+                             (backward-char)
+                             (point-marker)))
+            (sort-beg (progn (beginning-of-defun)
+                             (re-search-forward "[ \\t]*(" (point-at-eol))
+                             (forward-sexp)
+                             (re-search-forward "\\<" (point-at-eol))
+                             (point-marker))))
+        (narrow-to-region (1- sort-beg) (1+ sort-end))
+        (sort-subr nil #'sort-setq-next-record #'sort-setq-end-record)))))
+
+(defun sort-setq-next-record ()
+  (condition-case nil
+      (progn
+        (forward-sexp 1)
+        (backward-sexp))
+    ('scan-error (end-of-buffer))))
+
+(defun sort-setq-end-record ()
+  (condition-case nil
+      (forward-sexp 2)
+    ('scan-error (end-of-buffer))))
+
 (provide 'acdw)
 ;;; acdw.el ends here