Merge pull request #434 from Fuco1/feature/local-executable-files

Add package executable files to exec-path
cask · Aug 31, 2018 · 1c59a84 · 1c59a84
2 parents 553c741 + 6334261
commit 1c59a84
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/cask.el b/cask.el
@@ -712,6 +712,7 @@ If BUNDLE is not a package, the error `cask-not-a-package' is signaled."
   "Return Emacs `exec-path' (including BUNDLE dependencies)."
   (cask--with-environment bundle
     (append
+     (-map 'expand-file-name (-uniq (-map 'f-parent (-filter 'f-executable-p (cask-files bundle)))))
      (-select
       'f-dir?
       (-map

diff --git a/test/cask-api-test.el b/test/cask-api-test.el
@@ -442,6 +442,16 @@
     (let ((path (f-join (cask-elpa-path bundle) "package-e-0.0.1" "bin")))
       (should (equal (cons path exec-path) (cask-exec-path bundle))))))
 
+(ert-deftest cask-exec-path-test/local-executable-files ()
+  (cask-test/with-bundle
+      '((source localhost)
+        (files "bin/executable"))
+    (f-mkdir "bin")
+    (f-touch "bin/executable")
+    (chmod "bin/executable" 755)
+    (let ((path (f-join (cask-path bundle) "bin/")))
+      (should (equal (cons path exec-path) (cask-exec-path bundle))))))
+
 
 ;;;; cask-load-path