[elpa] master e071e55: * packages/arbitools: added some new functions and menus

[David Gonzalez Gandara]

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

* packages/arbitools: added some new functions and menus
---
 packages/arbitools/arbitools.el |   45 ++
 1 files changed, 31 insertions(+), 14 deletions(-)

diff --git a/packages/arbitools/arbitools.el b/packages/arbitools/arbitools.el
index 1377f6d..8c3041c 100644
--- a/packages/arbitools/arbitools.el
+++ b/packages/arbitools/arbitools.el
@@ -46,32 +46,48 @@
 
 ;;; Code:
 
-(defun arbitools-update (list)
+(defun arbitools-update (elolist)
   "Update the players ratings."
-  (interactive "slist:")
+  (interactive "selolist:")
   ;; FIXME: What if `list' is "foo; bar"?
-  ;; FIXME: Do we really need a shell here?
-  ;; Why not use just call-process, so we don't need to worry about quoting?
-  (shell-command (concat "arbitools-update.py -l " list  " -i "
- (shell-quote-argument buffer-file-name
+  (call-process "arbitools-run.py" nil nil nil "update" buffer-file-name "-l" 
elolist))
 
 (defun arbitools-add (addfile)
   "Add players to an existing file."
   (interactive "faddfile: ")
   ;; FIXME: What if `addlist' is "foo; bar"?
-  ;; FIXME: Do we really need a shell here?
-  ;; Why not use just call-process, so we don't need to worry about quoting?
-  (shell-command (concat "arbitools-add.py -a " addfile " -i "
- (shell-quote-argument buffer-file-name
+  (call-process "arbitools-add.py" nil nil nil "-a" addfile "-i" 
buffer-file-name))
 
 (defun arbitools-standings ()
   "Get standings and report files from a tournament file."
   (interactive)
   ;; (shell-command (concat (expand-file-name "arbitools-standings.py") " -i " 
buffer-file-name))) ;this is to use the actual path
-  ;; FIXME: Do we really need a shell here?
-  ;; Why not use just call-process, so we don't need to worry about quoting?
-  (shell-command (concat "arbitools-standings.py -i "
- (shell-quote-argument buffer-file-name
+  (call-process "arbitools-standings.py" nil nil nil "-i" buffer-file-name))
+
+(defun arbitools-it3 ()
+   "Get the IT3 tournament report."
+   (interactive)
+   (call-process "arbitools-run.py" nil nil nil "it3" buffer-file-name))
+
+(defun arbitools-fedarating ()
+   "Get the FEDA rating admin file."
+   (interactive)
+   (shell-command (concat "arbitools-run.py fedarating" buffer-file-name))
+
+(defvar arbitools-mode-map
+  (let ((map (make-sparse-keymap)))
+(define-key map (kbd "C-c i") 'coffee-compile-buffer)
+map)
+  "Keymap for Arbitools major mode.")
+
+
+(easy-menu-define arbitools-mode-menu arbitools-mode-map
+  "Menu for Arbitools mode"
+  '("Arbitools"
+["Get It3" arbitools-it3]
+"---"
+))
+
 
 (defvar arbitools-highlights
  '(("^001" . font-lock-function-name-face) ; name of the tournament
@@ -139,6 +155,7 @@
   "Arbitools"
   "Major mode for Chess Tournament Management."
   ;(setq font-lock-defaults '(arbitools-highlights))
+  (use-local-map arbitools-mode-map)
   (set (make-local-variable 'font-lock-defaults) '(arbitools-highlights)))
 
 ;;;###autoload

[elpa] master 7d7cc21: * packages/arbitools: endoffile bug fixed

[David Gonzalez Gandara]

branch: master
commit 7d7cc219cc195e838b27aa857fc938471d0ffb1d
Author: David Gonzalez Gandara 
Commit: David Gonzalez Gandara 

* packages/arbitools: endoffile bug fixed
---
 packages/arbitools/arbitools.el |2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/packages/arbitools/arbitools.el b/packages/arbitools/arbitools.el
index 8c3041c..9275676 100644
--- a/packages/arbitools/arbitools.el
+++ b/packages/arbitools/arbitools.el
@@ -72,7 +72,7 @@
 (defun arbitools-fedarating ()
"Get the FEDA rating admin file."
(interactive)
-   (shell-command (concat "arbitools-run.py fedarating" buffer-file-name))
+   (call-process "arbitools-run.py" nil nil nil "fedarating" buffer-file-name))
 
 (defvar arbitools-mode-map
   (let ((map (make-sparse-keymap)))

[elpa] externals/xelb 8705b7e: Add renderutil library

[Chris Feng]

branch: externals/xelb
commit 8705b7eaf84875613054fcefa6d9289d617cdd46
Author: Chris Feng 
Commit: Chris Feng 

Add renderutil library

* xcb-renderutil: New library adding utility functions for the Render
extension.
---
 xcb-keysyms.el|2 +
 xcb-renderutil.el |  296 +
 xelb.el   |2 +
 3 files changed, 300 insertions(+), 0 deletions(-)

diff --git a/xcb-keysyms.el b/xcb-keysyms.el
index e1ef5d6..dd7b797 100644
--- a/xcb-keysyms.el
+++ b/xcb-keysyms.el
@@ -513,6 +513,8 @@ this function will also return symbols for pure modifiers 
keys."
   (push (or mod-alt 'alt) event))
 (event-convert-list event)
 
+
+
 (provide 'xcb-keysyms)
 
 ;;; xcb-keysyms.el ends here
diff --git a/xcb-renderutil.el b/xcb-renderutil.el
new file mode 100644
index 000..73f55ff
--- /dev/null
+++ b/xcb-renderutil.el
@@ -0,0 +1,296 @@
+;;; xcb-renderutil.el --- Utility functions for  -*- lexical-binding: t -*-
+;;;   the Render extension
+
+;; Copyright (C) 2016 Free Software Foundation, Inc.
+
+;; Author: Chris Feng 
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs 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.
+
+;; GNU Emacs 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 GNU Emacs.  If not, see .
+
+;;; Commentary:
+
+;; This library provides utility functions for the Render extension.
+
+;; Todo
+;; + Glyph-related functions are not implemented.
+
+;; References:
+;; + xcb/util-renderutil (git://anongit.freedesktop.org/xcb/util-renderutil)
+
+;;; Code:
+
+(require 'xcb)
+(require 'xcb-render)
+
+;; Protocol version.
+(defconst xcb:renderutil:-MAJOR_VERSION 0)
+(defconst xcb:renderutil:-MINOR_VERSION 11)
+
+;; PICTFORMINFO masks.
+(defconst xcb:renderutil:PICT_FORMAT:ID 1)
+(defconst xcb:renderutil:PICT_FORMAT:TYPE   2)
+(defconst xcb:renderutil:PICT_FORMAT:DEPTH  4)
+(defconst xcb:renderutil:PICT_FORMAT:RED8)
+(defconst xcb:renderutil:PICT_FORMAT:RED_MASK   16)
+(defconst xcb:renderutil:PICT_FORMAT:GREEN  32)
+(defconst xcb:renderutil:PICT_FORMAT:GREEN_MASK 64)
+(defconst xcb:renderutil:PICT_FORMAT:BLUE   128)
+(defconst xcb:renderutil:PICT_FORMAT:BLUE_MASK  256)
+(defconst xcb:renderutil:PICT_FORMAT:ALPHA  512)
+(defconst xcb:renderutil:PICT_FORMAT:ALPHA_MASK 1024)
+(defconst xcb:renderutil:PICT_FORMAT:COLORMAP   2048)
+
+;; Indices of standard PictFormats.
+(defconst xcb:renderutil:PICT_STANDARD:ARGB_32 0)
+(defconst xcb:renderutil:PICT_STANDARD:RGB_24  1)
+(defconst xcb:renderutil:PICT_STANDARD:A_8 2)
+(defconst xcb:renderutil:PICT_STANDARD:A_4 3)
+(defconst xcb:renderutil:PICT_STANDARD:A_1 4)
+
+(defconst xcb:renderutil:STANDARD-TEMPLATES
+  (list
+   ;; xcb:renderutil:PICT_STANDARD:ARGB_32
+   (vector (make-instance 'xcb:render:PICTFORMINFO
+  :id 0
+  :type xcb:render:PictType:Direct
+  :depth 32
+  :direct (make-instance 'xcb:render:DIRECTFORMAT
+ :red-shift 16
+ :red-mask #xFF
+ :green-shift 8
+ :green-mask #xFF
+ :blue-shift 0
+ :blue-mask #xFF
+ :alpha-shift 24
+ :alpha-mask #xFF)
+  :colormap 0)
+   (logior xcb:renderutil:PICT_FORMAT:TYPE
+   xcb:renderutil:PICT_FORMAT:DEPTH
+   xcb:renderutil:PICT_FORMAT:RED
+   xcb:renderutil:PICT_FORMAT:RED_MASK
+   xcb:renderutil:PICT_FORMAT:GREEN
+   xcb:renderutil:PICT_FORMAT:GREEN_MASK
+   xcb:renderutil:PICT_FORMAT:BLUE
+   xcb:renderutil:PICT_FORMAT:BLUE_MASK
+   xcb:renderutil:PICT_FORMAT:ALPHA
+   xcb:renderutil:PICT_FORMAT:ALPHA_MASK))
+   ;; xcb:renderutil:PICT_STANDARD:RGB_24
+   (vector (make-instance 'xcb:render:PICTFORMINFO
+  :id 0
+  :type xcb:render:PictType:Direct
+  :depth 24
+  :direct (make-instance 'xcb:render:DIRECTFORMAT
+  

[elpa] master 62843ca: * packages/arbitools: added menu option

[David Gonzalez Gandara]

branch: master
commit 62843ca30cd2cac0719101bc5b7b8be4e251ca4a
Author: David Gonzalez Gandara 
Commit: David Gonzalez Gandara 

* packages/arbitools: added menu option
---
 packages/arbitools/arbitools.el |3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/packages/arbitools/arbitools.el b/packages/arbitools/arbitools.el
index 9275676..b19c29e 100644
--- a/packages/arbitools/arbitools.el
+++ b/packages/arbitools/arbitools.el
@@ -84,7 +84,8 @@
 (easy-menu-define arbitools-mode-menu arbitools-mode-map
   "Menu for Arbitools mode"
   '("Arbitools"
-["Get It3" arbitools-it3]
+["Get It3 form Report" arbitools-it3]
+["Get FEDA Ratinf file" arbitools-fedarating]
 "---"
 ))
 

[elpa] externals/exwm 74555b2: Simplify `exwm-workspace--display-buffer'

[Chris Feng]

branch: externals/exwm
commit 74555b25c2dccacd550762d339175494d3d78562
Author: Chris Feng 
Commit: Chris Feng 

Simplify `exwm-workspace--display-buffer'

* exwm-workspace.el (exwm-workspace--display-buffer): Make it simpler and
more reliable.
---
 exwm-workspace.el |   21 +
 1 files changed, 5 insertions(+), 16 deletions(-)

diff --git a/exwm-workspace.el b/exwm-workspace.el
index 283b384..89bb694 100644
--- a/exwm-workspace.el
+++ b/exwm-workspace.el
@@ -495,23 +495,12 @@ The optional FORCE option is for internal use only."
 (xcb:flush exwm--connection)
 
 (defun exwm-workspace--display-buffer (buffer alist)
-  "Display buffer in the current workspace frame.
-
-This functions is modified from `display-buffer-reuse-window' and
-`display-buffer-pop-up-window'."
+  "Display BUFFER as if the current workspace is selected."
+  ;; Only when the floating minibuffer frame is selected.
+  ;; This also protect this functions from being recursively called.
   (when (eq (selected-frame) exwm-workspace--minibuffer)
-(setq buffer (get-buffer buffer))   ;convert string to buffer.
-(let (window)
-  (if (setq window (get-buffer-window buffer exwm-workspace--current))
-  (window--display-buffer buffer window 'reuse alist)
-(when (setq window (or (window--try-to-split-window
-(get-largest-window exwm-workspace--current t)
-alist)
-   (window--try-to-split-window
-(get-lru-window exwm-workspace--current t)
-alist)))
-  (window--display-buffer
-   buffer window 'window alist display-buffer-mark-dedicated))
+(with-selected-frame exwm-workspace--current
+  (display-buffer buffer alist
 
 (defun exwm-workspace--show-minibuffer ()
   "Show the minibuffer frame."

[elpa] master 74fa3ed: Allow reading debbugs from an offline cache

[Lars Ingebrigtsen]

branch: master
commit 74fa3edfee3a23db7be3b2b1d877e8fc83cdd355
Author: Lars Ingebrigtsen 
Commit: Lars Ingebrigtsen 

Allow reading debbugs from an offline cache

* debbugs-gnu.el (debbugs-gnu-show-reports): Allow reading the bug
list from an offline cache.
---
 packages/debbugs/debbugs-gnu.el |   14 ++
 1 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 08a2174..8634ccc 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -578,7 +578,7 @@ marked as \"client-side filter\"."
  ;; Otherwise, we retrieve the bugs from the server.
  (t (apply 'debbugs-get-bugs args)
 
-(defun debbugs-gnu-show-reports ()
+(defun debbugs-gnu-show-reports (&optional offline)
   "Show bug reports."
   (let ((inhibit-read-only t)
(buffer-name "*Emacs Bugs*"))
@@ -592,7 +592,13 @@ marked as \"client-side filter\"."
 ;; Print bug reports.
 (dolist (status
 (apply 'debbugs-get-status
-   (debbugs-gnu-get-bugs debbugs-gnu-local-query)))
+   (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* ((id (cdr (assq 'id status)))
 (words
  (mapconcat
@@ -1462,7 +1468,7 @@ If given a prefix, patch in the branch directory instead."
 ;; buffer.  Determine which.
 (gnus-with-article-buffer
   (dolist (handle (mapcar 'cdr (gnus-article-mime-handles)))
-   (when (string-match "diff\\|patch" (mm-handle-media-type handle))
+   (when (string-match "diff\\|patch\\|plain" (mm-handle-media-type 
handle))
  (push (cons (mm-handle-encoding handle)
  (mm-handle-buffer handle))
patch-buffers
@@ -1471,7 +1477,7 @@ If given a prefix, patch in the branch directory instead."
   (article-decode-charset)
   (push (cons nil gnus-article-buffer) patch-buffers))
 (dolist (elem patch-buffers)
-  (with-temp-buffer
+  (with-current-buffer (generate-new-buffer "*debbugs input patch*")
(insert-buffer-substring (cdr elem))
(cond ((eq (car elem) 'base64)
   (base64-decode-region (point-min) (point-max)))

[elpa] master 72d7c9c: Allow sending control messages offline

[Lars Ingebrigtsen]

branch: master
commit 72d7c9c44f3e039d304583e0984d02664d42ccba
Author: Lars Ingebrigtsen 
Commit: Lars Ingebrigtsen 

Allow sending control messages offline

* debbugs-gnu.el (debbugs-gnu-send-mail-function): New variable.
(debbugs-gnu-send-control-message): Use it to allow sending
control messages offline.
---
 packages/debbugs/debbugs-gnu.el |5 -
 1 files changed, 4 insertions(+), 1 deletions(-)

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 8634ccc..77f9cc5 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -1230,6 +1230,9 @@ MERGED is the list of bugs merged with this one."
   (re-search-forward "#\\([0-9]+\\)" nil t)))
  (string-to-number (match-string 1)
 
+(defvar debbugs-gnu-send-mail-function nil
+  "A function to send control messages from debbugs.")
+
 (defun debbugs-gnu-send-control-message (message &optional reverse)
   "Send a control message for the current bug report.
 You can set the severity or add a tag, or close the report.  If
@@ -1332,7 +1335,7 @@ removed instead."
(format "tags %d%s %s\n"
id (if reverse " -" "")
message
-  (funcall send-mail-function)
+  (funcall (or debbugs-gnu-send-mail-function send-mail-function))
   (remhash id debbugs-cache-data)
   (message-goto-body)
   (message "Control message sent:\n%s"