[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ssh-deploy d0be946 124/173: Improved the salience of co
From: |
Stefan Monnier |
Subject: |
[elpa] externals/ssh-deploy d0be946 124/173: Improved the salience of completion messages |
Date: |
Sat, 20 Oct 2018 10:36:43 -0400 (EDT) |
branch: externals/ssh-deploy
commit d0be94676f44078fd29668c6e1a790cc0cc02f88
Author: Christian Johansson <address@hidden>
Commit: Christian Johansson <address@hidden>
Improved the salience of completion messages
---
ssh-deploy.el | 22 +++++++++++-----------
1 file changed, 11 insertions(+), 11 deletions(-)
diff --git a/ssh-deploy.el b/ssh-deploy.el
index ca5ce23..b7b4a54 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: 24 Mar 2018
-;; Version: 1.83
+;; Modified: 12 Apr 2018
+;; Version: 1.84
;; Keywords: tools, convenience
;; URL: https://github.com/cjohansson/emacs-ssh-deploy
@@ -315,7 +315,7 @@
(make-directory (file-name-directory
,path-remote) t))
(copy-file ,path-local ,path-remote t t t t)
(copy-file ,path-local ,revision-path t t t t)
- (list 0 (format "Upload of file '%s' completed.
(asynchronously)" ,path-remote)))
+ (list 0 (format "Completed upload of file '%s'.
(asynchronously)" ,path-remote)))
(list 1 (format "Remote file '%s' has changed, please
download or diff. (asynchronously)" ,path-remote)))
(list 1 "Function 'ediff-same-file-contents' is missing.
(asynchronously)")))
(lambda(return)
@@ -329,7 +329,7 @@
(copy-directory ,path-local ,path-remote t t t)
,path-local)
(lambda(return-path)
- (message "Upload of directory '%s' finished. (asynchronously)"
return-path))))))
+ (message "Completed upload of directory '%s'. (asynchronously)"
return-path))))))
(message "async.el is not installed")))
(defun ssh-deploy--upload-via-tramp (path-local path-remote force
revision-folder)
@@ -349,13 +349,13 @@
(make-directory (file-name-directory path-remote) t))
(copy-file path-local path-remote t t t t)
(ssh-deploy-store-revision path-local revision-folder)
- (message "Upload '%s' completed. (synchronously)"
path-local))
+ (message "Completed upload of '%s'. (synchronously)"
path-local))
(display-warning "ssh-deploy" (format "Remote file '%s' has
changed, please download or diff. (synchronously)" path-remote) :warning))
(display-warning "ssh-deploy" "Function 'ediff-same-file-contents'
is missing." :warning)))
(progn
(message "Uploading directory '%s' to '%s'.. (synchronously)"
path-local path-remote)
(copy-directory path-local path-remote t t t)
- (message "Upload '%s' finished. (synchronously)" path-local)))))
+ (message "Completed upload of '%s'. (synchronously)" path-local)))))
(defun ssh-deploy--download-via-tramp-async (path-remote path-local
revision-folder)
"Download PATH-REMOTE to PATH-LOCAL via TRAMP asynchronously and make a copy
in REVISION-FOLDER."
@@ -374,7 +374,7 @@
(copy-directory ,path-remote ,path-local t t t))
,path-local))
(lambda(return-path)
- (message "Download of '%s' finished. (asynchronously)"
return-path))))
+ (message "Completed download of '%s'. (asynchronously)"
return-path))))
(display-warning "ssh-deploy" "async.el is not installed" :warning)))
(defun ssh-deploy--download-via-tramp (path-remote path-local revision-folder)
@@ -387,11 +387,11 @@
(make-directory (file-name-directory path-local) t))
(copy-file path-remote path-local t t t t)
(ssh-deploy-store-revision path-local revision-folder)
- (message "Download of file '%s' finished. (synchronously)"
path-local))
+ (message "Completed download of file '%s'. (synchronously)"
path-local))
(progn
(message "Downloading directory '%s' to '%s'.. (synchronously)"
path-remote path-local)
(copy-directory path-remote path-local t t t)
- (message "Download of directory '%s' finished. (synchronously)"
path-local)))))
+ (message "Completed download of directory '%s'. (synchronously)"
path-local)))))
(defun ssh-deploy--diff-directories-data (directory-a directory-b exclude-list)
"Find difference between DIRECTORY-A and DIRECTORY-B but exclude paths
matching EXCLUDE-LIST."
@@ -599,13 +599,13 @@
(require 'ssh-deploy)
(ssh-deploy--diff-directories-data ,directory-a ,directory-b (list
,@exclude-list)))
(lambda(diff)
- (message "Differences calculated between directory '%s' and '%s' ->
%s only in A, %s only in B, %s differs. (asynchronously)" (nth 0 diff) (nth 1
diff) (length (nth 4 diff)) (length (nth 5 diff)) (length (nth 7 diff)))
+ (message "Completed calculated differences between directory '%s'
and '%s'. Result: %s only in A, %s only in B, %s differs. (asynchronously)"
(nth 0 diff) (nth 1 diff) (length (nth 4 diff)) (length (nth 5 diff)) (length
(nth 7 diff)))
(if (or (> (length (nth 4 diff)) 0) (> (length (nth 5 diff)) 0) (>
(length (nth 7 diff)) 0))
(ssh-deploy--diff-directories-present diff)))))
(progn
(message "Generating differences between directory '%s' and '%s'..
(synchronously)" directory-a directory-b)
(let ((diff (ssh-deploy--diff-directories-data directory-a directory-b
exclude-list)))
- (message "Differences calculated between directory '%s' and '%s' -> %s
only in A, %s only in B, %s differs. (synchronously)" (nth 0 diff) (nth 1 diff)
(length (nth 4 diff)) (length (nth 5 diff)) (length (nth 7 diff)))
+ (message "Completed calculated differences between directory '%s' and
'%s'. Result: %s only in A, %s only in B, %s differs. (synchronously)" (nth 0
diff) (nth 1 diff) (length (nth 4 diff)) (length (nth 5 diff)) (length (nth 7
diff)))
(if (or (> (length (nth 4 diff)) 0) (> (length (nth 5 diff)) 0) (>
(length (nth 7 diff)) 0))
(ssh-deploy--diff-directories-present diff))))))
- [elpa] externals/ssh-deploy af7f33c 082/173: Launch eshell and dired in base or current directory, (continued)
- [elpa] externals/ssh-deploy af7f33c 082/173: Launch eshell and dired in base or current directory, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy ee808ac 098/173: Fixed whitespace in readme, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy ab4b80e 096/173: Detection for remote changes doesn't apply to directories, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy c65d282 087/173: Removed tramp-term functionality, supports native TRAMP strings, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy b483b3e 117/173: Improved handling of changing directory using let, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy b62abf2 073/173: Improved code structure and improved documentation, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy 810106a 093/173: Added feature to diff directories and fixed a bug, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy d1d68b9 128/173: Started with new menu in menu-bar, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy 6134cd3 122/173: Added instructors for using remote shell terminal, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy c84f56c 131/173: Added Open command to menu as well, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy d0be946 124/173: Improved the salience of completion messages,
Stefan Monnier <=
- [elpa] externals/ssh-deploy 53081a3 148/173: After downloading asynchronously associated buffer is reverted, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy fd7abe9 143/173: Mode-line status update for asynchronously deleted file working, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy e64a454 149/173: Starting ssh-deploy-mode-line on init, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy 519939d 153/173: Fixes for mode-line status as stack, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy 16a22f4 157/173: More (when (not to (unless conversions, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy d9bc257 159/173: Updated version, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy 5705104 155/173: Fixed issue were status list initialization was not working, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy a1dbc2f 156/173: Using unless instead of (when (not, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy 8900586 163/173: Started working on support for deploy script, Stefan Monnier, 2018/10/20
- [elpa] externals/ssh-deploy e24f69d 127/173: Fixes 'display-warning throws 'wrong-type-argument error #39, Stefan Monnier, 2018/10/20