code.delx.au - gnu-emacs-elpa/blob - packages/arbitools/arbitools.el

   1 ;;; arbitools.el --- Package for chess tournaments administration
   2
   3 ;; Copyright 2016 Free Software Foundation, Inc.
   4
   5 ;; Author: David Gonzalez Gandara <dggandara@member.fsf.org>
   6 ;; Version: 0.5
   7
   8 ;; This program is free software: you can redistribute it and/or modify
   9 ;; it under the terms of the GNU General Public License as published by
  10 ;; the Free Software Foundation, either version 3 of the License, or
  11 ;; (at your option) any later version.
  12 ;;
  13 ;; This program is distributed in the hope that it will be useful,
  14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 ;; GNU General Public License for more details.
  17 ;;
  18 ;; You should have received a copy of the GNU General Public License
  19 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
  20
  21 ;;;Commentary:
  22
  23 ;; REQUIRES:
  24 ;; ---------------------------
  25 ;;
  26 ;;
  27 ;; USAGE:
  28 ;; ---------------------------
  29 ;; arbitools.el is an interface for the pythong package "arbitools",
  30 ;; designed to manage chess tournament reports. If you don't install the
  31 ;; python package you can still have the syntax colouring.
  32 ;;
  33 ;; FEATURES:
  34 ;; ----------------------------
  35 ;; - Syntax colouring for the official trf FIDE files. This facilitates
  36 ;; manual edition of the files.
  37 ;;
  38 ;; - Updating the players ratings. By means of the function arbitools-update
  39 ;;
  40 ;; - Adding players to an existing file. By arbitools-add
  41 ;;
  42 ;; - Getting standings and report files from a tournament file. By
  43 ;;   arbitools-standings.
  44 ;;
  45 ;; You will find more information in www.ourenxadrez.org/arbitools.htm
  46
  47 ;;; Code:
  48
  49
  50
  51 (defun arbitools-update (list)
  52   (interactive "slist:")
  53   (shell-command (concat "arbitools-update.py" " -l " list  " -i " buffer-file-name)))
  54
  55 (defun arbitools-add (addfile)
  56   (interactive "saddfile: ")
  57   (shell-command (concat "arbitools-add.py" " -a " addfile " -i " buffer-file-name)))
  58
  59 (defun arbitools-standings ()
  60   (interactive)
  61   ;(shell-command (concat (expand-file-name "arbitools-standings.py") " -i " buffer-file-name))) ;this is to use the actual path
  62   (shell-command (concat "arbitools-standings.py" " -i " buffer-file-name)))
  63
  64 (defvar arbitools-highlights
  65  '(
  66         ("^001" . font-lock-function-name-face) ;name of the tournament
  67         ;("\\( b \\)\\|\\( w \\)\\|\\( - \\)" . font-lock-keyword-face) ;colour
  68         ;("\\( 1 \\)\\|\\( 0 \\)\\|\\( = \\)". font-lock-type-face) ;results
  69         ("^012.*" . font-lock-comment-face)
  70         ("\\(^022\\|^032\\|^042\\|^052\\|^062\\|^072\\|^082\\|^092\\|^102\\|^112\\|^122\\).*" . font-lock-constant-face)
  71         ("^132.*" . font-lock-warning-face) ;dates
  72
  73         ("^013" . font-lock-warning-face) ;teams
  74         ("\\(^013.\\{1\\}\\)\\(.\\{31\\}\\)" 2 font-lock-comment-face) ; teams
  75
  76         ;(" [0-9]\\{6,\\} " . font-lock-variable-name-face) ;FIDE ID
  77         ("\\(^001.\\{11\\}\\)\\(.\\{32\\}\\)" 2 font-lock-string-face)  ;Name of the player (by position)
  78         ("\\(^001.\\{55\\}\\)\\(.\\{10\\}\\)" 2 font-lock-function-name-face) ;FIDE ID
  79
  80         ("\\(^001.\\{88\\}\\)\\(.\\{4\\}\\)" 2 font-lock-comment-face) ;round 1 opponent
  81         ;("\\(^132.\\{88\\}\\)\\(.\\{8\\}\\)" 2 font-lock-string-face) ;round 1 date line
  82         ("\\(^001.\\{93\\}\\)\\(.\\{1\\}\\)" 2 font-lock-string-face) ;round 1 colour
  83         ("\\(^001.\\{95\\}\\)\\(.\\{1\\}\\)" 2 font-lock-function-name-face) ;round 1 result
  84         ;rest of rounds
  85         ("\\(^001.\\{98\\}\\)\\(.\\{4\\}\\)" 2 font-lock-comment-face)
  86         ;("\\(^132.\\{98\\}\\)\\(.\\{8\\}\\)" 2 font-lock-string-face)
  87         ("\\(^001.\\{103\\}\\)\\(.\\{1\\}\\)" 2 font-lock-string-face)
  88         ("\\(^001.\\{105\\}\\)\\(.\\{1\\}\\)" 2 font-lock-function-name-face)
  89
  90         ("\\(^001.\\{108\\}\\)\\(.\\{4\\}\\)" 2 font-lock-comment-face)
  91         ;("\\(^132.\\{108\\}\\)\\(.\\{8\\}\\)" 2 font-lock-string-face)
  92         ("\\(^001.\\{113\\}\\)\\(.\\{1\\}\\)" 2 font-lock-string-face)
  93         ("\\(^001.\\{115\\}\\)\\(.\\{1\\}\\)" 2 font-lock-function-name-face)
  94
  95         ("\\(^001.\\{118\\}\\)\\(.\\{4\\}\\)" 2 font-lock-comment-face)
  96         ;("\\(^132.\\{118\\}\\)\\(.\\{8\\}\\)" 2 font-lock-string-face)
  97         ("\\(^001.\\{123\\}\\)\\(.\\{1\\}\\)" 2 font-lock-string-face)
  98         ("\\(^001.\\{125\\}\\)\\(.\\{1\\}\\)" 2 font-lock-function-name-face)
  99
 100         ("\\(^001.\\{128\\}\\)\\(.\\{4\\}\\)" 2 font-lock-comment-face)
 101         ;("\\(^132.\\{128\\}\\)\\(.\\{8\\}\\)" 2 font-lock-string-face)
 102         ("\\(^001.\\{133\\}\\)\\(.\\{1\\}\\)" 2 font-lock-string-face)
 103         ("\\(^001.\\{135\\}\\)\\(.\\{1\\}\\)" 2 font-lock-function-name-face)
 104
 105         ("\\(^001.\\{138\\}\\)\\(.\\{4\\}\\)" 2 font-lock-comment-face)
 106         ;("\\(^132.\\{138\\}\\)\\(.\\{8\\}\\)" 2 font-lock-string-face)
 107         ("\\(^001.\\{143\\}\\)\\(.\\{1\\}\\)" 2 font-lock-string-face)
 108         ("\\(^001.\\{145\\}\\)\\(.\\{1\\}\\)" 2 font-lock-function-name-face)
 109
 110         ("\\(^001.\\{148\\}\\)\\(.\\{4\\}\\)" 2 font-lock-comment-face)
 111         ;("\\(^132.\\{148\\}\\)\\(.\\{8\\}\\)" 2 font-lock-string-face)
 112         ("\\(^001.\\{153\\}\\)\\(.\\{1\\}\\)" 2 font-lock-string-face)
 113         ("\\(^001.\\{155\\}\\)\\(.\\{1\\}\\)" 2 font-lock-function-name-face)
 114
 115         ("\\(^001.\\{158\\}\\)\\(.\\{4\\}\\)" 2 font-lock-comment-face)
 116         ;("\\(^132.\\{158\\}\\)\\(.\\{8\\}\\)" 2 font-lock-string-face)
 117         ("\\(^001.\\{163\\}\\)\\(.\\{1\\}\\)" 2 font-lock-string-face)
 118         ("\\(^001.\\{165\\}\\)\\(.\\{1\\}\\)" 2 font-lock-function-name-face)
 119
 120         ("\\(^001.\\{168\\}\\)\\(.\\{4\\}\\)" 2 font-lock-comment-face)
 121         ;("\\(^132.\\{168\\}\\)\\(.\\{8\\}\\)" 2 font-lock-string-face)
 122         ("\\(^001.\\{173\\}\\)\\(.\\{1\\}\\)" 2 font-lock-string-face)
 123         ("\\(^001.\\{175\\}\\)\\(.\\{1\\}\\)" 2 font-lock-function-name-face)
 124
 125         ("\\(^001.\\{178\\}\\)\\(.\\{4\\}\\)" 2 font-lock-comment-face)
 126         ;("\\(^132.\\{178\\}\\)\\(.\\{8\\}\\)" 2 font-lock-string-face)
 127         ("\\(^001.\\{183\\}\\)\\(.\\{1\\}\\)" 2 font-lock-string-face)
 128         ("\\(^001.\\{185\\}\\)\\(.\\{1\\}\\)" 2 font-lock-function-name-face)
 129
 130         ("\\(^001.\\{188\\}\\)\\(.\\{4\\}\\)" 2 font-lock-comment-face)
 131         ;("\\(^132.\\{188\\}\\)\\(.\\{8\\}\\)" 2 font-lock-string-face)
 132         ("\\(^001.\\{193\\}\\)\\(.\\{1\\}\\)" 2 font-lock-string-face)
 133         ("\\(^001.\\{195\\}\\)\\(.\\{1\\}\\)" 2 font-lock-function-name-face)
 134
 135         ("\\(^001.\\{198\\}\\)\\(.\\{4\\}\\)" 2 font-lock-comment-face)
 136         ;("\\(^132.\\{198\\}\\)\\(.\\{8\\}\\)" 2 font-lock-string-face)
 137         ("\\(^001.\\{203\\}\\)\\(.\\{1\\}\\)" 2 font-lock-string-face)
 138         ("\\(^001.\\{205\\}\\)\\(.\\{1\\}\\)" 2 font-lock-function-name-face)
 139   )
 140 )
 141
 142 ;;;###autoload
 143 (define-derived-mode arbitools-mode
 144   fundamental-mode
 145   "arbitools-mode"
 146   "Major mode for Chess Tournament Management"
 147   ;(setq font-lock-defaults '(arbitools-highlights))
 148   (set (make-local-variable 'font-lock-defaults) '(arbitools-highlights))
 149
 150 )
 151
 152 ;;;###autoload
 153 (add-to-list 'auto-mode-alist '("\\.trf?\\'" . arbitools-mode))
 154
 155 (provide 'arbitools-mode)
 156
 157 ;;; arbitools.el end here