From 810f759d1cc5c984fa559e3bec68eae962ad8f1d Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Mon, 11 Mar 2024 13:00:38 -0400
Subject: [PATCH] FIX mime type matching

---
 etc/conf.org | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/etc/conf.org b/etc/conf.org
index 402cada..e2639d0 100644
--- a/etc/conf.org
+++ b/etc/conf.org
@@ -272,7 +272,8 @@ OS is one of those in `system-type'."
   "Return all applications that can open a given MIMETYPE.
 The list is comprised of alists where pairs are of the form (name . command)."
   (let ((case-fold-search nil)
-        (mime-regex (format "^MimeType=.*%s;?.*$" mimetype)))
+        (mime-regex (->> (regexp-quote mimetype)
+                         (format "^MimeType=.*%s;?.*$"))))
     (->> (list "/usr/share/applications"
                "/usr/local/share/applications"
                "~/.local/share/applications")