@@ -88,11 +88,11 @@

                    (helm-comp-read "system:" systems)

                  (car systems)))))

-(cl-defmethod fwoar--find-system (&context (major-mode (derived-mode clojure-mode)))

+(cl-defmethod fwoar/find-system (&context (major-mode (derived-mode clojure-mode)))

   (find-clojure-project-file))

-(cl-defmethod fwoar--find-system (&context (projectile-project-type (eql clojure-mode)))

+(cl-defmethod fwoar/find-system (&context (projectile-project-type (eql clojure-mode)))

   (find-clojure-project-file))

-(cl-defmethod fwoar--find-system (&context (major-mode (derived-mode cider-repl-mode)))

+(cl-defmethod fwoar/find-system (&context (major-mode (derived-mode cider-repl-mode)))

   (find-clojure-project-file))

 (cl-defmethod fwoar--pl-selector (&context (major-mode clojure-mode))

@@ -161,3 +161,9 @@

 (defvar *tos-hook*

   (add-hook 'after-save-hook 'fwoar/test-on-save))

+

+(cl-macrolet ((def-js-like-find-system (mode)

+		            `(cl-defmethod fwoar/find-system (&context (major-mode ,mode))

+		               (find-package-json default-directory))))

+  (def-js-like-find-system js-mode)

+  (def-js-like-find-system typescript-mode))

@@ -46,7 +46,7 @@

       (directory-files dir-of-asd

                        t "^[^.#][^#]*[.]asd$"))))

-(cl-defmethod fwoar--find-system (&context (major-mode lisp-mode))

+(cl-defmethod fwoar/find-system (&context (major-mode lisp-mode))

   (let ((systems (fwoar--get-asds)))

     (find-file (if (not (null (cdr systems)))

                    (helm-comp-read "system:" systems)

@@ -219,7 +219,7 @@ Examples:

            slime-selector-methods

            :key #'car)

-  (pushnew (list ?S "Goto System" #'fwoar--find-system)

+  (pushnew (list ?S "Goto System" #'fwoar/find-system)

            slime-selector-methods

            :key #'car)