[elpa] master c4c741a: Minor debbugs fixes

[Michael Albinus]

branch: master
commit c4c741ae9e14968aae6d8d684367c1248fcf36ea
Author: Michael Albinus 
Commit: Michael Albinus 

Minor debbugs fixes

* packages/debbugs/debbugs-gnu.el (debbugs-gnu-show-reports):
Fix docstring.  Let-bind also `debbugs-cache-expiry'.
---
 packages/debbugs/debbugs-gnu.el |   22 +-
 1 files changed, 13 insertions(+), 9 deletions(-)

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 77f9cc5..d22dd81 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -579,7 +579,9 @@ marked as \"client-side filter\"."
  (t (apply 'debbugs-get-bugs args)
 
 (defun debbugs-gnu-show-reports (&optional offline)
-  "Show bug reports."
+  "Show bug reports.
+If OFFLINE is non-nil, the query is not sent to the server.  Bugs
+are taken from the cache instead."
   (let ((inhibit-read-only t)
(buffer-name "*Emacs Bugs*"))
 ;; The tabulated mode sets several local variables.  We must get
@@ -591,14 +593,16 @@ marked as \"client-side filter\"."
 
 ;; Print bug reports.
 (dolist (status
-(apply 'debbugs-get-status
-   (if offline
-   (let ((ids nil))
- (maphash (lambda (key elem)
-(push (cdr (assq 'id elem)) ids))
-  debbugs-cache-data)
- (sort ids '<))
- (debbugs-gnu-get-bugs debbugs-gnu-local-query
+(let ((debbugs-cache-expiry (if offline nil debbugs-cache-expiry))
+  ids)
+  (apply 'debbugs-get-status
+ (if offline
+ (progn
+   (maphash (lambda (key _elem)
+  (push key ids))
+debbugs-cache-data)
+   (sort ids '<))
+   (debbugs-gnu-get-bugs debbugs-gnu-local-query)
   (let* ((id (cdr (assq 'id status)))
 (words
  (mapconcat

[elpa] master 0bbd227: * packages/metar/metar.el: Bump version for last two changes.

[Wolfgang Jenkner]

branch: master
commit 0bbd227ac6440abfba40a19ec8f0636e629df289
Author: Wolfgang Jenkner 
Commit: Wolfgang Jenkner 

* packages/metar/metar.el: Bump version for last two changes.
---
 packages/metar/metar.el |4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/metar/metar.el b/packages/metar/metar.el
index a05a353..b6989ea 100644
--- a/packages/metar/metar.el
+++ b/packages/metar/metar.el
@@ -1,9 +1,9 @@
 ;;; metar.el --- Retrieve and decode METAR weather information
 
-;; Copyright (C) 2007, 2014  Free Software Foundation, Inc.
+;; Copyright (C) 2007, 2014-2016  Free Software Foundation, Inc.
 
 ;; Author: Mario Lang 
-;; Version: 0.1
+;; Version: 0.2
 ;; Package-Requires: ((cl-lib "0.5"))
 ;; Keywords: comm
 

[elpa] master c91db88: * packages/arbitools: Add functions and menus

[David Gonzalez Gandara]

branch: master
commit c91db8819f1508cc2fa907063bd5f4138339638c
Author: David Gonzalez Gandara 
Commit: David Gonzalez Gandara 

* packages/arbitools: Add functions and menus
---
 packages/arbitools/arbitools.el |   54 +-
 1 files changed, 52 insertions(+), 2 deletions(-)

diff --git a/packages/arbitools/arbitools.el b/packages/arbitools/arbitools.el
index b19c29e..6c30404 100644
--- a/packages/arbitools/arbitools.el
+++ b/packages/arbitools/arbitools.el
@@ -64,6 +64,54 @@
   ;; (shell-command (concat (expand-file-name "arbitools-standings.py") " -i " 
buffer-file-name))) ;this is to use the actual path
   (call-process "arbitools-standings.py" nil nil nil "-i" buffer-file-name))
 
+(defun arbitools-delete-round (round)
+   "Delete round"
+   (interactive "sround: ")
+   (beginning-of-buffer)
+   (while (re-search-forward "^001" nil t)
+ (forward-char (+ 88 (* (- (string-to-number round) 1) 10)))
+ (delete-char 10)
+ (insert "  "))
+   (beginning-of-buffer))
+
+(defun arbitools-insert-result (round white black result)
+   "Insert a result"
+   (interactive "sround: \nswhite: \nsblack: \nsresult: ")
+   (beginning-of-buffer)
+   (while (re-search-forward "^001" nil t)
+ (forward-char 4) ;; rank number
+ ;; (print (format "%s" white))
+ (when (string= white (thing-at-point 'word))
+   ;;go to first round taking into account the cursor is in the rank number
+   (forward-char (+ 85 (* (- (string-to-number round) 1) 10)))
+   (insert "  ") ;; replace the first positions with spaces
+   (delete-char 2) ;; delete the former characters
+   ;; make room for bigger numbers
+   (cond ((= 2 (length black))
+ (backward-char 1))
+ ((= 3 (length black))
+ (backward-char 2)))
+   (insert (format "%s w %s" black result))
+   (delete-char 5) 
+   ;; adjust when numbers are longer
+   (cond ((= 2 (length black)) (delete-char 1))
+ ((= 3 (length black)) (delete-char 2
+ (when (string= black (thing-at-point 'word))
+   ;;go to first round taking into account the cursor is in the rank number
+   (forward-char (+ 85 (* (- (string-to-number round) 1) 10)))
+   (insert "  ") ;; replace the first positions with spaces
+   (delete-char 2) ;; delete the former characters
+   ;; make room for bigger numbers
+   (cond ((= 2 (length white)) (backward-char 1))
+ ((= 3 (length white)) (backward-char 2)))
+   (cond ((string= "1" result) (insert (format "%s b 0" white)))
+ ((string= "0" result) (insert (format "%s b 1" white
+   (delete-char 5) 
+   ;; adjust when numbers are longer
+   (cond ((= 2 (length white)) (delete-char 1))
+ ((= 3 (length white)) (delete-char 2)
+   (beginning-of-buffer))
+
 (defun arbitools-it3 ()
"Get the IT3 tournament report."
(interactive)
@@ -76,7 +124,7 @@
 
 (defvar arbitools-mode-map
   (let ((map (make-sparse-keymap)))
-(define-key map (kbd "C-c i") 'coffee-compile-buffer)
+(define-key map (kbd "C-c i") 'arbitools-it3)
 map)
   "Keymap for Arbitools major mode.")
 
@@ -84,9 +132,11 @@
 (easy-menu-define arbitools-mode-menu arbitools-mode-map
   "Menu for Arbitools mode"
   '("Arbitools"
+["Insert Result" arbitools-insert-result]
+["Delete Round" arbitools-delete-round]
+"---"
 ["Get It3 form Report" arbitools-it3]
 ["Get FEDA Ratinf file" arbitools-fedarating]
-"---"
 ))