;; Author: Artur Malabarba <bruce.connor.am@gmail.com>
;; Version: 1.0
+;; Package-Requires: ((cl-lib "0.5"))
+;; URL: https://github.com/Bruce-Connor/spinner.el
;; Keywords: processes mode-line
;; This program is free software; you can redistribute it and/or modify
\f
;;; Code:
+(require 'cl-lib)
(defconst spinner-types
'((3-line-clock . ["┤" "┘" "┴" "└" "├" "┌" "┬" "┐"])
(2-line-clock . ["┘" "└" "┌" "┐"])
+ (flipping-line . ["_" "\\" "|" "/"])
+ (rotating-line . ["-" "\\" "|" "/"])
(progress-bar . ["[ ]" "[= ]" "[== ]" "[=== ]" "[====]" "[ ===]" "[ ==]" "[ =]"])
(progress-bar-filled . ["| |" "|█ |" "|██ |" "|███ |" "|████|" "| ███|" "| ██|" "| █|"])
(vertical-breathing . ["▁" "▂" "▃" "▄" "▅" "▆" "▇" "█" "▇" "▆" "▅" "▄" "▃" "▂" "▁" " "])
;; Maybe add to mode-line.
(unless (memq 'spinner--mode-line-construct mode-line-format)
- (setq mode-line-format (copy-list mode-line-format))
+ (setq mode-line-format (cl-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)))