From a0be1491c9fc19e661eaf9d6165f4c72e36a7837 Mon Sep 17 00:00:00 2001
From: Raphael Roberts <raphael.roberts48@gmail.com>
Date: Thu, 5 Nov 2020 19:52:43 -0600
Subject: [PATCH] Auto mode priority

---
 settings.org | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/settings.org b/settings.org
index ee18be5..83c288f 100644
--- a/settings.org
+++ b/settings.org
@@ -175,6 +175,24 @@ This handy function is a customized ripoff of custom-save-all
     :config
     (recentf-mode 1))
 #+end_src
+** Automode priority
+#+begin_src emacs-lisp
+  (add-to-list 'after-settings-load-hooks
+               '(progn
+                 (setq rlbr/mode-priority-list
+                       (list
+                        'docker-compose-mode))
+
+                 (defun rlbr/move-to-top (priority alist)
+                   (let ((ret-alist (copy-sequence alist))
+                         (cons-pair))
+                     (dolist (to-move (reverse priority)
+                                      ret-alist)
+                       (if (setq cons-pair (rassq to-move ret-alist))
+                           (progn (delete cons-pair ret-alist)
+                                  (setq ret-alist (cons cons-pair ret-alist)))))))
+                 (setq auto-mode-alist (rlbr/move-to-top rlbr/mode-priority-list auto-mode-alist))))
+#+end_src
 * Platform dependent
 ** Windows
 #+begin_src emacs-lisp