[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ssh-deploy d40d817 027/173: Now displaying asynchrous p
From: |
Stefan Monnier |
Subject: |
[elpa] externals/ssh-deploy d40d817 027/173: Now displaying asynchrous process output. |
Date: |
Sat, 20 Oct 2018 10:36:24 -0400 (EDT) |
branch: externals/ssh-deploy
commit d40d8176b8740462ed705ac2262d7ef2db643d1e
Author: Christian Johansson <address@hidden>
Commit: Christian Johansson <address@hidden>
Now displaying asynchrous process output.
---
ssh-deploy.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/ssh-deploy.el b/ssh-deploy.el
index 44a181f..56ba163 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: 9 Aug 2016
-;; Version: 1.3
+;; Modified: 12 Aug 2016
+;; Version: 1.35
;; Keywords: tools, convenience
;; URL: https://github.com/cjohansson/emacs-ssh-deploy
@@ -148,6 +148,7 @@
(let ((command (concat "scp " (shell-quote-argument
path) " " (shell-quote-argument remote-path))))
(message "Upload command: '%s'" command)
(let ((proc (start-process-shell-command "process"
nil command)))
+ (set-process-filter proc (lambda (proc
output)(message "%s" (replace-regexp-in-string "\^M" "\n" output))))
(set-process-sentinel proc (lambda (proc output)
(if (string=
(symbol-name (process-status proc)) "exit")
(if (=
(process-exit-status proc) 0)
@@ -157,6 +158,7 @@
(let ((command (concat "scp -r " (shell-quote-argument
path) " " (shell-quote-argument (file-name-directory (directory-file-name
remote-path))))))
(message "Upload command: '%s'" command)
(let ((proc (start-process-shell-command "process" nil
command)))
+ (set-process-filter proc (lambda (proc
output)(message "%s" (replace-regexp-in-string "\^M" "\n" output))))
(set-process-sentinel proc (lambda (proc output)
(if (string= (symbol-name
(process-status proc)) "exit")
(if (=
(process-exit-status proc) 0)
@@ -170,6 +172,7 @@
(let ((command (concat "scp " (shell-quote-argument
remote-path) " " (shell-quote-argument path))))
(message "Download command: '%s'" command)
(let ((proc (start-process-shell-command "process" nil
command)))
+ (set-process-filter proc (lambda (proc
output)(message "%s" (replace-regexp-in-string "\^M" "\n" output))))
(set-process-sentinel proc (lambda (proc output)
(if (string= (symbol-name
(process-status proc)) "exit")
(if (=
(process-exit-status proc) 0)
@@ -182,6 +185,7 @@
(let ((command (concat "scp -r " (shell-quote-argument
remote-path) " " (shell-quote-argument (file-name-directory
(directory-file-name path))))))
(message "Download command: '%s'" command)
(let ((proc (start-process-shell-command "process" nil
command)))
+ (set-process-filter proc (lambda (proc output)(message
"%s" (replace-regexp-in-string "\^M" "\n" output))))
(set-process-sentinel proc (lambda (proc output)
(if (string= (symbol-name
(process-status proc)) "exit")
(if (=
(process-exit-status proc) 0)
- [elpa] externals/ssh-deploy 1af0208 045/173: Cleaned up code structure and isolated functions, (continued)
- [elpa] externals/ssh-deploy 1af0208 045/173: Cleaned up code structure and isolated functions, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy 740c27d 054/173: Fixed message when no base revision exists and remote file equals local file, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy ac7aff8 052/173: Asynchronous detection of remote changes doesn't use any synchronous action, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy d4953c7 049/173: Fixed upload/download of root directory with different names, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy 2d2c380 033/173: Implemented FTP via cURL but haven't tested it yet., Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy f36ffce 059/173: Added MELPA Stable link, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy 29cf0b2 061/173: Added force handler in documentation, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy 3ea14de 062/173: Improved README for forced uploads, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy a1ea2c2 025/173: Improved description of complex connections, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy 828aca3 022/173: Local path and local root is now evaluated based on their truenames., Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy d40d817 027/173: Now displaying asynchrous process output.,
Stefan Monnier <=
- [elpa] externals/ssh-deploy be5451c 019/173: Updated to comments and README, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy 78d0641 031/173: Updated version and modification date., Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy e94c9e7 035/173: Updated title of README.md, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy 959aa79 036/173: Fixed a log message., Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy f0eb826 030/173: Fixed a bug in protocol definition and started with support for multiple protocols., Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy 4e70a41 041/173: Now uses TRAMP via async.el for SSH transfers, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy 8253251 044/173: Improved README a bit, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy 94fc9e6 051/173: Updated readme, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy 56da852 066/173: Fixed bug where plug-in reported external changes even though remote, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy a627c90 057/173: Updated readme, spelling and grammar fixes, Stefan Monnier, 2018/10/20