[nongnu] elpa/swift-mode f62cd58 423/496: Change standard values for executables

[ELPA Syncer]

branch: elpa/swift-mode
commit f62cd5844557f2df2279c8cd587dbfd28dc92887
Author: taku0 <mxxouy6x3m_github@tatapa.org>
Commit: taku0 <mxxouy6x3m_github@tatapa.org>

    Change standard values for executables
---
 swift-mode-repl.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/swift-mode-repl.el b/swift-mode-repl.el
index 9f0c2db..6b700f7 100644
--- a/swift-mode-repl.el
+++ b/swift-mode-repl.el
@@ -47,7 +47,7 @@
 
 ;;;###autoload
 (defcustom swift-mode:repl-executable
-  "xcrun swift"
+  (concat (when (executable-find "xcrun") "xcrun ") "swift")
   "Path to the Swift CLI.  The string is split by spaces, then unquoted."
   :type '(choice string (list string))
   :group 'swift-mode:repl
@@ -55,7 +55,7 @@
 
 ;;;###autoload
 (defcustom swift-mode:swift-package-executable
-  "xcrun swift package"
+  (concat (when (executable-find "xcrun") "xcrun ") "swift package")
   "Path to the Swift command for package manipulation.
 The string is split by spaces, then unquoted."
   :type '(choice string (list string))
@@ -64,7 +64,7 @@ The string is split by spaces, then unquoted."
 
 ;;;###autoload
 (defcustom swift-mode:swift-build-executable
-  "xcrun swift build"
+  (concat (when (executable-find "xcrun") "xcrun ") "swift build")
   "Path to the Swift command for building.
 The string is split by spaces, then unquoted."
   :type '(choice string (list string))
@@ -73,7 +73,7 @@ The string is split by spaces, then unquoted."
 
 ;;;###autoload
 (defcustom swift-mode:debugger-executable
-  "xcrun lldb"
+  (concat (when (executable-find "xcrun") "xcrun ") "lldb")
   "Path to the debugger command.
 The string is split by spaces, then unquoted."
   :type '(choice string (list string))
@@ -91,7 +91,7 @@ The string is split by spaces, then unquoted."
 
 ;;;###autoload
 (defcustom swift-mode:simulator-controller-executable
-  "xcrun simctl"
+  (concat (when (executable-find "xcrun") "xcrun ") "simctl")
   "Path to the simulator controller command.
 The string is split by spaces, then unquoted."
   :type '(choice string (list string))
@@ -100,7 +100,7 @@ The string is split by spaces, then unquoted."
 
 ;;;###autoload
 (defcustom swift-mode:xcodebuild-executable
-  "xcrun xcodebuild"
+  (concat (when (executable-find "xcrun") "xcrun ") "xcodebuild")
   "Path to the Xcode builder.
 The string is split by spaces, then unquoted."
   :type '(choice string (list string))