[elpa] master 50cfcca 1/2: Remove an outdated test

[Nicolas Petton]

branch: master
commit 50cfcca073deb46ab20d4389d197852f5d956568
Author: Nicolas Petton 
Commit: Nicolas Petton 

Remove an outdated test

* packages/stream/tests/stream-tests.el: Remove test for seq-take-until as 
the
  function does not exist anymore.
---
 packages/stream/tests/stream-tests.el | 1 -
 1 file changed, 1 deletion(-)

diff --git a/packages/stream/tests/stream-tests.el 
b/packages/stream/tests/stream-tests.el
index e79c3ef..473074b 100644
--- a/packages/stream/tests/stream-tests.el
+++ b/packages/stream/tests/stream-tests.el
@@ -287,7 +287,6 @@
 (deftest-for-delayed-evaluation (seq-take (make-delayed-test-stream) 2))
 (deftest-for-delayed-evaluation (seq-drop (make-delayed-test-stream) 2))
 (deftest-for-delayed-evaluation (seq-take-while #'numberp 
(make-delayed-test-stream)))
-(deftest-for-delayed-evaluation (seq-take-until #'numberp 
(make-delayed-test-stream)))
 (deftest-for-delayed-evaluation (seq-map #'identity 
(make-delayed-test-stream)))
 (deftest-for-delayed-evaluation (seq-filter #'cl-evenp 
(make-delayed-test-stream)))
 (deftest-for-delayed-evaluation (stream-delay (make-delayed-test-stream)))

[elpa] master updated (7142d2f -> f394de2)

[Nicolas Petton]

nicolaspetton pushed a change to branch master.

  from  7142d2f   Merge commit '1f8935e117918fab8c6ad700b627a67ac4a4f10c'
   new  50cfcca   Remove an outdated test
   new  f394de2   Fix seq-empty-p for streams


Summary of changes:
 packages/stream/stream.el | 3 +++
 packages/stream/tests/stream-tests.el | 5 -
 2 files changed, 7 insertions(+), 1 deletion(-)

[elpa] master f394de2 2/2: Fix seq-empty-p for streams

[Nicolas Petton]

branch: master
commit f394de26fe41b659990760cc91fac5336c39da14
Author: Nicolas Petton 
Commit: Nicolas Petton 

Fix seq-empty-p for streams

* packages/stream/stream.el (seq-empty-p): New method for streams.
* packages/stream/tests/stream-tests.el (stream-seq-empty-test): New 
regression
  test.
---
 packages/stream/stream.el | 3 +++
 packages/stream/tests/stream-tests.el | 4 
 2 files changed, 7 insertions(+)

diff --git a/packages/stream/stream.el b/packages/stream/stream.el
index 810adf9..b412807 100644
--- a/packages/stream/stream.el
+++ b/packages/stream/stream.el
@@ -225,6 +225,9 @@ elements in the STREAMS in order."
 (cl-defmethod seqp ((_stream stream))
   t)
 
