1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
|
;;; spinner.el --- Add spinners and progress-bars to the mode-line for ongoing operations -*- lexical-binding: t; -*-
;; Copyright (C) 2015 Artur Malabarba
;; Author: Artur Malabarba <bruce.connor.am@gmail.com>
;; Version: 1.0
;; Keywords: processes mode-line
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; 1 Usage
;; ═══════
;;
;; 1. Add `(spinner "1.0")' to your package’s dependencies.
;;
;; 2. Call `(spinner-start)' and a spinner will be added to the
;; mode-line.
;;
;; 3. Call `(spinner-stop)' on the same buffer when you want to remove
;; it.
;;
;;
;; 2 Behavior
;; ══════════
;;
;; The default spinner is a line drawing that rotates. You can pass an
;; argument to `spinner-start' to specify which spinner you want. All
;; possibilities are listed in the `spinner-types' variable, but here are
;; a few examples for you to try:
;;
;; • `(spinner-start 'vertical-breathing 10)'
;; • `(spinner-start 'minibox)'
;; • `(spinner-start 'moon)'
;; • `(spinner-start 'triangle)'
;;; Code:
(defconst spinner-types
'((3-line-clock . ["┤" "┘" "┴" "└" "├" "┌" "┬" "┐"])
(2-line-clock . ["┘" "└" "┌" "┐"])
(flipping-line . ["_" "\\" "|" "/"])
(rotating-line . ["-" "\\" "|" "/"])
(progress-bar . ["[ ]" "[= ]" "[== ]" "[=== ]" "[====]" "[ ===]" "[ ==]" "[ =]"])
(progress-bar-filled . ["| |" "|█ |" "|██ |" "|███ |" "|████|" "| ███|" "| ██|" "| █|"])
(vertical-breathing . ["▁" "▂" "▃" "▄" "▅" "▆" "▇" "█" "▇" "▆" "▅" "▄" "▃" "▂" "▁" " "])
(vertical-rising . ["▁" "▄" "█" "▀" "▔"])
(horizontal-breathing . [" " "▏" "▎" "▍" "▌" "▋" "▊" "▉" "▉" "▊" "▋" "▌" "▍" "▎" "▏"])
(horizontal-breathing-long
. [" " "▎ " "▌ " "▊ " "█ " "█▎" "█▌" "█▊" "██" "█▊" "█▌" "█▎" "█ " "▊ " "▋ " "▌ " "▍ " "▎ " "▏ "])
(horizontal-moving . [" " "▌ " "█ " "▐▌" " █" " ▐"])
(minibox . ["▖" "▘" "▝" "▗"])
(triangle . ["◢" "◣" "◤" "◥"])
(box-in-box . ["◰" "◳" "◲" "◱"])
(box-in-circle . ["◴" "◷" "◶" "◵"])
(half-circle . ["◐" "◓" "◑" "◒"])
(moon . ["🌑" "🌘" "🌖" "🌕" "🌔" "🌒"]))
"Predefined alist of spinners.
Each car is a symbol identifying the spinner, and each cdr is a
vector, the spinner itself.")
(defvar spinner-current nil
"Spinner curently being displayed on the mode-line.")
(make-variable-buffer-local 'spinner-current)
(defvar spinner--counter 0
"Current frame of the spinner.")
(make-variable-buffer-local 'spinner--counter)
(defconst spinner--mode-line-construct
'((spinner-current
(" "
(:eval (elt spinner-current
(% spinner--counter
(length spinner-current)))))
(spinner--timer
(:eval (spinner-stop)))))
"Construct used to display the spinner.")
(put 'spinner--mode-line-construct 'risky-local-variable t)
(defvar spinner--timer nil
"Holds the timer being used on the current buffer.")
(make-variable-buffer-local 'spinner--timer)
(defvar spinner-frames-per-second 5
"Default speed at which spinners spin, in frames per second.
Applications can override this value.")
;;; The main function
;;;###autoload
(defun spinner-start (&optional type fps)
"Start a mode-line spinner of given TYPE.
Spinners are buffer local. It is added to the mode-line in the
buffer where `spinner-start' is called.
Return value is a function which can be called anywhere to stop
this spinner. You can also call `spinner-stop' in the same
buffer where the spinner was created.
FPS, if given, is the number of desired frames per second.
Default is `spinner-frames-per-second'.
If TYPE is nil, use the first element of `spinner-types'.
If TYPE is `random', use a random element of `spinner-types'.
If it is a symbol, it specifies an element of `spinner-types'.
If it is a vector, it used as the spinner.
If it is a list, it should be a list of symbols, and a random one
is chosen as the spinner type."
;; Choose type.
(setq spinner-current
(cond
((vectorp type) type)
((not type) (cdr (car spinner-types)))
((eq type 'random)
(cdr (elt spinner-types
(random (length spinner-types)))))
((listp type)
(cdr (assq (elt type (random (length type)))
spinner-types)))
((symbolp type) (cdr (assq type spinner-types)))
(t (error "Unknown spinner type: %s" type))))
(setq spinner--counter 0)
;; Maybe add to mode-line.
(unless (memq 'spinner--mode-line-construct mode-line-format)
(setq mode-line-format (copy-list mode-line-format))
(let ((cell (memq 'mode-line-buffer-identification mode-line-format)))
(if cell
(setcdr cell (cons 'spinner--mode-line-construct (cdr cell)))
(setcdr (last mode-line-format) '(spinner--mode-line-construct)))))
;; Create timer.
(when (timerp spinner--timer)
(cancel-timer spinner--timer))
(let ((buffer (current-buffer))
;; Create the timer as a lex variable so it can cancel itself.
(timer (run-at-time t
(/ 1.0 (or fps spinner-frames-per-second))
#'ignore)))
(timer-set-function
timer (lambda ()
(if (buffer-live-p buffer)
(with-current-buffer buffer
(setq spinner--counter (1+ spinner--counter))
(force-mode-line-update))
(ignore-errors (cancel-timer timer)))))
(setq spinner--timer timer)
;; Return a stopping function.
(lambda () (when (buffer-live-p buffer)
(with-current-buffer buffer
(spinner-stop))))))
(defun spinner-stop ()
"Stop the current buffer's spinner."
(when (timerp spinner--timer)
(cancel-timer spinner--timer))
(setq spinner--timer nil
spinner-current nil)
(setq mode-line-format
(remove 'spinner--mode-line-construct mode-line-format)))
(provide 'spinner)
;;; spinner.el ends here
|
