a55df96caa
Fix several problems with environment variable caching. First, if a shell printed extra output besides the command output, spacemacs//init-spacemacs-env included the extra output in .spacemacs.env. For example, a login shell could print a motd, which would be erroneously included in .spacemacs.env. To avoid this, spacemacs//init-spacemacs-env now redirects the command output to a temporary file and then reads the file. Second, spacemacs//init-spacemacs-env sorted lines using the entire "name=value" string for each line whereas the correct behavior is to sort only on the "name" part. To fix this, spacemacs//init-spacemacs-env now uses sort-regexp-fields with an appropriate regexp to match the "name" part and ignore the "value" part. Third, although load-env-vars-set-env added all PATH settings in .spacemacs.env to exec-path, it set PATH to the first PATH setting in .spacemacs.env. Now load-env-vars-set-env sets PATH from exec-path so that it will reflect that combined value. Fourth, load-env-vars-set-env set exec-path and PATH without consideration to the operating system's directory separator. Now load-env-vars-set-env converts backslashes to forward slashes when adding path entries to exec-path and converts forward slashes to backslashes when setting PATH on platforms that use backslashes. Fifth, load-env-vars-set-env now normalizes exec-path by deleting trailing slashes from path entries, converting drive letters in path entries to lower-case, and deleting duplicate path entries. Sixth, Spacemacs no longer uses exec-path-from-shell, but a changelog entry said that it did. This commit corrects the changelog entry, deletes another outdated entry, and merges two entries that covered the same functionality. Finally, this commit corrects several typos and tries to improve wording in several docstrings, messages, and comments. * CHANGELOG.develop: Delete mention of exec-path-from-shell, which Spacemacs no longer uses by default. Delete mention of dotspacemacs-import-env-vars-from-shell and dotspacemacs-import-env-vars-shell-file-name, which no longer exist. Merge entries about synchronizing environment variables. * core/core-env.el (spacemacs-ignored-environment-variables): Fix typos and mention that the strings are regexps that are matched against the names of environment variables. (spacemacs//init-spacemacs-env): Use a temporary file rather than standard output in order to avoid getting motd and other noise. Sort lines using only environment variables' names, not their values. Better describe the behavior with respect to spacemacs-ignored-environment-variables, duplicate settings, and PATH. Try to make wording clearer. (spacemacs/edit-env): Fix typos in the docstring. * core/libs/load-env-vars.el (load-env-vars-set-env): Fix typos in the docstring. Delete trailing slashes from path entries in exec-path, convert drive letters to lower-case, delete duplicate path entries, and convert backslashes to forward slashes when setting exec-path. Set PATH from exec-path, converting forward slashes to backslashes on platforms that use backslashes.
133 lines
6.1 KiB
EmacsLisp
133 lines
6.1 KiB
EmacsLisp
;;; core-env.el --- Spacemacs Core File
|
|
;;
|
|
;; Copyright (c) 2012-2018 Sylvain Benner & Contributors
|
|
;;
|
|
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
|
|
;; URL: https://github.com/syl20bnr/spacemacs
|
|
;;
|
|
;; This file is not part of GNU Emacs.
|
|
;;
|
|
;;; License: GPLv3
|
|
|
|
(require 'core-dotspacemacs)
|
|
(require 'load-env-vars)
|
|
|
|
(defvar spacemacs-env-vars-file
|
|
(concat (or dotspacemacs-directory user-home-directory) ".spacemacs.env")
|
|
"Absolute path to the env file where environment variables are set.")
|
|
|
|
(defvar spacemacs-ignored-environment-variables
|
|
'(
|
|
"DBUS_SESSION_BUS_ADDRESS"
|
|
"GPG_AGENT_INFO"
|
|
"SSH_AGENT_PID"
|
|
"SSH_AUTH_SOCK"
|
|
)
|
|
"Ignored environments variables.
|
|
Environment variables with names matching these regexps are not
|
|
imported into the `.spacemacs.env' file.")
|
|
|
|
(defvar spacemacs--spacemacs-env-loaded nil
|
|
"non-nil if `spacemacs/load-spacemacs-env' has been called at least once.")
|
|
|
|
(defun spacemacs//init-spacemacs-env (&optional force)
|
|
"Attempt to fetch the environment variables from the users shell.
|
|
This solution is far from perfect and we should not rely on this function
|
|
a lot. We use it only to initialize the env file when it does not exist
|
|
yet.
|
|
If FORCE is non-nil then force the initialization of the file, note that the
|
|
current contents of the file will be overwritten."
|
|
(when (or force (not (file-exists-p spacemacs-env-vars-file)))
|
|
(with-temp-file spacemacs-env-vars-file
|
|
(let ((shell-command-switches (cond
|
|
((or(eq system-type 'darwin)
|
|
(eq system-type 'gnu/linux))
|
|
;; execute env twice, once with a
|
|
;; non-interactive login shell and
|
|
;; once with an interactive shell
|
|
;; in order to capture all the init
|
|
;; files possible.
|
|
'("-lc" "-ic"))
|
|
((eq system-type 'windows-nt) '("-c"))))
|
|
(tmpfile (make-temp-file spacemacs-env-vars-file))
|
|
(executable (cond ((or(eq system-type 'darwin)
|
|
(eq system-type 'gnu/linux)) "env")
|
|
((eq system-type 'windows-nt) "set"))))
|
|
(insert
|
|
(concat
|
|
"# ---------------------------------------------------------------------------\n"
|
|
"# Spacemacs environment variables\n"
|
|
"# ---------------------------------------------------------------------------\n"
|
|
"# This file has been generated by Spacemacs. It contains all environment\n"
|
|
"# variables defined in your default shell except those with names matching\n"
|
|
"# regexps in `spacemacs-ignored-environment-variables'. If you add any\n"
|
|
"# duplicate settings for a variable, only the first setting is effective.\n"
|
|
"# PATH is a special case: all PATH settings are read, each non-duplicate\n"
|
|
"# directory entry is appended to the `exec-path' variable, and then PATH is\n"
|
|
"# set to the final value of `exec-path'.\n"
|
|
"#\n"
|
|
"# You can safely edit this file to change values or add or remove entries.\n"
|
|
"# Spacemacs won't overwrite the file unless you call the function\n"
|
|
"# `spacemacs/force-init-spacemacs-env'.\n"
|
|
"#\n"
|
|
"# If you don't want to use this file but would rather manage your environment\n"
|
|
"# variables yourself, remove the call to `spacemacs/load-spacemacs-env' from\n"
|
|
"# the `dotspacemacs/user-env' function in your dotfile and replace it with\n"
|
|
"# your own initialization code. You can use `exec-path-from-shell' if you add\n"
|
|
"# it to your additional packages, or simply use `setenv' and\n"
|
|
"# `(add-to-list 'exec-path ...)', which are built-in.\n"
|
|
"#\n"
|
|
"# It is recommended to use this file as it unambiguously and explicitly sets\n"
|
|
"# the values of your environment variables.\n"
|
|
"# ---------------------------------------------------------------------------\n"
|
|
"\n"
|
|
"# Environment variables:\n"
|
|
"# ----------------------\n"))
|
|
(let ((env-point (point)))
|
|
(dolist (shell-command-switch shell-command-switches)
|
|
(call-process-shell-command
|
|
(concat executable " > " (shell-quote-argument tmpfile)))
|
|
(insert-file tmpfile))
|
|
(delete-file tmpfile)
|
|
;; sort the environment variables
|
|
(sort-regexp-fields nil "^.*$" ".*?=" env-point (point-max))
|
|
;; remove adjacent duplicated lines
|
|
(delete-duplicate-lines env-point (point-max) nil t)
|
|
;; remove ignored environment variables
|
|
(dolist (v spacemacs-ignored-environment-variables)
|
|
(flush-lines v env-point (point-max))))))
|
|
(spacemacs-buffer/warning
|
|
(concat "Spacemacs has imported your environment variables from "
|
|
"your shell and saved them to `%s'.\n"
|
|
"Open this file for more info (SPC f e e) or call "
|
|
"`spacemacs/edit-env' function.")
|
|
spacemacs-env-vars-file)))
|
|
|
|
(defun spacemacs/force-init-spacemacs-env ()
|
|
"Forces a reinitialization of environment variables."
|
|
(interactive)
|
|
(spacemacs//init-spacemacs-env t))
|
|
|
|
(defun spacemacs/edit-env ()
|
|
"Open the `.spacemacs.env' file for editing."
|
|
(interactive)
|
|
(if (and spacemacs--spacemacs-env-loaded
|
|
(file-exists-p spacemacs-env-vars-file))
|
|
(progn
|
|
(find-file spacemacs-env-vars-file)
|
|
(when (fboundp 'dotenv-mode)
|
|
(dotenv-mode)))
|
|
;; fallback to the dotspacemacs/user-env
|
|
(dotspacemacs/go-to-user-env)))
|
|
|
|
(defun spacemacs/load-spacemacs-env (&optional force)
|
|
"Load the environment variables from the `.spacemacs.env' file.
|
|
If FORCE is non-nil then force the loading of environment variables from env.
|
|
file."
|
|
(interactive "P")
|
|
(setq spacemacs--spacemacs-env-loaded t)
|
|
(when (or force (display-graphic-p))
|
|
(spacemacs//init-spacemacs-env force)
|
|
(load-env-vars spacemacs-env-vars-file)))
|
|
|
|
(provide 'core-env)
|