+(cl-defmethod seq-empty-p ((stream stream))
+  (stream-empty-p stream))
+
 (cl-defmethod seq-elt ((stream stream) n)
   "Return the element of STREAM at index N."
   (while (> n 0)
diff --git a/packages/stream/tests/stream-tests.el 
b/packages/stream/tests/stream-tests.el
index 473074b..decf3ad 100644
--- a/packages/stream/tests/stream-tests.el
+++ b/packages/stream/tests/stream-tests.el
@@ -40,6 +40,10 @@
   (should (streamp (stream-empty)))
   (should (stream-empty-p (stream-empty
 
+(ert-deftest stream-seq-empty-test ()
+  (should (seq-empty-p (stream-empty)))
+  (should-not (seq-empty-p (stream-range
+
 (ert-deftest stream-make-test ()
   (should (streamp (stream-range)))
   (should (not (stream-empty-p (stream-range) ;; Should use stream-list or 
something

[elpa] master 9a85042: * arbitools.el: added new functions, updated website

[David Gonzalez Gandara]

branch: master
commit 9a850421d4f31da7f1b6407e7cc8d5c7f8f518c1
Author: David Gonzalez Gandara 
Commit: David Gonzalez Gandara 

* arbitools.el: added new functions, updated website
---
 packages/arbitools/arbitools.el | 140 +---
 1 file changed, 116 insertions(+), 24 deletions(-)

diff --git a/packages/arbitools/arbitools.el b/packages/arbitools/arbitools.el
index f749bfb..5509d4c 100644
--- a/packages/arbitools/arbitools.el
+++ b/packages/arbitools/arbitools.el
@@ -3,7 +3,7 @@
 ;; Copyright 2016 Free Software Foundation, Inc.
 
 ;; Author: David Gonzalez Gandara 
-;; Version: 0.71
+;; Version: 0.91
 ;; Package-Requires: ((cl-lib "0.5"))
 
 ;; This program is free software: you can redistribute it and/or modify
@@ -23,9 +23,19 @@
 
 ;; REQUIRES:
 ;; ---
-;; Some functions require the arbitools python package, you can install
-;; it by: "pip3 install arbitools"
-;; "pdflatex" is necessary in case you want to get pdfs.
+;; Some functions require the arbitools python package, written by myself
+;; you can install it by: "pip3 install arbitools"
+;;
+;; "pdflatex" by Han The Thanh is necessary in case you want to get pdfs.
+;;It is distributed under a GPL license.
+;;https://www.tug.org/applications/pdftex/
+;;
+;; "bbpPairings.exe" by Bierema Boyz Programming is necessary to do the 
+;;   pairings. Copy the file to an executable folder, 
+;;   for example /usr/bin.
+;;   Find bbpPairings in
+;;   https://github.com/BieremaBoyzProgramming/bbpPairings
+;;   under GPL license.
 ;;
 ;; USAGE:
 ;; ---
@@ -63,6 +73,10 @@
 ;;
 ;; - Print standings - Native
 ;;
+;; - Do pairings - with bbpPairings.exe. In order for this to work,
+;; remember to add a XXR field in the file with the number
+;; of rounds of the tournament.
+;;
 ;; TODO:
 ;; -
 ;;
@@ -86,12 +100,67 @@
 ;;
 ;; - Reorder the players list
 ;;
-;; You will find more information in www.ourenxadrez.org/arbitools.htm
+;; - Error handling
+;;
+;; You will find more information in www.dggandara.eu/arbitools.htm
 
 ;;; Code:
 
 (eval-when-compile (require 'cl-lib))
 
+(defun arbitools-do-pairings ()
+  "Use bbpPairings to do the pairings for the next round."
+  ;; TODO: if there is no XXR entry, error and prompt to write one.
+  (interactive)
+  (save-excursion
+ (with-current-buffer "Pairings-output"
+(erase-buffer)))
+(call-process "bbpPairings.exe" nil "Pairings-output" nil  "--dutch" 
buffer-file-name "-p")
+
+(let* ((actualround (arbitools-actual-round))
+ (numberofrounds (arbitools-number-of-rounds))
+ (numberoftables 0)
+ (actualtable 0)
+ (white 0)
+ (black 0))
+   (save-excursion
+ (with-current-buffer "Pairings-output"
+   (goto-char (point-min))
+   (setq numberoftables (string-to-number (thing-at-point 'word)
+   (while (<= actualtable numberoftables)
+ (save-excursion
+   (with-current-buffer "Pairings-output"
+ (forward-line)
+ (setq actualtable (+ actualtable 1))
+ (setq white (thing-at-point 'word))
+ (forward-word)
+ (forward-word)
+ (setq black (thing-at-point 'word
+ (save-excursion
+   (goto-char (point-min))
+   (while (re-search-forward "^001" nil t)
+ (forward-char 4) ;; rank number
+ (when (string= white (thing-at-point 'word))
+   (forward-char (+ 85 (* actualround 10)))
+   (insert "  ") ;; replace the first positions with spaces
+   (delete-char 2)
+   (cond ((= 2 (length black)) (backward-char 1));; make room 
for bigger numbers
+ ((= 3 (length black)) (backward-char 2)))
+   (insert (format "%s w" black))
+   (delete-char 3)
+   (cond ((= 2 (length black)) (delete-char 1));; adjust when 
numbers are longer
+ ((= 3 (length black)) (delete-char 2
+(when (string= black (thing-at-point 'word))
+   (forward-char (+ 85 (* actualround 10)))
+   (insert "  ") ;; replace the first positions with spaces
+   (delete-char 2)
+   (cond ((= 2 (length white)) (backward-char 1)) ;; make room 
for bigger numbers
+ ((= 3 (length white)) (backward-char 2)))
+   (insert (format "%s b" white))
+   (delete-char 3)
+   (cond ((= 2 (length white)) (delete-char 1));; adjust when 
numbers are longer
+ ((= 3 (length white)) (delete-char 2)
+
 (defun arbitools-prepare-feda ()
   "Prepare file to 

[elpa] externals/bbdb updated (5ac6dbf -> c6082d6)

[Roland Winkler]

winkler pushed a change to branch externals/bbdb.

  from  5ac6dbf   Fix copyright headers
   new  0cff90e   Fix declarations for byte compiler.  Use file tex-site.el.
   new  c6082d6   Add files bbdb-gnus.el and bbdb-vm.el.


Summary of changes:
 bbdb-com.el   |  5 ++--
 bbdb-gnus.el  | 68 ++
 bbdb-mhe.el   |  1 +
 bbdb-mua.el   | 35 
 bbdb-rmail.el | 15 ---
 bbdb-site.el  | 46 
 bbdb-tex.el   | 13 -
 bbdb-vm.el| 86 +++
 bbdb-wl.el|  8 +++---
 bbdb.el   | 27 ++-
 tex/bbdb.sty  |  2 +-
 11 files changed, 248 insertions(+), 58 deletions(-)
 create mode 100644 bbdb-gnus.el
 create mode 100644 bbdb-site.el
 create mode 100644 bbdb-vm.el

[elpa] externals/bbdb 0cff90e 1/2: Fix declarations for byte compiler. Use file tex-site.el.

[Roland Winkler]

branch: externals/bbdb
commit 0cff90e09cd4099d4ba4e3ee6bb366b258c2d97d
Author: Roland Winkler 
Commit: Roland Winkler 

Fix declarations for byte compiler.  Use file tex-site.el.
---
 bbdb-com.el   |  5 +++--
 bbdb-mhe.el   |  1 +
 bbdb-mua.el   | 35 ++-
 bbdb-rmail.el | 15 +--
 bbdb-site.el  | 46 ++
 bbdb-tex.el   | 13 -
 bbdb-wl.el|  8 +---
 bbdb.el   | 27 +++
 tex/bbdb.sty  |  2 +-
 9 files changed, 94 insertions(+), 58 deletions(-)

diff --git a/bbdb-com.el b/bbdb-com.el
index cf8eefa..500a0e0 100644
--- a/bbdb-com.el
+++ b/bbdb-com.el
@@ -26,8 +26,9 @@
 (require 'bbdb)
 (require 'mailabbrev)
 
-(declare-function build-mail-aliases "mailalias")
-(declare-function browse-url-url-at-point "browse-url")
+(eval-and-compile
+  (autoload 'build-mail-aliases "mailalias")
+  (autoload 'browse-url-url-at-point "browse-url"))
 
 (require 'crm)
 (defvar bbdb-crm-local-completion-map
diff --git a/bbdb-mhe.el b/bbdb-mhe.el
index ed9cada..4670171 100644
--- a/bbdb-mhe.el
+++ b/bbdb-mhe.el
@@ -33,6 +33,7 @@
 
 ;; A simplified `mail-fetch-field'.  We could use instead (like rmail):
 ;; (mail-header (intern-soft (downcase header)) (mail-header-extract))
+;;;###autoload
 (defun bbdb/mh-header (header)
   "Find and return the value of HEADER in the current buffer.
 Returns the empty string if HEADER is not in the message."
diff --git a/bbdb-mua.el b/bbdb-mua.el
index dc57fd8..db31b06 100644
--- a/bbdb-mua.el
+++ b/bbdb-mua.el
@@ -37,29 +37,30 @@
 (require 'bbdb)
 (require 'bbdb-com)
 
-(declare-function gnus-fetch-original-field "gnus-utils")
-(declare-function gnus-summary-select-article "gnus-sum")
-(defvar gnus-article-buffer)
+(eval-and-compile
+  (autoload 'gnus-fetch-original-field "gnus-utils")
+  (autoload 'gnus-summary-select-article "gnus-sum")
+  (defvar gnus-article-buffer)
 
-(declare-function bbdb/vm-header "bbdb-vm")
-(declare-function vm-follow-summary-cursor "vm-motion")
-(declare-function vm-select-folder-buffer "vm-macro")
-(declare-function vm-check-for-killed-summary "vm-misc")
-(declare-function vm-error-if-folder-empty "vm-misc")
+  (autoload 'bbdb/vm-header "bbdb-vm")
+  (autoload 'vm-follow-summary-cursor "vm-motion")
+  (autoload 'vm-select-folder-buffer "vm-macro")
+  (autoload 'vm-check-for-killed-summary "vm-misc")
+  (autoload 'vm-error-if-folder-empty "vm-misc")
 
-(declare-function bbdb/rmail-header "bbdb-rmail")
-(defvar rmail-buffer)
+  (autoload 'bbdb/rmail-header "bbdb-rmail")
+  (defvar rmail-buffer)
 
-(declare-function bbdb/mh-header "bbdb-mhe")
-(declare-function mh-show "mh-show")
-(defvar mh-show-buffer)
+  (autoload 'bbdb/mh-header "bbdb-mhe")
+  (autoload 'mh-show "mh-show")
+  (defvar mh-show-buffer)
 
-(defvar mu4e~view-buffer-name)
+  (defvar mu4e~view-buffer-name)
 
-(declare-function bbdb/wl-header "bbdb-wl")
+  (autoload 'bbdb/wl-header "bbdb-wl")
 
-(declare-function message-field-value "message")
-(declare-function mail-decode-encoded-word-string "mail-parse")
+  (autoload 'message-field-value "message")
+  (autoload 'mail-decode-encoded-word-string "mail-parse"))
 
 (defconst bbdb-mua-mode-alist
   '((vm vm-mode vm-virtual-mode vm-summary-mode vm-presentation-mode)
diff --git a/bbdb-rmail.el b/bbdb-rmail.el
index 69c92ac..719617d 100644
--- a/bbdb-rmail.el
+++ b/bbdb-rmail.el
@@ -30,19 +30,14 @@
 (require 'rmailsum)
 (require 'mailheader)
 
-(defun bbdb/rmail-new-flag ()
-  "Returns t if the current message in buffer BUF is new."
-  (rmail-message-labels-p rmail-current-message ", ?\\(unseen\\),"))
-
+;;;###autoload
 (defun bbdb/rmail-header (header)
   "Pull HEADER out of Rmail header."
   (with-current-buffer rmail-buffer
-(if (fboundp 'rmail-get-header)  ; Emacs 23
-(rmail-get-header header)
-  (save-restriction
-(with-no-warnings (rmail-narrow-to-non-pruned-header))
-(mail-header (intern-soft (downcase header))
- (mail-header-extract))
+(save-restriction
+  (with-no-warnings (rmail-narrow-to-non-pruned-header))
+  (mail-header (intern-soft (downcase header))
+   (mail-header-extract)
 
 ;;;###autoload
 (defun bbdb-insinuate-rmail ()
diff --git a/bbdb-site.el b/bbdb-site.el
new file mode 100644
index 000..dcaf096
--- /dev/null
+++ b/bbdb-site.el
@@ -0,0 +1,46 @@
+;;; bbdb-site.el --- site-specific variables for BBDB -*- lexical-binding: t 
-*-
+
+;; Copyright (C) 2010-2017  Free Software Foundation, Inc.
+
+;; This file is part of the Insidious Big Brother Database (aka BBDB),
+
+;; BBDB 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.
+
+;; BBDB is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied w

[elpa] externals/bbdb c6082d6 2/2: Add files bbdb-gnus.el and bbdb-vm.el.

[Roland Winkler]

branch: externals/bbdb
commit c6082d6f3e7d136b8f13cec4e20c1129ca15691e
Author: Roland Winkler 
Commit: Roland Winkler 

Add files bbdb-gnus.el and bbdb-vm.el.
---
 bbdb-gnus.el | 68 +++
 bbdb-vm.el   | 86 
 2 files changed, 154 insertions(+)

diff --git a/bbdb-gnus.el b/bbdb-gnus.el
new file mode 100644
index 000..c279c58
--- /dev/null
+++ b/bbdb-gnus.el
@@ -0,0 +1,68 @@
+;;; bbdb-gnus.el --- BBDB interface to Gnus -*- lexical-binding: t -*-
+
+;; Copyright (C) 2010-2017  Free Software Foundation, Inc.
+
+;; This file is part of the Insidious Big Brother Database (aka BBDB),
+
+;; BBDB 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.
+
+;; BBDB 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 BBDB.  If not, see .
+
+;;; Commentary:
+;;; This file contains the BBDB interface to Gnus.
+;;; See the BBDB info manual for documentation.
+
+;;; Code:
+
+(require 'bbdb)
+(require 'bbdb-com)
+(require 'bbdb-mua)
+(require 'gnus)
+
+;;; Insinuation
+
+;;;###autoload
+(defun bbdb-insinuate-gnus ()
+  "Hook BBDB into Gnus.
+Do not call this in your init file.  Use `bbdb-initialize'."
+  ;; `bbdb-mua-display-sender' fails in *Article* buffers, where
+  ;; `gnus-article-read-summary-keys' provides an additional wrapper
+  ;; that restores the window configuration.
+  (define-key gnus-summary-mode-map ":" 'bbdb-mua-display-sender)
+  (define-key gnus-article-mode-map ":" 'bbdb-mua-display-sender)
+  ;; For `bbdb-mua-edit-field-sender' it is probably OK if
+  ;;`gnus-article-read-summary-keys' restores the window configuration.
+  (define-key gnus-summary-mode-map ";" 'bbdb-mua-edit-field-sender)
+  (define-key gnus-article-mode-map ";" 'bbdb-mua-edit-field-sender)
+  ;; Do we need keybindings for more commands?  Suggestions welcome.
+  ;; (define-key gnus-summary-mode-map ":" 'bbdb-mua-display-records)
+  ;; (define-key gnus-summary-mode-map "'" 'bbdb-mua-display-recipients)
+  ;; (define-key gnus-summary-mode-map ";" 'bbdb-mua-edit-field-recipients)
+
+  ;; Set up user field for use in `gnus-summary-line-format'
+  ;; (1) Big solution: use whole name
+  (if bbdb-mua-summary-unify-format-letter
+  (fset (intern (concat "gnus-user-format-function-"
+bbdb-mua-summary-unify-format-letter))
+(lambda (header)
+  (bbdb-mua-summary-unify (mail-header-from header)
+
+  ;; (2) Small solution: a mark for messages whos sender is in BBDB.
+  (if bbdb-mua-summary-mark-format-letter
+  (fset (intern (concat "gnus-user-format-function-"
+bbdb-mua-summary-mark-format-letter))
+(lambda (header)
+  (bbdb-mua-summary-mark (mail-header-from header))
+
+(provide 'bbdb-gnus)
+
+;;; bbdb-gnus.el ends here
diff --git a/bbdb-vm.el b/bbdb-vm.el
new file mode 100644
index 000..07f158f
--- /dev/null
+++ b/bbdb-vm.el
@@ -0,0 +1,86 @@
+;;; bbdb-vm.el --- BBDB interface to VM -*- lexical-binding: t -*-
+
+;; Copyright (C) 2010-2017  Free Software Foundation, Inc.
+
+;; This file is part of the Insidious Big Brother Database (aka BBDB),
+
+;; BBDB 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.
+
+;; BBDB 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 BBDB.  If not, see .
+
+;;; Commentary:
+;;; This file contains the BBDB interface to VM.
+;;; See the BBDB info manual for documentation.
+
+;;; Code:
+
+(require 'bbdb)
+(require 'bbdb-com)
+(require 'bbdb-mua)
+(require 'vm-autoloads)
+(require 'vm-motion)
+(require 'vm-summary)
+(require 'vm-mime)
+(require 'vm-vars)
+(require 'vm-macro)
+(require 'vm-message)
+(require 'vm-misc)
+
+;;;###autoload
+(defun bbdb/vm-header (header)
+  (save-current-buffer
+(vm-select-folder-buffer)
+(vm-get-header-contents (car vm-message-pointer)
+(concat header ":"
+
+;;;###autoload
+(defun bbdb-insinuate-vm ()
+  "Hook BBDB into VM.
+Do not call this in your init file.  Use `bbdb-i