[elpa] externals/ssh-deploy e869836 171/173: Added support for asynchronous deployment scripts

[Stefan Monnier]

branch: externals/ssh-deploy
commit e8698366c4675bb6ac79b88e9382f456914c5069
Author: Christian Johansson <address@hidden>
Commit: Christian Johansson <address@hidden>

    Added support for asynchronous deployment scripts
---
 ssh-deploy.el | 29 ++++++++++++++++++++++-------
 1 file changed, 22 insertions(+), 7 deletions(-)

diff --git a/ssh-deploy.el b/ssh-deploy.el
index d9bbe44..a6c365a 100644
--- a/ssh-deploy.el
+++ b/ssh-deploy.el
@@ -3,8 +3,8 @@
 ;; Author: Christian Johansson <github.com/cjohansson>
 ;; Maintainer: Christian Johansson <github.com/cjohansson>
 ;; Created: 5 Jul 2016
-;; Modified: 11 Aug 2018
-;; Version: 1.96
+;; Modified: 19 Aug 2018
+;; Version: 1.97
 ;; Keywords: tools, convenience
 ;; URL: https://github.com/cjohansson/emacs-ssh-deploy
 
@@ -36,7 +36,7 @@
 ;; detection of remote changes, remote directory browsing, remote SQL database 
sessions and
 ;; running custom deployment scripts via TRAMP.
 ;;
-;; For asynchrous operations it uses package async.el.
+;; For asynchronous operations it uses package `async.el'.
 ;;
 ;; By setting the variables (globally, per directory or per file):
 ;; ssh-deploy-root-local,ssh-deploy-root-remote, ssh-deploy-on-explicit-save
@@ -209,7 +209,7 @@
 (put 'ssh-deploy-verbose 'safe-local-variable 'booleanp)
 
 (defcustom ssh-deploy-async t
-  "Boolean variable if asynchrous method for transfers should be used, t by 
default."
+  "Boolean variable if asynchronous method for transfers should be used, t by 
default."
   :type 'boolean
   :group 'ssh-deploy)
 (put 'ssh-deploy-async 'permanent-local t)
@@ -283,7 +283,7 @@
   :type 'lambda
   :group 'ssh-deploy)
 (put 'ssh-deploy-script 'permanent-local t)
-(put 'ssh-deploy-script 'safe-local-variable 'funcp)
+(put 'ssh-deploy-script 'safe-local-variable 'functionp)
 
 (defconst ssh-deploy--status-idle 0
   "The idle mode-line status.")
@@ -1323,8 +1323,23 @@
 (defun ssh-deploy-run-deploy-script-handler ()
   "Run `ssh-deploy-script' with `funcall'."
   (interactive)
-  (if (boundp 'ssh-deploy-script)
-      (funcall ssh-deploy-script)
+  (if (and (boundp 'ssh-deploy-script)
+           ssh-deploy-script)
+      (if ssh-deploy-async
+          (if (fboundp 'async-start)
+              (progn
+                (message "Executing of deployment-script starting... 
(asynchronously)")
+                (async-start
+                 `(lambda()
+                    (let ((ssh-deploy-root-local ,ssh-deploy-root-local)
+                          (ssh-deploy-root-remote ,ssh-deploy-root-remote))
+                      (funcall ,ssh-deploy-script)))
+                 (lambda(result) (message "Completed execution of 
deployment-script. '%s'(asynchronously)" result))))
+            (display-warning 'ssh-deploy "async.el is not installed" :warning))
+        (progn
+          (message "Executing of deployment-script starting... 
(synchronously)")
+          (funcall ssh-deploy-script)
+          (message "Completed execution of deployment-script. 
(synchronously)")))
     (display-warning 'ssh-deploy (format "ssh-deploy-script lacks definition!" 
type) :warning)))