From d44908b0ae906a1f02ff867922d338d845353822 Mon Sep 17 00:00:00 2001
From: Manuel Rojas <mrojas@fmit-solutions.com>
Date: Sat, 10 Sep 2022 18:09:22 +0100
Subject: [PATCH] Add recursion search 'node_modules/.bin' through directory
 tree

It allows to find programs on monorepo configuration or even global
'node_modules' packages.
---
 add-node-modules-path.el | 42 ++++++++++++++++++++++++----------------
 1 file changed, 25 insertions(+), 17 deletions(-)

diff --git a/add-node-modules-path.el b/add-node-modules-path.el
index 9789c23..729c1ef 100644
--- a/add-node-modules-path.el
+++ b/add-node-modules-path.el
@@ -12,9 +12,10 @@
 
 ;;; Commentary:
 ;;
-;; This file provides `add-node-modules-path', which runs `npm bin` and
-;; and adds the path to the buffer local `exec-path'.
-;; This allows Emacs to find project based installs of e.g. eslint.
+;; This file provides `add-node-modules-path', which runs `npm bin`
+;; recursively through up directory tree and and adds the path 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
@@ -38,10 +39,15 @@
   :group 'environment)
 
 ;;;###autoload
-(defcustom add-node-modules-path-command "npm bin"
+(defcustom add-node-modules-path-command-bin "npm bin"
   "Command to find the bin path."
   :type 'string)
 
+;;;###autoload
+(defcustom add-node-modules-path-command-root "npm root"
+  "Command to find the root path."
+  :type 'string)
+
 ;;;###autoload
 (defcustom add-node-modules-path-debug nil
   "Enable verbose output when non nil."
@@ -54,22 +60,24 @@
 If `npm` command fails, it does nothing."
   (interactive)
 
-  (let* ((res (s-chomp (shell-command-to-string add-node-modules-path-command)))
-         (exists (file-exists-p res))
-         )
+  (let* ((root-directory (s-chomp (shell-command-to-string add-node-modules-path-command-root)))
+         (bin-directory (s-chomp (shell-command-to-string add-node-modules-path-command-bin)))
+         (exists (file-exists-p bin-directory))
+         (isRoot (string= (directory-file-name (file-name-directory root-directory)) "/")))
     (cond
-     (exists
-      (make-local-variable 'exec-path)
-      (add-to-list 'exec-path res)
-      (when add-node-modules-path-debug
-        (message "Added to `exec-path`: %s" res))
-      )
+     ((not isRoot)
+      (unless (local-variable-p 'exec-path)
+        (make-local-variable 'exec-path))
+      (when exists
+        (add-to-list 'exec-path bin-directory)
+        (when add-node-modules-path-debug
+          (message "Added to `exec-path`: %s" bin-directory)))
+      (cd (concat root-directory "/../.."))
+      (add-node-modules-path))
      (t
+      (cd (file-name-directory (buffer-file-name)))
       (when add-node-modules-path-debug
-        (message "Failed to run `%s':\n %s" add-node-modules-path-command res))
-      ))
-    )
-  )
+        (message "Found root directory"))))))
 
 (provide 'add-node-modules-path)