Emacs 標準でも spinner ？！

make-progress-reporter

Emacs ビルトインの関数

エコーエリアに進捗を表示できる

2種類の方法で表示できる

パーセント表示 (Numerical indicator)

スピナー表示 (Pulsing indicator)

パーセント表示する

Elisp マニュアルに載ってるもの

code:lisp

(let ((progress-reporter

(make-progress-reporter "Collecting mana for Emacs..."

0 500)))

(dotimes (k 500)

(sit-for 0.01)

(progress-reporter-update progress-reporter k))

(progress-reporter-done progress-reporter))

スピナー表示する

Elisp マニュアルに載ってるものの改変

code:lisp

(let ((progress-reporter

(make-progress-reporter "Collecting mana for Emacs..."

nil nil)))

(dotimes (k 500)

(sit-for 0.01)

(progress-reporter-update progress-reporter))

(progress-reporter-done progress-reporter))