Add exec-path

Author: jcs090218

lisp/_prepare.el

@@ -228,13 +228,11 @@ other scripts internally.  See function `eask-call'.")
      (setq command-switch-alist (append command-switch-alist alist))
      ,@body))
 
-(defun eask-fbound (symbol) (and (fboundp symbol) symbol))
-
 (defconst eask-file-keywords
   '("package" "package-file" "files"
     "depends-on" "development"
     "source" "source-priority"
-    "load-path" "load-paths")
+    "exec-path" "exec-paths" "load-path" "load-paths")
   "List of Eask file keywords.")
 
 (defun eask--loop-file-keywords (func)
@@ -251,17 +249,16 @@ for function `eask--alias-env'."
 Eask file in the workspace."
   (declare (indent 0) (debug t))
   `(let (result)
+     ;; XXX magic here is we replace all keyword functions with `eask-xxx'...
      (eask--loop-file-keywords
       (lambda (keyword api old)
-        (eval `(defvar ,old nil))
-        (eval `(setq ,old (eask-fbound (quote ,keyword))))
-        (eval `(defalias (quote ,keyword) (quote ,api)))))
+        (defalias old (symbol-function keyword))
+        (defalias keyword (symbol-function api))))
      (setq result (progn ,@body))
+     ;; XXX after loading Eask file, we revert those functions back to normal!
      (eask--loop-file-keywords
       (lambda (keyword api old)
-        ;; TODO: Revert the original function's definition; just in case,
-        ;; anything else don't go wrong
-        (eval `(defalias (quote ,keyword) (symbol-function ,old)))))
+        (defalias keyword (symbol-function old))))
      result))
 
 (defvar eask-file nil "The Eask file path.")
@@ -304,7 +301,7 @@ Eask file in the workspace."
            ;; as a sandbox.
            (if (eask-file-try-load "./")
                (eask-debug "✓ Loading default Eask file in %s... done!" eask-file)
-             (eask-warn "✗ Loading default Eask file... missing."))
+             (eask-warn "✗ Loading default Eask file... missing!"))
            (message "") ,@body)
           (t
            (let* ((user-emacs-directory (expand-file-name (concat ".eask/" emacs-version "/")))
@@ -314,7 +311,7 @@ Eask file in the workspace."
                   (custom-file (locate-user-emacs-file "custom.el")))
              (if (eask-file-try-load "../../")
                  (eask-debug "✓ Loading Eask file in %s... done!" eask-file)
-               (eask-error "✗ Loading Eask file... missing."))
+               (eask-error "✗ Loading Eask file... missing!"))
              (ignore-errors (make-directory package-user-dir t))
              (run-hooks 'eask-before-command-hook)
              (run-hooks (intern (concat "eask-before-command-" (eask-command) "-hook")))
@@ -384,6 +381,14 @@ Eask file in the workspace."
   "Add all DIRS to load-path."
   (dolist (dir dirs) (eask-load-path dir)))
 
+(defun eask-exec-path (dir)
+  "Add DIR to exec-path."
+  (add-to-list 'exec-path (expand-file-name dir)))
+
+(defun eask-exec-paths (&rest dirs)
+  "Add all DIRS to exec-path."
+  (dolist (dir dirs) (eask-exec-path dir)))
+
 (defun eask-source (name &optional location)
   "Add archive NAME with LOCATION."
   (setq location (or location (cdr (assq (intern name) eask-source-mapping))))

test/commands/exec/Eask

@@ -1,4 +1,3 @@
-(source "gnu")
 (source "melpa")
 
 (package "exec"
@@ -10,6 +9,6 @@
 (depends-on "emacs" "26.1")
 (depends-on "github-elpa")
 
-(load-path "./bin/")
+(exec-path "./bin/")
 
 (setq network-security-level 'low)  ; see https://github.com/jcs090218/setup-emacs-windows/issues/156#issuecomment-932956432