[nongnu] elpa/sweeprolog 1c6d2e96a8 078/166: ENHANCED: allow user to specify location of swipl binary

[ELPA Syncer]

branch: elpa/sweeprolog
commit 1c6d2e96a85addcad0f06d61d3cc3b1118f6b76a
Author: James N. V. Cash <james.cash@occasionallycogent.com>
Commit: Eshel Yaron <me@eshelyaron.com>

    ENHANCED: allow user to specify location of swipl binary
---
 sweep.el | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/sweep.el b/sweep.el
index 0a3fc19b4e..37371ea18b 100644
--- a/sweep.el
+++ b/sweep.el
@@ -32,6 +32,14 @@
   "SWI-Prolog Embedded in Emacs."
   :group 'prolog)
 
+(defcustom sweep-swipl-path nil
+  "Path to the swipl binary.
+When non-nil, this is used by the embedded SWI-Prolog runtime to
+locate its \"home\" directory."
+  :package-version '((sweep . "0.1.1"))
+  :type 'string
+  :group 'sweep)
+
 (defcustom sweep-messages-buffer-name "*sweep Messages*"
   "The name of the buffer to use for logging Prolog messages."
   :package-version '((sweep . "0.1.1"))
@@ -153,8 +161,9 @@
 
 (defun sweep-init ()
   (apply #'sweep-initialize
-         (cons (expand-file-name "bin/swipl" (file-name-directory
-                                              load-file-name))
+         (cons (or sweep-swipl-path
+                   (expand-file-name "bin/swipl" (file-name-directory
+                                                  load-file-name)))
                (cons "-q" (cons "--no-signals" sweep-init-args))))
   (sweep-setup-message-hook)
   (sweep-start-prolog-server))