38 lines
1.6 KiB
EmacsLisp
38 lines
1.6 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")
|
|
|
|
(def-package! direnv
|
|
:after-call (after-find-file dired-initial-position-hook)
|
|
:config
|
|
(defun +direnv|init ()
|
|
"Instead of checking for direnv on `post-command-hook', check on
|
|
buffer/window/frame switch, which is less expensive."
|
|
(direnv--disable)
|
|
(when direnv-mode
|
|
(add-hook 'doom-switch-buffer-hook #'direnv--maybe-update-environment)
|
|
(add-hook 'doom-switch-window-hook #'direnv--maybe-update-environment)
|
|
(add-hook 'doom-switch-frame-hook #'direnv--maybe-update-environment)
|
|
(add-hook 'focus-in-hook #'direnv--maybe-update-environment)))
|
|
(add-hook 'direnv-mode-hook #'+direnv|init)
|
|
|
|
(defun +direnv|envrc-fontify-keywords ()
|
|
(font-lock-add-keywords
|
|
nil `((,(regexp-opt +direnv--keywords 'symbols)
|
|
(0 font-lock-keyword-face)))))
|
|
(add-hook 'direnv-envrc-mode-hook #'+direnv|envrc-fontify-keywords)
|
|
|
|
(defun +direnv*update (&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."
|
|
(direnv-update-environment default-directory))
|
|
(advice-add #'flycheck-default-executable-find :before #'+direnv*update)
|
|
|
|
(when (executable-find "direnv")
|
|
(direnv-mode +1)))
|