branch: elpa/helm
commit ce624dea54db5651bdb58c2f1469e1a891df1d23
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Show progress when cloning packages
---
helm-packages.el | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/helm-packages.el b/helm-packages.el
index 0fc6c3b709..5d881dfadf 100644
--- a/helm-packages.el
+++ b/helm-packages.el
@@ -323,6 +323,7 @@ PROVIDER can be one of \"melpa\", \"gnu\" or \"nongnu\"."
'(display-buffer-below-selected
(window-height . fit-window-to-buffer)
(preserve-size . (nil . t)))))
+ (set-process-filter proc #'helm-packages--clone-filter-process)
(set-process-sentinel
proc (lambda (proc event)
(let ((status (process-exit-status proc)))
@@ -336,6 +337,11 @@ PROVIDER can be one of \"melpa\", \"gnu\" or \"nongnu\"."
(symbol-name package) directory)))))
(message "Cloning package %s..." package)))))
+(defun helm-packages--clone-filter-process (proc string)
+ (when (buffer-live-p (process-buffer proc))
+ (with-current-buffer (process-buffer proc)
+ (erase-buffer)
+ (insert (car (split-string string "
"))))))
;;; Transformers
;;
