From acf177aa0565b6bea2a1179438ba676fbcaadba2 Mon Sep 17 00:00:00 2001
From: rearman <rearman@r717.net>
Date: Wed, 15 Oct 2025 14:44:11 -0400
Subject: [PATCH] Clean up openwith definitions

---
 re/re-packages.el | 28 ++++++----------------------
 1 file changed, 6 insertions(+), 22 deletions(-)

diff --git a/re/re-packages.el b/re/re-packages.el
index cb8769b..83f815d 100644
--- a/re/re-packages.el
+++ b/re/re-packages.el
@@ -55,30 +55,14 @@
   :config
   (openwith-mode t)
   (setq openwith-associations
-	(list (list (openwith-make-extension-regexp
-		     '("xls" "xlsx" "doc" "docx" "ppt" "pptx" "odt" "ods" "odg" "odp"))
+	(list (list "\\.\\(\\(ppt\\|xls\\|doc\\)x?\\|ods[gpst]\\)"
 		    "libreoffice"
-		    '(file))  ; Windows falls back to system default
-	      (list (openwith-make-extension-regexp
-		     '("adpro"))
-		    "ProductivitySuite"
 		    '(file))
-	      (list (openwith-make-extension-regexp
-		     '("rss"))
-		    "rs500"
-		    '(file))
-	      (list (openwith-make-extension-regexp
-		     '("lnk"))
-		    "explorer"
-		    '(file))
-	      (list (openwith-make-extension-regexp
-		     '("dwg"))
-		    "dwgviewr"
-		    '(file))
-	      (list (openwith-make-extension-regexp
-		     '("pdf"))
-		    "zathura"
-		    '(file)))))  ; Windows falls back to default program
+	      (list "\\.\\(exe\\|lnk\\)" "explorer" '(file))
+	      (list "\\.adpro" "ProductivitySuite" '(file))
+	      (list "\\.rss" "rs500" '(file))
+	      (list "\\.dwg" "dwgviewr" '(file))
+	      (list "\\.pdf" "zathura" '(file)))))
 
 (use-package auctex)
 
-- 
2.39.5