From 17ee0e400bef47c371afcae76037f9ea6a44ad13 Mon Sep 17 00:00:00 2001 From: William Carroll Date: Mon, 10 Sep 2018 14:51:14 -0400 Subject: Support Vim, Tmux, Emacs with Stow After moving off of Meta, Dotfiles has a greater responsibility to manage configs. Vim, Tmux, and Emacs are now within Stow's purview. --- .../add-node-modules-path.el | 79 ++++++++++++++++++++++ 1 file changed, 79 insertions(+) create mode 100644 configs/shared/emacs/.emacs.d/elpa/add-node-modules-path-20180710.2342/add-node-modules-path.el (limited to 'configs/shared/emacs/.emacs.d/elpa/add-node-modules-path-20180710.2342/add-node-modules-path.el') diff --git a/configs/shared/emacs/.emacs.d/elpa/add-node-modules-path-20180710.2342/add-node-modules-path.el b/configs/shared/emacs/.emacs.d/elpa/add-node-modules-path-20180710.2342/add-node-modules-path.el new file mode 100644 index 000000000000..cd8adc0f8d51 --- /dev/null +++ b/configs/shared/emacs/.emacs.d/elpa/add-node-modules-path-20180710.2342/add-node-modules-path.el @@ -0,0 +1,79 @@ +;;; add-node-modules-path.el --- Add node_modules to your exec-path + +;; Copyright (C) 2016 Neri Marschik +;; This package uses the MIT License. +;; See the LICENSE file. + +;; Author: Neri Marschik +;; Version: 1.0 +;; Package-Version: 20180710.2342 +;; Package-Requires: () +;; Keywords: javascript, node, node_modules, eslint +;; URL: https://github.com/codesuki/add-node-modules-path + +;;; Commentary: +;; +;; This file provides `add-node-modules-path', which searches +;; the current files parent directories for the `node_modules/.bin/' directory +;; and adds it to the buffer local `exec-path'. +;; This allows Emacs to find project based installs of e.g. eslint. +;; +;; Usage: +;; M-x add-node-modules-path +;; +;; To automatically run it when opening a new buffer: +;; (Choose depending on your favorite mode.) +;; +;; (eval-after-load 'js-mode +;; '(add-hook 'js-mode-hook #'add-node-modules-path)) +;; +;; (eval-after-load 'js2-mode +;; '(add-hook 'js2-mode-hook #'add-node-modules-path)) + +;;; Code: + +;;;###autoload +(defcustom add-node-modules-path-debug nil + "Enable verbose output when non nil." + :type 'boolean) + +;;;###autoload +(defcustom add-node-modules-max-depth 20 + "Max depth to look for node_modules." + :type 'integer) + +;;;###autoload +(defun add-node-modules-path () + "Search the current buffer's parent directories for `node_modules/.bin`. +Traverse the directory structure up, until reaching the user's home directory, + or hitting add-node-modules-max-depth. +Any path found is added to the `exec-path'." + (interactive) + (let* ((default-dir (expand-file-name default-directory)) + (file (or (buffer-file-name) default-dir)) + (home (expand-file-name "~")) + (iterations add-node-modules-max-depth) + (root (directory-file-name (or (and (buffer-file-name) (file-name-directory (buffer-file-name))) default-dir))) + (roots '())) + (while (and root (> iterations 0)) + (setq iterations (1- iterations)) + (let ((bindir (expand-file-name "node_modules/.bin/" root))) + (when (file-directory-p bindir) + (add-to-list 'roots bindir))) + (if (string= root home) + (setq root nil) + (setq root (directory-file-name (file-name-directory root))))) + (if roots + (progn + (make-local-variable 'exec-path) + (while roots + (add-to-list 'exec-path (car roots)) + (when add-node-modules-path-debug + (message (concat "added " (car roots) " to exec-path"))) + (setq roots (cdr roots)))) + (when add-node-modules-path-debug + (message (concat "node_modules/.bin not found for " file)))))) + +(provide 'add-node-modules-path) + +;;; add-node-modules-path.el ends here -- cgit 1.4.1