branch: elpa/helm
commit 21a3a3327ed2fc133a80307105362e30eba4dd90
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Allow customizing the rsync progress bar
by using a customized function to draw the bar.
---
helm-files.el | 40 +++++++++++++++++++++++++++-------------
1 file changed, 27 insertions(+), 13 deletions(-)
diff --git a/helm-files.el b/helm-files.el
index b7b9c04693..e8d8d141a4 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -678,6 +678,17 @@ This Has no effect when `helm-ff-rsync-progress-bar-style'
is text."
(const :tag "Show the current speed of transfer" speed)
(const :tag "Show the time remaining" remain)))
+(defcustom helm-rsync-progress-bar-function #'helm-rsync-default-progress-bar
+ "Function used to draw a rsync progress bar in mode-line.
+Function is called with three args: PROCESS, PERCENT, INFO.
+PROCESS is the rsync process in use, it's name is displayed before the progress
+bar, it is useful to display it to distinguish the different processes running
+e.g. rsync1 rsync2 etc...
+PERCENT is the current percentage of data sent to the progress bar.
+INFO is what is displayed after the progress bar according to
+`helm-ff-rsync-progress-bar-info'."
+ :type 'function)
+
(defcustom helm-trash-default-directory nil
"The default trash directory.
You probably don't need to set this when using a Linux system using
@@ -1348,21 +1359,24 @@ ACTION can be `rsync' or any action supported by
`helm-dired-action'."
(setq percent (string-to-number
(match-string 1 progbar))))
(if percent
- (format "%s%s%s%s"
- (propertize (capitalize (replace-regexp-in-string
- "<\\([0-9]+\\)>" "(\\1)"
- (process-name proc)))
- 'display '(height 0.9)
- 'face 'helm-ff-rsync-progress-1)
- (propertize " " 'display `(space :width ,(list percent))
- 'face 'helm-ff-rsync-progress-2)
- (propertize " " 'display `(space :width ,(list (- 100
percent)))
- 'face 'helm-ff-rsync-progress-3)
- (propertize info
- 'display '(height 0.9)
- 'face 'helm-ff-rsync-progress-1))
+ (funcall helm-rsync-progress-bar-function proc percent info)
""))))
+(defun helm-rsync-default-progress-bar (proc percent info)
+ (format "%s%s%s%s"
+ (propertize (capitalize (replace-regexp-in-string
+ "<\\([0-9]+\\)>" "(\\1)"
+ (process-name proc)))
+ 'display '(height 0.9)
+ 'face 'helm-ff-rsync-progress-1)
+ (propertize " " 'display `(space :width ,(list percent))
+ 'face 'helm-ff-rsync-progress-2)
+ (propertize " " 'display `(space :width ,(list (- 100 percent)))
+ 'face 'helm-ff-rsync-progress-3)
+ (propertize info
+ 'display '(height 0.9)
+ 'face 'helm-ff-rsync-progress-1)))
+
(defun helm-rsync-mode-line (proc)
"Add Rsync progress to the mode line."
(or global-mode-string (setq global-mode-string '("")))
