msyds/sydnix
1
0
Fork 0
Code Issues 6 Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
msyds
2026-07-07 16:40:01 -06:00
parent 8e9be9e05d
commit 5d502329a2
1 changed files with 16 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files
modules/home/users/msyds/emacs/lisp/syd/prelude.el
+16 -14
View File
@@ -249,19 +249,21 @@ form."
(defun syd-import-systemd-environment () (defun syd-import-systemd-environment ()
(interactive) (interactive)
(with-temp-buffer (let ((blacklist '("TERM")))
(shell-command "systemctl --user show-environment" (current-buffer)) (with-temp-buffer
(goto-char (point-min)) (shell-command "systemctl --user show-environment" (current-buffer))
(while (re-search-forward (goto-char (point-min))
(rx bol (group (+ (not "="))) (while (re-search-forward
"=" (rx bol (group (+ (not "=")))
(or (and "$'" (group (* (not "'"))) "'") "="
(group (* any))) (or (and "$'" (group (* (not "'"))) "'")
eol) (group (* any)))
nil t) eol)
(let ((var (match-string 1)) nil t)
(val (or (match-string 2) (let ((var (match-string 1))
(match-string 3)))) (val (or (match-string 2)
(setenv var val))))) (match-string 3))))
(unless (member var blacklist)
(setenv var val)))))))
(provide 'syd/prelude) (provide 'syd/prelude)