branch: master
commit 59ef4695030bb43a43611183239605f7e2eb48f4
Author: Artur Malabarba <bruce.connor...@gmail.com>
Commit: Artur Malabarba <bruce.connor...@gmail.com>
Implement spinner-start-print
---
spinner.el | 6 ++++++
1 files changed, 6 insertions(+), 0 deletions(-)
diff --git a/spinner.el b/spinner.el
index 34427b2..05f6707 100644
--- a/spinner.el
+++ b/spinner.el
@@ -280,6 +280,12 @@ Default is `spinner-frames-per-second'."
(when fps (setf (spinner--fps type-or-object) fps))
(spinner--start-timer type-or-object))
+(defun spinner-start-print (spinner)
+ "Like `spinner-print', but also start SPINNER if it's not active."
+ (unless (spinner--active-p spinner)
+ (spinner-start spinner))
+ (spinner-print spinner))
+
(defun spinner-stop (&optional spinner)
"Stop the current buffer's spinner."
(let* ((spinner (or spinner spinner-current))
