fix(emacs): don't import TERM from systemd

2026-07-07 16:39:27 -06:00
parent 8e9be9e05d
commit 5d502329a2
1 changed files with 16 additions and 14 deletions
@@ -249,19 +249,21 @@ form."

 (defun syd-import-systemd-environment ()
  (interactive)
-  (with-temp-buffer
-    (shell-command "systemctl --user show-environment" (current-buffer))
-    (goto-char (point-min))
-    (while (re-search-forward
-            (rx bol (group (+ (not "=")))
-                "="
-                (or (and "$'" (group (* (not "'"))) "'")
-                    (group (* any)))
-                eol)
-            nil t)
-      (let ((var (match-string 1))
-            (val (or (match-string 2)
-                     (match-string 3))))
-        (setenv var val)))))
+  (let ((blacklist '("TERM")))
+    (with-temp-buffer
+      (shell-command "systemctl --user show-environment" (current-buffer))
+      (goto-char (point-min))
+      (while (re-search-forward
+              (rx bol (group (+ (not "=")))
+                  "="
+                  (or (and "$'" (group (* (not "'"))) "'")
+                      (group (* any)))
+                  eol)
+              nil t)
+        (let ((var (match-string 1))
+              (val (or (match-string 2)
+                       (match-string 3))))
+          (unless (member var blacklist)
+            (setenv var val)))))))

 (provide 'syd/prelude)