[elpa] master d54c70d 4/4: Merge commit 'c44ef65515f50bd38304a6f50adebc984fb8e431'
branch: master
commit d54c70dc4abd441ee7cee86b2771b3b0f1a5f29b
Merge: 2b62400 c44ef65
Author: Artur Malabarba
Commit: Artur Malabarba
Merge commit 'c44ef65515f50bd38304a6f50adebc984fb8e431'
---
packages/spinner/README.org|5 +++-
packages/spinner/all-spinners.gif | Bin 0 -> 18314 bytes
.../spinner/{spinner.gif => some-spinners.gif} | Bin 1932043 -> 1932043
bytes
packages/spinner/spinner.el| 26 +++
4 files changed, 19 insertions(+), 12 deletions(-)
diff --git a/packages/spinner/README.org b/packages/spinner/README.org
index 2f3dc39..85c649b 100644
--- a/packages/spinner/README.org
+++ b/packages/spinner/README.org
@@ -2,7 +2,10 @@
Add spinners and progress-bars to the mode-line for ongoing operations.
-[[file:spinner.gif]]
+[[file:some-spinners.gif]]
+
+[[file:all-spinners.gif]]
+
* Usage
1. Add ~(spinner "1.0")~ to your package’s dependencies.
diff --git a/packages/spinner/all-spinners.gif
b/packages/spinner/all-spinners.gif
new file mode 100644
index 000..5540b68
Binary files /dev/null and b/packages/spinner/all-spinners.gif differ
diff --git a/packages/spinner/spinner.gif b/packages/spinner/some-spinners.gif
similarity index 100%
rename from packages/spinner/spinner.gif
rename to packages/spinner/some-spinners.gif
diff --git a/packages/spinner/spinner.el b/packages/spinner/spinner.el
index a21bf42..5573030 100644
--- a/packages/spinner/spinner.el
+++ b/packages/spinner/spinner.el
@@ -2,10 +2,10 @@
;; Copyright (C) 2015 Free Software Foundation, Inc.
-;; Author: Artur Malabarba
-;; Version: 1.0
+;; Author: Artur Malabarba
+;; Version: 1.1
;; Package-Requires: ((cl-lib "0.5"))
-;; URL: https://github.com/Bruce-Connor/spinner.el
+;; URL: https://github.com/Malabarba/spinner.el
;; Keywords: processes mode-line
;; This program is free software; you can redistribute it and/or modify
@@ -25,7 +25,7 @@
;; 1 Usage
;; ═══
;;
-;; 1. Add `(spinner "1.0")' to your package’s dependencies.
+;; 1. Add `(spinner "1.1")' to your package’s dependencies.
;;
;; 2. Call `(spinner-start)' and a spinner will be added to the
;; mode-line.
@@ -104,7 +104,7 @@ Applications can override this value.")
;;; The main function
;;;###autoload
-(defun spinner-start (&optional type fps)
+(defun spinner-start (&optional type fps noadd)
"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.
@@ -116,6 +116,11 @@ buffer where the spinner was created.
FPS, if given, is the number of desired frames per second.
Default is `spinner-frames-per-second'.
+If NOADD is non-nil, the spinner is not added to the mode-line.
+It is then your responsibility to add the symbol
+`spinner--mode-line-construct' somewhere in the mode-line,
+probably as part of a minor-mode lighter.
+
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'.
@@ -138,12 +143,11 @@ is chosen as the spinner type."
(setq spinner--counter 0)
;; Maybe add to mode-line.
- (unless (memq 'spinner--mode-line-construct 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)))
-(setcdr (last mode-line-format) '(spinner--mode-line-construct)
+ (unless (or noadd
+ (memq 'spinner--mode-line-construct mode-line-process))
+(setq mode-line-process
+ (list (or mode-line-process "")
+'spinner--mode-line-construct)))
;; Create timer.
(when (timerp spinner--timer)
[elpa] master updated (2b62400 -> d54c70d)
malabarba pushed a change to branch master.
from 2b62400 Rename debbugs-reference.el to debbugs-browse.el
new 52b4708 spinner: Fix username
new 57808fe spinner: More gif!
new c44ef65 * spinner.el: Use mode-line-process, not buffer-id
new d54c70d Merge commit 'c44ef65515f50bd38304a6f50adebc984fb8e431'
Summary of changes:
packages/spinner/README.org|5 +++-
packages/spinner/all-spinners.gif | Bin 0 -> 18314 bytes
.../spinner/{spinner.gif => some-spinners.gif} | Bin 1932043 -> 1932043
bytes
packages/spinner/spinner.el| 26 +++
4 files changed, 19 insertions(+), 12 deletions(-)
create mode 100644 packages/spinner/all-spinners.gif
rename packages/spinner/{spinner.gif => some-spinners.gif} (100%)
[elpa] master c44ef65 3/4: * spinner.el: Use mode-line-process, not buffer-id
branch: master commit c44ef65515f50bd38304a6f50adebc984fb8e431 Author: Artur Malabarba Commit: Artur Malabarba * spinner.el: Use mode-line-process, not buffer-id --- spinner.el | 22 +- 1 files changed, 13 insertions(+), 9 deletions(-) diff --git a/spinner.el b/spinner.el index db230aa..5573030 100644 --- a/spinner.el +++ b/spinner.el @@ -3,7 +3,7 @@ ;; Copyright (C) 2015 Free Software Foundation, Inc. ;; Author: Artur Malabarba -;; Version: 1.0 +;; Version: 1.1 ;; Package-Requires: ((cl-lib "0.5")) ;; URL: https://github.com/Malabarba/spinner.el ;; Keywords: processes mode-line @@ -25,7 +25,7 @@ ;; 1 Usage ;; ═══ ;; -;; 1. Add `(spinner "1.0")' to your package’s dependencies. +;; 1. Add `(spinner "1.1")' to your package’s dependencies. ;; ;; 2. Call `(spinner-start)' and a spinner will be added to the ;; mode-line. @@ -104,7 +104,7 @@ Applications can override this value.") ;;; The main function ;;;###autoload -(defun spinner-start (&optional type fps) +(defun spinner-start (&optional type fps noadd) "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. @@ -116,6 +116,11 @@ buffer where the spinner was created. FPS, if given, is the number of desired frames per second. Default is `spinner-frames-per-second'. +If NOADD is non-nil, the spinner is not added to the mode-line. +It is then your responsibility to add the symbol +`spinner--mode-line-construct' somewhere in the mode-line, +probably as part of a minor-mode lighter. + 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'. @@ -138,12 +143,11 @@ is chosen as the spinner type." (setq spinner--counter 0) ;; Maybe add to mode-line. - (unless (memq 'spinner--mode-line-construct 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))) -(setcdr (last mode-line-format) '(spinner--mode-line-construct) + (unless (or noadd + (memq 'spinner--mode-line-construct mode-line-process)) +(setq mode-line-process + (list (or mode-line-process "") +'spinner--mode-line-construct))) ;; Create timer. (when (timerp spinner--timer)
[elpa] master 2b62400: Rename debbugs-reference.el to debbugs-browse.el
branch: master
commit 2b62400208ec60eb0c5f7ac76e4b9a47baff2d3b
Author: Michael Albinus
Commit: Michael Albinus
Rename debbugs-reference.el to debbugs-browse.el
* debbugs-browse.el: Rename from debbugs-reference.el. Rename
also all symbols accordingly.
(debbugs-browse-function): New customer option.
(debbugs-browse-url): Use it.
* debbugs-ug.texi (Minor Mode): Rewrite, explaining `debbugs-browse-mode'.
---
.../{debbugs-reference.el => debbugs-browse.el}| 45 +++
packages/debbugs/debbugs-ug.info | 59 +++-
packages/debbugs/debbugs-ug.texi | 35
3 files changed, 76 insertions(+), 63 deletions(-)
diff --git a/packages/debbugs/debbugs-reference.el
b/packages/debbugs/debbugs-browse.el
similarity index 59%
rename from packages/debbugs/debbugs-reference.el
rename to packages/debbugs/debbugs-browse.el
index e7dd6b6..b62bb5b 100644
--- a/packages/debbugs/debbugs-reference.el
+++ b/packages/debbugs/debbugs-browse.el
@@ -1,4 +1,4 @@
-;; debbugs-reference.el --- use debbugs-gnu browsing bug references
+;; debbugs-browse.el --- browse bug URLs with debbugs-gnu or debbugs-org
;; Copyright (C) 2015 Free Software Foundation, Inc.
@@ -24,13 +24,19 @@
;;; Commentary:
-;; This file provides minor modes for putting clickable overlays on
-;; references to bugs. It uses bug-reference.el, but changes
-;; buffer-local the browser to present the bugs to `debbugs-gnu-bugs'.
+;; This file provides a minor mode for browsing bug URLs with
+;; `debbugs-gnu-bugs' or `debbugs-org-bugs'.
;;; Code:
-;;;###autoload
+(defcustom debbugs-browse-function 'debbugs-gnu-bugs
+ "The debbugs function used for showing bugs.
+This can be either `debbugs-gnu-bugs' or `debbugs-org-bugs'."
+ :group 'debbugs-gnu
+ :type '(choice (const debbugs-gnu-bugs)
+(const debbugs-org-bugs))
+ :version "25.1")
+
(defun debbugs-browse-url (url &optional _new-window)
(when (and (stringp url)
(string-match
@@ -39,34 +45,25 @@
(regexp-quote "http://debbugs.gnu.org/";)
(regexp-quote "cgi/bugreport.cgi?bug="))
url))
-(debbugs-gnu-bugs (string-to-number (match-string 2 url)))
+(funcall debbugs-browse-function (string-to-number (match-string 2 url)))
;; Return t for add-function mechanery.
t))
;;;###autoload
-(define-minor-mode debbugs-reference-mode
- "Toggle hyperlinking bug references in the buffer (Bug Reference mode).
-With a prefix argument ARG, enable Bug Reference mode if ARG is
+(define-minor-mode debbugs-browse-mode
+ "Browse GNU Debbugs bug URLs with debbugs-gnu or debbugs-org.
+With a prefix argument ARG, enable Debbugs Browse mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil."
- nil
- ""
- nil
- (if debbugs-reference-mode
- (add-function
- :before-until (local 'browse-url-browser-function) 'debbugs-browse-url)
-(remove-function (local 'browse-url-browser-function)
'debbugs-browse-url)))
-
-;;;###autoload
-(define-minor-mode debbugs-reference-prog-mode
- "Like `debbugs-reference-mode', but only buttonize in comments and strings."
+the mode if ARG is omitted or nil.
+The customer option `debbugs-browse-function' controls, which of
+the two packages is used for showing bugs."
nil
""
nil
- (if debbugs-reference-prog-mode
+ (if debbugs-browse-mode
(add-function
:before-until (local 'browse-url-browser-function) 'debbugs-browse-url)
(remove-function (local 'browse-url-browser-function)
'debbugs-browse-url)))
-(provide 'debbugs-reference)
-;;; debbugs-reference.el ends here
+(provide 'debbugs-browse)
+;;; debbugs-browse.el ends here
diff --git a/packages/debbugs/debbugs-ug.info b/packages/debbugs/debbugs-ug.info
index 887f550..c0526a6 100644
--- a/packages/debbugs/debbugs-ug.info
+++ b/packages/debbugs/debbugs-ug.info
@@ -1,4 +1,4 @@
-This is debbugs-ug.info, produced by makeinfo version 5.2 from
+This is debbugs-ug.info, produced by makeinfo version 5.0 from
debbugs-ug.texi.
Copyright (C) 2015 Free Software Foundation, Inc.
@@ -50,8 +50,8 @@ Mode: (org)Top.). As backend they use the 'debbugs' Emacs
library
* Retrieving Bugs:: How to retrieve bugs.
* Searching Bugs:: How to search in the debbugs database.
-* Layout:: How to results are presented.
-* Minor Modes:: How to use 'debbugs' in files.
+* Layout:: How the results are presented.
+* Minor Mode:: How to use browse bug URLs.
* Command Index:: Debbugs commands.
* Variable Index:: User options and variables.
@@ -255,7 +255,7 @@ Debbugs server only.
are not supported.
-File: debbugs-ug.info, Node: Layout, Next: Minor Modes, Prev: Searching
Bugs, Up: Top
+File: debbugs-ug.info, Node: Layout, Next: Minor Mod
[elpa] master 9d6652a: spinner: Fix readme
branch: master commit 9d6652a9022fc651da1bb532a2bf135da572f9bf Author: Artur Malabarba Commit: Artur Malabarba spinner: Fix readme --- packages/spinner/README.org |2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/packages/spinner/README.org b/packages/spinner/README.org index 85c649b..b398ed0 100644 --- a/packages/spinner/README.org +++ b/packages/spinner/README.org @@ -8,7 +8,7 @@ Add spinners and progress-bars to the mode-line for ongoing operations. * Usage -1. Add ~(spinner "1.0")~ to your package’s dependencies. +1. Add ~(spinner "VERSION")~ to your package’s dependencies. 2. Call ~(spinner-start)~ and a spinner will be added to the mode-line.
[elpa] master 52b4708 1/4: spinner: Fix username
branch: master commit 52b470801aaea725765f0d2afad1f7e16fa54fc3 Author: Artur Malabarba Commit: Artur Malabarba spinner: Fix username --- spinner.el |4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/spinner.el b/spinner.el index a21bf42..db230aa 100644 --- a/spinner.el +++ b/spinner.el @@ -2,10 +2,10 @@ ;; Copyright (C) 2015 Free Software Foundation, Inc. -;; Author: Artur Malabarba +;; Author: Artur Malabarba ;; Version: 1.0 ;; Package-Requires: ((cl-lib "0.5")) -;; URL: https://github.com/Bruce-Connor/spinner.el +;; URL: https://github.com/Malabarba/spinner.el ;; Keywords: processes mode-line ;; This program is free software; you can redistribute it and/or modify
[elpa] master 57808fe 2/4: spinner: More gif!
branch: master commit 57808fe47eb53d60a3108b852a01a484d9d4b898 Author: Artur Malabarba Commit: Artur Malabarba spinner: More gif! --- README.org |5 - all-spinners.gif | Bin 0 -> 18314 bytes spinner.gif => some-spinners.gif | Bin 1932043 -> 1932043 bytes 3 files changed, 4 insertions(+), 1 deletions(-) diff --git a/README.org b/README.org index 2f3dc39..85c649b 100644 --- a/README.org +++ b/README.org @@ -2,7 +2,10 @@ Add spinners and progress-bars to the mode-line for ongoing operations. -[[file:spinner.gif]] +[[file:some-spinners.gif]] + +[[file:all-spinners.gif]] + * Usage 1. Add ~(spinner "1.0")~ to your package’s dependencies. diff --git a/all-spinners.gif b/all-spinners.gif new file mode 100644 index 000..5540b68 Binary files /dev/null and b/all-spinners.gif differ diff --git a/spinner.gif b/some-spinners.gif similarity index 100% rename from spinner.gif rename to some-spinners.gif
[elpa] master c741660: spinner: Fix leftover mode-line-format code
branch: master commit c741660d0a1be0005e820f6683edc8cc999db0d5 Author: Artur Malabarba Commit: Artur Malabarba spinner: Fix leftover mode-line-format code --- packages/spinner/spinner.el |8 +++- 1 files changed, 3 insertions(+), 5 deletions(-) diff --git a/packages/spinner/spinner.el b/packages/spinner/spinner.el index 5573030..07d4c2e 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.1 +;; Version: 1.2 ;; Package-Requires: ((cl-lib "0.5")) ;; URL: https://github.com/Malabarba/spinner.el ;; Keywords: processes mode-line @@ -25,7 +25,7 @@ ;; 1 Usage ;; ═══ ;; -;; 1. Add `(spinner "1.1")' to your package’s dependencies. +;; 1. Add `(spinner "VERSION")' to your package’s dependencies. ;; ;; 2. Call `(spinner-start)' and a spinner will be added to the ;; mode-line. @@ -175,9 +175,7 @@ is chosen as the spinner type." (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))) +spinner-current nil)) (provide 'spinner)
