[elpa] master c651ba8 3/9: Allow floating-point delays
branch: master commit c651ba8711b23725052bfc6b572cbf4e83449893 Author: Artur Malabarba Commit: Artur Malabarba Allow floating-point delays --- spinner.el |4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/spinner.el b/spinner.el index df59e10..0a0dd50 100644 --- a/spinner.el +++ b/spinner.el @@ -255,8 +255,8 @@ stop the SPINNER's timer." (unless (ignore-errors (> (spinner--fps spinner) 0)) (error "A spinner's FPS must be a positive number")) -(setf (spinner--counter spinner) (- (* (or (spinner--delay spinner) 0) -(spinner--fps spinner +(setf (spinner--counter spinner) (round (- (* (or (spinner--delay spinner) 0) + (spinner--fps spinner) ;; Create timer. (let* ((repeat (/ 1.0 (spinner--fps spinner))) (time (timer-next-integral-multiple-of-time (current-time) repeat))
[elpa] master 117b823 2/9: Offer a spinner-make-progress-bar function
branch: master commit 117b8238bd9175f2af88347b1a516b38c9d4adce Author: Artur Malabarba Commit: Artur Malabarba Offer a spinner-make-progress-bar function --- spinner.el | 14 +- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/spinner.el b/spinner.el index ec0a64f..df59e10 100644 --- a/spinner.el +++ b/spinner.el @@ -3,7 +3,7 @@ ;; Copyright (C) 2015 Free Software Foundation, Inc. ;; Author: Artur Malabarba -;; Version: 1.5 +;; Version: 1.6 ;; URL: https://github.com/Malabarba/spinner.el ;; Keywords: processes mode-line @@ -123,6 +123,18 @@ Each car is a symbol identifying the spinner, and each cdr is a vector, the spinner itself.") +(defun spinner-make-progress-bar (width &optional char) + "Return a vector of strings of the given WIDTH. +The vector is a valid spinner type and is similar to the +`progress-bar' spinner, except without the sorrounding brackets. +CHAR is the character to use for the moving bar (defaults to =)." + (let ((whole-string (concat (make-string (1- width) ?\s) + (make-string 4 (or char ?=)) + (make-string width ?\s +(thread-last (mapcar (lambda (n) (substring whole-string n (+ n width))) + (number-sequence (+ width 3) 0 -1)) + (apply #'vector + (defvar spinner-current nil "Spinner curently being displayed on the `mode-line-process'.") (make-variable-buffer-local 'spinner-current)
[elpa] master 0637791 8/9: Version 1.7.3
branch: master commit 0637791f005f747532b4439439a81c3415961377 Author: Artur Malabarba Commit: Artur Malabarba Version 1.7.3 --- spinner.el |2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/spinner.el b/spinner.el index 7f38eea..b227eba 100644 --- a/spinner.el +++ b/spinner.el @@ -3,7 +3,7 @@ ;; Copyright (C) 2015 Free Software Foundation, Inc. ;; Author: Artur Malabarba -;; Version: 1.7.2 +;; Version: 1.7.3 ;; URL: https://github.com/Malabarba/spinner.el ;; Keywords: processes mode-line
[elpa] master 4e04a98 4/9: Make spinner-stop never signal
branch: master commit 4e04a983b86ee698ff417eae4646756daef434ba Author: Artur Malabarba Commit: Artur Malabarba Make spinner-stop never signal --- spinner.el | 19 +++ 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/spinner.el b/spinner.el index 0a0dd50..63ead1e 100644 --- a/spinner.el +++ b/spinner.el @@ -3,7 +3,7 @@ ;; Copyright (C) 2015 Free Software Foundation, Inc. ;; Author: Artur Malabarba -;; Version: 1.6 +;; Version: 1.7 ;; URL: https://github.com/Malabarba/spinner.el ;; Keywords: processes mode-line @@ -319,13 +319,16 @@ this time, in which case it won't display at all." (spinner-print spinner)) (defun spinner-stop (&optional spinner) - "Stop the current buffer's spinner." - (let* ((spinner (or spinner spinner-current)) - (timer (spinner--timer spinner))) -(when (timerp timer) - (cancel-timer timer)) -(setf (spinner--active-p spinner) nil) -(force-mode-line-update))) + "Stop SPINNER, defaulting to the current buffer's spinner. +It is always safe to call this function, even if there is no +active spinner." + (let ((spinner (or spinner spinner-current))) +(when (spinner-p spinner) + (let ((timer (spinner--timer spinner))) +(when (timerp timer) + (cancel-timer timer))) + (setf (spinner--active-p spinner) nil) + (force-mode-line-update (provide 'spinner)
[elpa] master a62dc35 5/9: Remove reference to thread-last
branch: master commit a62dc3559148c7045aad5077a4a861ff26f93dfb Author: Artur Malabarba Commit: Artur Malabarba Remove reference to thread-last --- spinner.el |7 +++ 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/spinner.el b/spinner.el index 63ead1e..a021848 100644 --- a/spinner.el +++ b/spinner.el @@ -3,7 +3,7 @@ ;; Copyright (C) 2015 Free Software Foundation, Inc. ;; Author: Artur Malabarba -;; Version: 1.7 +;; Version: 1.7.1 ;; URL: https://github.com/Malabarba/spinner.el ;; Keywords: processes mode-line @@ -131,9 +131,8 @@ CHAR is the character to use for the moving bar (defaults to =)." (let ((whole-string (concat (make-string (1- width) ?\s) (make-string 4 (or char ?=)) (make-string width ?\s -(thread-last (mapcar (lambda (n) (substring whole-string n (+ n width))) - (number-sequence (+ width 3) 0 -1)) - (apply #'vector +(apply #'vector (mapcar (lambda (n) (substring whole-string n (+ n width))) +(number-sequence (+ width 3) 0 -1) (defvar spinner-current nil "Spinner curently being displayed on the `mode-line-process'.")
[elpa] master 1098790 9/9: Merge commit '0637791f005f747532b4439439a81c3415961377'
branch: master commit 10987906e1580e49e0e8aa5c2ec88eb91890179d Merge: 2d6022a 0637791 Author: Artur Malabarba Commit: Artur Malabarba Merge commit '0637791f005f747532b4439439a81c3415961377' --- packages/spinner/spinner.el |4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/packages/spinner/spinner.el b/packages/spinner/spinner.el index 24e9cea..da75a8f 100644 --- a/packages/spinner/spinner.el +++ b/packages/spinner/spinner.el @@ -3,7 +3,7 @@ ;; Copyright (C) 2015 Free Software Foundation, Inc. ;; Author: Artur Malabarba -;; Version: 1.7.1 +;; Version: 1.7.3 ;; URL: https://github.com/Malabarba/spinner.el ;; Keywords: processes mode-line @@ -183,7 +183,7 @@ own spinner animations." (frames (spinner--type-to-frames type)) (counter 0) (fps (or frames-per-second spinner-frames-per-second)) - (timer (timer-create) :read-only) + (timer (timer-create)) (active-p nil) (buffer (when buffer-local (if (bufferp buffer-local)
[elpa] master updated (2d6022a -> 1098790)
malabarba pushed a change to branch master. from 2d6022a Do not use map.el in seq-tests.el new 7c3c029 Update the mode-line after spinner-stop new 117b823 Offer a spinner-make-progress-bar function new c651ba8 Allow floating-point delays new 4e04a98 Make spinner-stop never signal new a62dc35 Remove reference to thread-last new ebb5269 Fix a usage of read-only argument new 607d884 Fix #130 - Remove readonly completely new 0637791 Version 1.7.3 new 1098790 Merge commit '0637791f005f747532b4439439a81c3415961377' Summary of changes: packages/spinner/spinner.el |4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-)
[elpa] master 7c3c029 1/9: Update the mode-line after spinner-stop
branch: master commit 7c3c0299cbdf3146fe60bba5536cdaf544244b01 Author: Artur Malabarba Commit: Artur Malabarba Update the mode-line after spinner-stop --- spinner.el |5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/spinner.el b/spinner.el index 12fafe6..ec0a64f 100644 --- a/spinner.el +++ b/spinner.el @@ -3,7 +3,7 @@ ;; Copyright (C) 2015 Free Software Foundation, Inc. ;; Author: Artur Malabarba -;; Version: 1.4 +;; Version: 1.5 ;; URL: https://github.com/Malabarba/spinner.el ;; Keywords: processes mode-line @@ -312,7 +312,8 @@ this time, in which case it won't display at all." (timer (spinner--timer spinner))) (when (timerp timer) (cancel-timer timer)) -(setf (spinner--active-p spinner) nil))) +(setf (spinner--active-p spinner) nil) +(force-mode-line-update))) (provide 'spinner)
[elpa] master 607d884 7/9: Fix #130 - Remove readonly completely
branch: master commit 607d88453bd7506676cc9f102fcdeda06a64b1cc Author: Artur Malabarba Commit: Artur Malabarba Fix #130 - Remove readonly completely --- spinner.el |2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/spinner.el b/spinner.el index adcdab0..7f38eea 100644 --- a/spinner.el +++ b/spinner.el @@ -183,7 +183,7 @@ own spinner animations." (frames (spinner--type-to-frames type)) (counter 0) (fps (or frames-per-second spinner-frames-per-second)) - (timer (timer-create) :read-only t) + (timer (timer-create)) (active-p nil) (buffer (when buffer-local (if (bufferp buffer-local)
[elpa] master ebb5269 6/9: Fix a usage of read-only argument
branch: master commit ebb5269cff173ae9f3562e1f33f5c4dbf0f97e61 Author: Artur Malabarba Commit: Artur Malabarba Fix a usage of read-only argument --- spinner.el |4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/spinner.el b/spinner.el index a021848..adcdab0 100644 --- a/spinner.el +++ b/spinner.el @@ -3,7 +3,7 @@ ;; Copyright (C) 2015 Free Software Foundation, Inc. ;; Author: Artur Malabarba -;; Version: 1.7.1 +;; Version: 1.7.2 ;; URL: https://github.com/Malabarba/spinner.el ;; Keywords: processes mode-line @@ -183,7 +183,7 @@ own spinner animations." (frames (spinner--type-to-frames type)) (counter 0) (fps (or frames-per-second spinner-frames-per-second)) - (timer (timer-create) :read-only) + (timer (timer-create) :read-only t) (active-p nil) (buffer (when buffer-local (if (bufferp buffer-local)
[elpa] master updated (1098790 -> 35d35e3)
malabarba pushed a change to branch master. from 1098790 Merge commit '0637791f005f747532b4439439a81c3415961377' new 2604297 Don't use error report as format new dcbbfc8 Merge pull request #4 from lunaryorn/patch-1 new c30247e Version 1.0.1 new 35d35e3 Merge commit 'c30247ea4efbddb8efc0c21634b1e78aac4dea6a' Summary of changes: packages/validate/validate.el |4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-)
[elpa] master 35d35e3 4/4: Merge commit 'c30247ea4efbddb8efc0c21634b1e78aac4dea6a'
branch: master commit 35d35e3f954d4b3888a40d52e2832038919c Merge: 1098790 c30247e Author: Artur Malabarba Commit: Artur Malabarba Merge commit 'c30247ea4efbddb8efc0c21634b1e78aac4dea6a' --- packages/validate/validate.el |4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/packages/validate/validate.el b/packages/validate/validate.el index 362d38c..fbb3d06 100644 --- a/packages/validate/validate.el +++ b/packages/validate/validate.el @@ -5,7 +5,7 @@ ;; Author: Artur Malabarba ;; Keywords: lisp ;; Package-Requires: ((emacs "24.1") (cl-lib "0.5")) -;; Version: 1.0.0 +;; Version: 1.0.1 ;;; Commentary: ;; @@ -165,7 +165,7 @@ indicate a failure." (let ((report (validate--check value schema))) (if report (unless noerror - (user-error report)) + (user-error "%s" report)) value))) ;;;###autoload
[elpa] master c30247e 3/4: Version 1.0.1
branch: master commit c30247ea4efbddb8efc0c21634b1e78aac4dea6a Author: Artur Malabarba Commit: Artur Malabarba Version 1.0.1 --- validate.el |2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/validate.el b/validate.el index 398a169..fbb3d06 100644 --- a/validate.el +++ b/validate.el @@ -5,7 +5,7 @@ ;; Author: Artur Malabarba ;; Keywords: lisp ;; Package-Requires: ((emacs "24.1") (cl-lib "0.5")) -;; Version: 1.0.0 +;; Version: 1.0.1 ;;; Commentary: ;;
[elpa] master 2604297 1/4: Don't use error report as format
branch: master commit 26042970870ad38b1023a622e28837a4c7aac574 Author: Sebastian Wiesner Commit: GitHub Don't use error report as format The second argument of "user-error" is a format string; we must not pass an arbitrary string in this place. If a bad value contains a percentage sign, it'll end up in a "format" position through "report", causing a second failure about missing format arguments which masks the original error. To prevent this use an explicit format and pass the "report" as format string argument. --- validate.el |2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/validate.el b/validate.el index 362d38c..398a169 100644 --- a/validate.el +++ b/validate.el @@ -165,7 +165,7 @@ indicate a failure." (let ((report (validate--check value schema))) (if report (unless noerror - (user-error report)) + (user-error "%s" report)) value))) ;;;###autoload
[elpa] master dcbbfc8 2/4: Merge pull request #4 from lunaryorn/patch-1
branch: master commit dcbbfc88d3df7095fe275c6f027b5a324f151a2e Merge: 16e0e23 2604297 Author: Artur Malabarba Commit: GitHub Merge pull request #4 from lunaryorn/patch-1 Don't use error report as format --- validate.el |2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/validate.el b/validate.el index 362d38c..398a169 100644 --- a/validate.el +++ b/validate.el @@ -165,7 +165,7 @@ indicate a failure." (let ((report (validate--check value schema))) (if report (unless noerror - (user-error report)) + (user-error "%s" report)) value))) ;;;###autoload
[elpa] master 276be67 2/2: Merge commit '1c9cdd66501a2f32c59347c56cf4a4316e51ad32'
branch: master commit 276be678ea2b4e8fddc25d5bdea9e20dd70d244e Merge: 35d35e3 1c9cdd6 Author: Artur Malabarba Commit: Artur Malabarba Merge commit '1c9cdd66501a2f32c59347c56cf4a4316e51ad32' --- packages/validate/validate.el |4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/packages/validate/validate.el b/packages/validate/validate.el index fbb3d06..f2dcc23 100644 --- a/packages/validate/validate.el +++ b/packages/validate/validate.el @@ -4,8 +4,8 @@ ;; Author: Artur Malabarba ;; Keywords: lisp -;; Package-Requires: ((emacs "24.1") (cl-lib "0.5")) -;; Version: 1.0.1 +;; Package-Requires: ((emacs "24.1") (cl-lib "0.5") (seq "2.16")) +;; Version: 1.0.2 ;;; Commentary: ;;
[elpa] master 1c9cdd6 1/2: Add a missing seq dependency
branch: master commit 1c9cdd66501a2f32c59347c56cf4a4316e51ad32 Author: Artur Malabarba Commit: Artur Malabarba Add a missing seq dependency --- validate.el |4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/validate.el b/validate.el index fbb3d06..f2dcc23 100644 --- a/validate.el +++ b/validate.el @@ -4,8 +4,8 @@ ;; Author: Artur Malabarba ;; Keywords: lisp -;; Package-Requires: ((emacs "24.1") (cl-lib "0.5")) -;; Version: 1.0.1 +;; Package-Requires: ((emacs "24.1") (cl-lib "0.5") (seq "2.16")) +;; Version: 1.0.2 ;;; Commentary: ;;
