[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ssh-deploy 103588b 050/133: Running custom script async
From: |
Stefan Monnier |
Subject: |
[elpa] externals/ssh-deploy 103588b 050/133: Running custom script asynchronously loads ssh-deploy library |
Date: |
Sat, 27 Mar 2021 14:48:42 -0400 (EDT) |
branch: externals/ssh-deploy
commit 103588b432e80df92b10b48b2e14a1e8ed6d2a98
Author: Christian Johansson <christian@cvj.se>
Commit: Christian Johansson <christian@cvj.se>
Running custom script asynchronously loads ssh-deploy library
---
ssh-deploy.el | 34 ++++++++++++++++++++--------------
1 file changed, 20 insertions(+), 14 deletions(-)
diff --git a/ssh-deploy.el b/ssh-deploy.el
index ad16c23..e3b4332 100644
--- a/ssh-deploy.el
+++ b/ssh-deploy.el
@@ -290,10 +290,14 @@
async-with-threads
(> async-with-threads 0))
(make-thread (lambda()
- (if start
- (let ((result (funcall start)))
- (if finish
- (funcall finish result))))))
+ (let ((ssh-deploy-async 0)
+ (ssh-deploy-async-with-threads 0)
+ (ssh-deploy-on-explicit-save 0)
+ (ssh-deploy-automatically-detect-remote-changes 0))
+ (if start
+ (let ((result (funcall start)))
+ (if finish
+ (funcall finish result)))))))
(if (fboundp 'async-start)
(if start
(let ((ftp-netrc nil))
@@ -301,9 +305,13 @@
(setq ftp-netrc ange-ftp-netrc-filename))
(async-start
(lambda()
- (if ftp-netrc
- (defvar ange-ftp-netrc-filename ftp-netrc))
- (funcall start))
+ (let ((ssh-deploy-async 0)
+ (ssh-deploy-async-with-threads 0)
+ (ssh-deploy-on-explicit-save 0)
+ (ssh-deploy-automatically-detect-remote-changes 0))
+ (if ftp-netrc
+ (defvar ange-ftp-netrc-filename ftp-netrc))
+ (funcall start)))
finish)))
(display-warning 'ssh-deploy "Neither make-thread nor async-start
functions are available!"))))
@@ -354,14 +362,10 @@
((and ssh-deploy-root-local ssh-deploy-root-remote)
(setq status-text "idle"))
- (t (setq status-text ""))
-
- )
+ (t (setq status-text "")))
(make-local-variable 'ssh-deploy--mode-line-status-text)
- (setq ssh-deploy--mode-line-status-text
(ssh-deploy--mode-line-status-text-format status-text))
- ;; (message "SSH Deploy - Updated status text to: '%s' from: %d"
ssh-deploy--mode-line-status-text status)
- ))
+ (setq ssh-deploy--mode-line-status-text
(ssh-deploy--mode-line-status-text-format status-text))))
(defun ssh-deploy--mode-line-status-text-format (text)
"Return a formatted string based on TEXT."
@@ -1295,11 +1299,13 @@
(interactive)
(if ssh-deploy-script
(if (> ssh-deploy-async 0)
- (progn
+ (let ((script-filename (file-name-directory (symbol-file
'ssh-deploy-diff-directories))))
(message "Executing of deployment-script starting...
(asynchronously)")
(ssh-deploy--async-process
`(lambda() (let ((ssh-deploy-root-local ,ssh-deploy-root-local)
(ssh-deploy-root-remote ,ssh-deploy-root-remote))
+ (add-to-list 'load-path ,script-filename)
+ (require 'ssh-deploy)
(funcall ,ssh-deploy-script)))
(lambda(result) (message "Completed execution of
deployment-script. Return: '%s' (asynchronously)" result))
ssh-deploy-async-with-threads))
- [elpa] externals/ssh-deploy 2048399 021/133: Passing async-with-threads to directory diff, (continued)
- [elpa] externals/ssh-deploy 2048399 021/133: Passing async-with-threads to directory diff, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 54ec0d2 023/133: Updated mode-line logic for deletions, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy fbc6e85 025/133: Created predefined hydra, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 947a3c7 024/133: Improved usability with pre-defined hooks, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 20ce7f2 026/133: Created a pred-fined prefix map and hydra map, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy a12e59f 027/133: Updated comments, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy c1f8837 029/133: Updated documentation with pre-defined hydra and pre-fix map, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy d548011 036/133: Fixed bug with constant definition, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy d853e2f 040/133: Fixed issue with passing local variables to diff-mode, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 98c00bb 042/133: Fixed bug with synchronous forced uploads, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 103588b 050/133: Running custom script asynchronously loads ssh-deploy library,
Stefan Monnier <=
- [elpa] externals/ssh-deploy 2b3a531 012/133: Updated date, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy d7a42fe 015/133: Replaced (concat) with (expand-file-name), Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 80cd448 011/133: Merge branch 'master' of https://github.com/cjohansson/emacs-ssh-deploy, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 861f1c7 013/133: Updated documentation, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 2e3cf30 016/133: Fixed issue with directory differences, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy d5386ab 018/133: Renamed internal argument with-threads to async-with-threads, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy cb4c6ff 020/133: Using (expand-file-name) instead of (concat), Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy e0bd19c 022/133: Removed obsolete arguments from directory-diff operations, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 102943f 028/133: Added pre-defined prefix key map, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy afbcc70 030/133: mode-line now shows whether current file is under deployment, Stefan Monnier, 2021/03/27