Move sort-setups to acdw.el

1 files changed, 1 insertions, 35 deletions

@@ -85,41 +85,7 @@
 
   (when-let ((default-directory
                (expand-file-name-exists-p "pkg/" user-emacs-directory)))
-    (normal-top-level-add-subdirs-to-load-path))
-
-  (defun acdw/sort-setups ()
-    "Sort `setup' forms in the current buffer.
-Actually sorts all forms, but based on the logic of `setup'.
-In short, DO NOT USE THIS FUNCTION!!!"
-    (save-excursion
-      (sort-sexps
-       (point-min) (point-max)
-       ;; Key function
-       nil
-       ;; Sort function
-       (lambda (s1 s2)                  ; oh god, this is worse.
-         (let* ((s1 (cdr s1)) (s2 (cdr s2)) ; for the strings themselves
-                (require-regexp (rx bos (* nonl) ":require"))
-                (straight-regexp (rx bos (* nonl) ":straight"))
-                (s1-require (string-match require-regexp s1))
-                (s2-require (string-match require-regexp s2))
-                (s1-straight (string-match straight-regexp s1))
-                (s2-straight (string-match straight-regexp s2)))
-           (cond
-            ;; Straight forms require some weirdness
-            ((and s1-straight s2-straight)
-             (let* ((r (rx ":straight" (? "-if") (* space) (? "(")))
-                    (s1 (replace-regexp-in-string r "" s1))
-                    (s2 (replace-regexp-in-string r "" s2)))
-               (string< s1 s2)))
-            ;; requires should go first
-            ((and s1-require (not s2-require)) t)
-            ((and (not s1-require) s2-require) nil)
-            ;; straights should go last
-            ((and s1-straight (not s2-straight)) nil)
-            ((and (not s1-straight) s2-straight) t)
-            ;; else, just sort em.
-            (t (string< s1 s2)))))))))
+    (normal-top-level-add-subdirs-to-load-path)))
 
 (setup autorevert
   (:option global-auto-revert-non-file-buffers t