From 0d100d692c699102c2122474433dc8d5879e0101 Mon Sep 17 00:00:00 2001
From: Juan Placencia <juan@placencia.uno>
Date: Mon, 21 Jun 2021 08:53:52 -0500
Subject: [PATCH] Improve detection of text/prog modes

---
 uno/modules/mode.org | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/uno/modules/mode.org b/uno/modules/mode.org
index 3c8be9a..5b015f7 100644
--- a/uno/modules/mode.org
+++ b/uno/modules/mode.org
@@ -22,7 +22,7 @@ Define custom =prog-mode= as there are some libraries that do not abide.
     :hook
     ((conf-mode prog-mode) . uno/run-prog-mode-hook)
     :init
-    (defvar uno-prog-based-modes '(nxml-mode)
+    (defvar uno-prog-based-modes '(nxml-mode prog-mode sgml-mode)
       "List of prog based modes.")
     (defun uno/add-prog-mode (mode)
       "Consider MODE prog based."
@@ -37,14 +37,14 @@ Define custom =prog-mode= as there are some libraries that do not abide.
 Define custom =text-mode= as there are some libraries that do not abide.
 
 #+BEGIN_SRC emacs-lisp
-  (use-package emacs
+  (use-package dash
     :after uno-mode
     :hook
     (text-mode . uno/run-text-mode-hook)
     :init
     (defun uno/run-text-mode-hook ()
       "Configure text mode, checking for prog mode."
-      (if (member major-mode uno-prog-based-modes)
+      (if (-any? 'derived-mode-p uno-prog-based-modes)
           (uno/run-prog-mode-hook)
         (run-hooks 'uno-text-mode-hook))))
 #+END_SRC