emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

cli/env: change how envvars are ignored

Browse source 
Improves the detection and omission algorithm of undesired envvars.
This commit is contained in:
Henrik Lissner 2019-07-10 15:06:45 +02:00
parent b4d004a91a
commit dfa5324f3d
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 21 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

41
core/cli/env.el
View file

@ -45,18 +45,17 @@ needs to be run once).")
;; Helpers
(defvar doom-env-ignored-vars
'("PWD"
"PS1"
"PROMPT"
"RPROMPT"
"DBUS_SESSION_BUS_ADDRESS"
"GPG_AGENT_INFO"
"SSH_AGENT_PID"
"SSH_AUTH_SOCK"
'("^PWD$"
"^PS1$"
"^R?PROMPT$"
"^DBUS_SESSION_BUS_ADDRESS$"
"^GPG_AGENT_INFO$"
"^SSH_AGENT_PID$"
"^SSH_AUTH_SOCK$"
;; Doom envvars
"INSECURE"
"DEBUG"
"YES")
"^INSECURE$"
"^DEBUG$"
"^YES$")
"Environment variables to not save in `doom-env-file'.
Each string is a regexp, matched against variable names to omit from
@ -120,15 +119,17 @@ default, on Linux, this is '$SHELL -ic /usr/bin/env'. Variables in
(save-excursion
(insert (shell-command-to-string doom-env-executable)))
;; Remove undesireable variables
(dolist (regexp doom-env-ignored-vars)
(while (re-search-forward "\n\\([^= \n]+\\)=" nil t)
(save-excursion
(when (re-search-forward (format "\n\\(%s+\\)=" regexp) nil t)
(let ((var (match-string 1)))
(let* ((valend (or (save-match-data
(when (re-search-forward "^\\([^= ]+\\)=" nil t)
(line-beginning-position)))
(point-max)))
(var (match-string 1))
(value (buffer-substring-no-properties (point) (1- valend))))
(when (cl-loop for regexp in doom-env-ignored-vars
if (string-match-p regexp var)
return t)
(message "Ignoring %s" var)
(delete-region
(match-beginning 0)
(1- (or (save-excursion
(when (re-search-forward "^\\([^= ]+\\)=" nil t)
(line-beginning-position)))
(point-max))))))))
(delete-region (match-beginning 0) (1- valend))))))
(print! (green "Envvar successfully generated")))))))