69 lines
2.8 KiB
EmacsLisp
69 lines
2.8 KiB
EmacsLisp
;;; tools/direnv/config.el -*- lexical-binding: t; -*-
|
|
|
|
(defvar +direnv--keywords
|
|
'("direnv_layout_dir" "PATH_add" "path_add" "log_status" "log_error" "has"
|
|
"join_args" "expand_path" "dotenv" "user_rel_path" "find_up" "source_env"
|
|
"watch_file" "source_up" "direnv_load" "MANPATH_add" "load_prefix" "layout"
|
|
"use" "rvm" "use_nix" "use_guix")
|
|
"TODO")
|
|
|
|
(use-package! direnv
|
|
:after-call after-find-file dired-initial-position-hook
|
|
:config
|
|
(add-hook! 'direnv-mode-hook
|
|
(defun +direnv-init-h ()
|
|
"Instead of checking for direnv on `post-command-hook', check only once,
|
|
when the file is first opened/major mode is activated. This is significantly
|
|
less expensive, but is less sensitive to changes to .envrc done outside of
|
|
Emacs."
|
|
(direnv--disable)
|
|
(when direnv-mode
|
|
(add-hook 'after-change-major-mode-hook
|
|
#'direnv--maybe-update-environment))))
|
|
|
|
(defadvice! +direnv--make-process-environment-buffer-local-a (items)
|
|
:filter-return #'direnv--export
|
|
(when items
|
|
(mapc 'kill-local-variable '(process-environment exec-path))
|
|
(mapc 'make-local-variable '(process-environment exec-path)))
|
|
items)
|
|
|
|
;; Fontify special .envrc keywords; it's a good indication of whether or not
|
|
;; we've typed them correctly.
|
|
(add-hook! 'direnv-envrc-mode-hook
|
|
(defun +direnv-envrc-fontify-keywords-h ()
|
|
(font-lock-add-keywords
|
|
nil `((,(regexp-opt +direnv--keywords 'symbols)
|
|
(0 font-lock-keyword-face)))))
|
|
(defun +direnv-update-on-save-h ()
|
|
(add-hook 'after-save-hook #'direnv--maybe-update-environment
|
|
nil 'local)))
|
|
|
|
(defadvice! +direnv-update-a (&rest _)
|
|
"Update direnv. Useful to advise functions that may run
|
|
environment-sensitive logic like `flycheck-default-executable-find'. This fixes
|
|
flycheck issues with direnv and on nix."
|
|
:before #'flycheck-default-executable-find
|
|
(direnv--maybe-update-environment))
|
|
|
|
(defadvice! +direnv--fail-gracefully-a (orig-fn)
|
|
"Don't try to update direnv if the executable isn't present."
|
|
:around #'direnv--maybe-update-environment
|
|
(if (executable-find "direnv")
|
|
(when (file-readable-p (or buffer-file-name default-directory))
|
|
(funcall orig-fn))
|
|
(doom-log "Couldn't find direnv executable")))
|
|
|
|
(defadvice! +direnv-update-async-shell-command-a (command &optional output-buffer _error-buffer)
|
|
:before #'shell-command
|
|
(when (string-match "[ \t]*&[ \t]*\\'" command)
|
|
(let ((environment process-environment)
|
|
(path exec-path)
|
|
(shell shell-file-name))
|
|
(with-current-buffer
|
|
(get-buffer-create (or output-buffer "*Async Shell Command*"))
|
|
(setq-local process-environment environment)
|
|
(setq-local exec-path path)
|
|
(setq-local shell-file-name shell)))))
|
|
|
|
(direnv-mode +1))
|