diff options
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/exec-path-from-shell-20180324.204/exec-path-from-shell.el')
| -rw-r--r-- | configs/shared/emacs/.emacs.d/elpa/exec-path-from-shell-20180324.204/exec-path-from-shell.el | 272 |
1 files changed, 272 insertions, 0 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/exec-path-from-shell-20180324.204/exec-path-from-shell.el b/configs/shared/emacs/.emacs.d/elpa/exec-path-from-shell-20180324.204/exec-path-from-shell.el new file mode 100644 index 000000000000..6877253eab10 --- /dev/null +++ b/configs/shared/emacs/.emacs.d/elpa/exec-path-from-shell-20180324.204/exec-path-from-shell.el @@ -0,0 +1,272 @@ +;;; exec-path-from-shell.el --- Get environment variables such as $PATH from the shell + +;; Copyright (C) 2012-2014 Steve Purcell + +;; Author: Steve Purcell <steve@sanityinc.com> +;; Keywords: unix, environment +;; URL: https://github.com/purcell/exec-path-from-shell +;; Package-Version: 20180324.204 +;; Package-X-Original-Version: 0 + +;; This file is not part of GNU Emacs. + +;; This file is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This file is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this file. If not, see <http://www.gnu.org/licenses/>. + +;;; Commentary: + +;; On OS X (and perhaps elsewhere) the $PATH environment variable and +;; `exec-path' used by a windowed Emacs instance will usually be the +;; system-wide default path, rather than that seen in a terminal +;; window. + +;; This library allows the user to set Emacs' `exec-path' and $PATH +;; from the shell path, so that `shell-command', `compile' and the +;; like work as expected. + +;; It also allows other environment variables to be retrieved from the +;; shell, so that Emacs will see the same values you get in a terminal. + +;; If you use a non-POSIX-standard shell like "tcsh" or "fish", your +;; shell will be asked to execute "sh" as a subshell in order to print +;; out the variables in a format which can be reliably parsed. "sh" +;; must be a POSIX-compliant shell in this case. + +;; Note that shell variables which have not been exported as +;; environment variables (e.g. using the "export" keyword) may not be +;; visible to `exec-path-from-shell'. + +;; Installation: + +;; ELPA packages are available on Marmalade and MELPA. Alternatively, +;; place this file on a directory in your `load-path', and explicitly +;; require it. + +;; Usage: +;; +;; (require 'exec-path-from-shell) ;; if not using the ELPA package +;; (exec-path-from-shell-initialize) +;; +;; Customize `exec-path-from-shell-variables' to modify the list of +;; variables imported. +;; +;; If you use your Emacs config on other platforms, you can instead +;; make initialization conditional as follows: +;; +;; (when (memq window-system '(mac ns)) +;; (exec-path-from-shell-initialize)) +;; +;; Alternatively, you can use `exec-path-from-shell-copy-envs' or +;; `exec-path-from-shell-copy-env' directly, e.g. +;; +;; (exec-path-from-shell-copy-env "PYTHONPATH") + +;;; Code: + +;; Satisfy the byte compiler +(defvar eshell-path-env) + +(defgroup exec-path-from-shell nil + "Make Emacs use shell-defined values for $PATH etc." + :prefix "exec-path-from-shell-" + :group 'environment) + +(defcustom exec-path-from-shell-variables + '("PATH" "MANPATH") + "List of environment variables which are copied from the shell." + :type '(repeat (string :tag "Environment variable")) + :group 'exec-path-from-shell) + +(defcustom exec-path-from-shell-check-startup-files t + "If non-nil, warn if variables are being set in the wrong shell startup files. +Environment variables should be set in .profile or .zshenv rather than +.bashrc or .zshrc." + :type 'boolean + :group 'exec-path-from-shell) + +(defcustom exec-path-from-shell-shell-name nil + "If non-nil, use this shell executable. +Otherwise, use either `shell-file-name' (if set), or the value of +the SHELL environment variable." + :type '(choice + (file :tag "Shell executable") + (const :tag "Use `shell-file-name' or $SHELL" nil)) + :group 'exec-path-from-shell) + +(defvar exec-path-from-shell-debug nil + "Display debug info when non-nil.") + +(defun exec-path-from-shell--double-quote (s) + "Double-quote S, escaping any double-quotes already contained in it." + (concat "\"" (replace-regexp-in-string "\"" "\\\\\"" s) "\"")) + +(defun exec-path-from-shell--shell () + "Return the shell to use. +See documentation for `exec-path-from-shell-shell-name'." + (or + exec-path-from-shell-shell-name + shell-file-name + (getenv "SHELL") + (error "SHELL environment variable is unset"))) + +(defcustom exec-path-from-shell-arguments + (if (string-match-p "t?csh$" (exec-path-from-shell--shell)) + (list "-d") + (list "-l" "-i")) + "Additional arguments to pass to the shell. + +The default value denotes an interactive login shell." + :type '(repeat (string :tag "Shell argument")) + :group 'exec-path-from-shell) + +(defun exec-path-from-shell--debug (msg &rest args) + "Print MSG and ARGS like `message', but only if debug output is enabled." + (when exec-path-from-shell-debug + (apply 'message msg args))) + +(defun exec-path-from-shell--standard-shell-p (shell) + "Return non-nil iff SHELL supports the standard ${VAR-default} syntax." + (not (string-match "\\(fish\\|t?csh\\)$" shell))) + +(defun exec-path-from-shell-printf (str &optional args) + "Return the result of printing STR in the user's shell. + +Executes the shell as interactive login shell. + +STR is inserted literally in a single-quoted argument to printf, +and may therefore contain backslashed escape sequences understood +by printf. + +ARGS is an optional list of args which will be inserted by printf +in place of any % placeholders in STR. ARGS are not automatically +shell-escaped, so they may contain $ etc." + (let* ((printf-bin (or (executable-find "printf") "printf")) + (printf-command + (concat printf-bin + " '__RESULT\\000" str "\\000__RESULT' " + (mapconcat #'exec-path-from-shell--double-quote args " "))) + (shell (exec-path-from-shell--shell)) + (shell-args (append exec-path-from-shell-arguments + (list "-c" + (if (exec-path-from-shell--standard-shell-p shell) + printf-command + (concat "sh -c " (shell-quote-argument printf-command))))))) + (with-temp-buffer + (exec-path-from-shell--debug "Invoking shell %s with args %S" shell shell-args) + (let ((exit-code (apply #'call-process shell nil t nil shell-args))) + (exec-path-from-shell--debug "Shell printed: %S" (buffer-string)) + (unless (zerop exit-code) + (error "Non-zero exit code from shell %s invoked with args %S. Output was:\n%S" + shell shell-args (buffer-string)))) + (goto-char (point-min)) + (if (re-search-forward "__RESULT\0\\(.*\\)\0__RESULT" nil t) + (match-string 1) + (error "Expected printf output from shell, but got: %S" (buffer-string)))))) + +(defun exec-path-from-shell-getenvs (names) + "Get the environment variables with NAMES from the user's shell. + +Execute the shell according to `exec-path-from-shell-arguments'. +The result is a list of (NAME . VALUE) pairs." + (let* ((random-default (md5 (format "%s%s%s" (emacs-pid) (random) (current-time)))) + (dollar-names (mapcar (lambda (n) (format "${%s-%s}" n random-default)) names)) + (values (split-string (exec-path-from-shell-printf + (mapconcat #'identity (make-list (length names) "%s") "\\000") + dollar-names) "\0"))) + (let (result) + (while names + (prog1 + (let ((value (car values))) + (push (cons (car names) + (unless (string-equal random-default value) + value)) + result)) + (setq values (cdr values) + names (cdr names)))) + result))) + +(defun exec-path-from-shell-getenv (name) + "Get the environment variable NAME from the user's shell. + +Execute the shell as interactive login shell, have it output the +variable of NAME and return this output as string." + (cdr (assoc name (exec-path-from-shell-getenvs (list name))))) + +(defun exec-path-from-shell-setenv (name value) + "Set the value of environment var NAME to VALUE. +Additionally, if NAME is \"PATH\" then also set corresponding +variables such as `exec-path'." + (setenv name value) + (when (string-equal "PATH" name) + (setq eshell-path-env value + exec-path (append (parse-colon-path value) (list exec-directory))))) + +;;;###autoload +(defun exec-path-from-shell-copy-envs (names) + "Set the environment variables with NAMES from the user's shell. + +As a special case, if the variable is $PATH, then `exec-path' and +`eshell-path-env' are also set appropriately. The result is an alist, +as described by `exec-path-from-shell-getenvs'." + (let ((pairs (exec-path-from-shell-getenvs names))) + (when exec-path-from-shell-check-startup-files + (exec-path-from-shell--maybe-warn-about-startup-files pairs)) + (mapc (lambda (pair) + (exec-path-from-shell-setenv (car pair) (cdr pair))) + pairs))) + +(defun exec-path-from-shell--maybe-warn-about-startup-files (pairs) + "Warn the user if the value of PAIRS seems to depend on interactive shell startup files." + (let ((without-minus-i (remove "-i" exec-path-from-shell-arguments))) + ;; If the user is using "-i", we warn them if it is necessary. + (unless (eq exec-path-from-shell-arguments without-minus-i) + (let* ((exec-path-from-shell-arguments without-minus-i) + (alt-pairs (exec-path-from-shell-getenvs (mapcar 'car pairs))) + different) + (dolist (pair pairs) + (unless (equal pair (assoc (car pair) alt-pairs)) + (push (car pair) different))) + (when different + (message "You appear to be setting environment variables %S in your .bashrc or .zshrc: those files are only read by interactive shells, so you should instead set environment variables in startup files like .profile, .bash_profile or .zshenv. Refer to your shell's man page for more info. Customize `exec-path-from-shell-arguments' to remove \"-i\" when done, or disable `exec-path-from-shell-check-startup-files' to disable this message." different)))))) + +;;;###autoload +(defun exec-path-from-shell-copy-env (name) + "Set the environment variable $NAME from the user's shell. + +As a special case, if the variable is $PATH, then `exec-path' and +`eshell-path-env' are also set appropriately. Return the value +of the environment variable." + (interactive "sCopy value of which environment variable from shell? ") + (cdar (exec-path-from-shell-copy-envs (list name)))) + +;;;###autoload +(defun exec-path-from-shell-initialize () + "Initialize environment from the user's shell. + +The values of all the environment variables named in +`exec-path-from-shell-variables' are set from the corresponding +values used in the user's shell." + (interactive) + (exec-path-from-shell-copy-envs exec-path-from-shell-variables)) + + +(provide 'exec-path-from-shell) + +;; Local Variables: +;; coding: utf-8 +;; indent-tabs-mode: nil +;; require-final-newline: t +;; checkdoc-minor-mode: t +;; End: + +;;; exec-path-from-shell.el ends here |