From f97e0838ccb9d7f0200764d564e333e8a2bdd324 Mon Sep 17 00:00:00 2001 From: David Gonzalez Gandara Date: Sun, 24 Apr 2016 11:09:39 +0200 Subject: [PATCH] packages/arbitools.el: Fixed some bugs --- packages/arbitools/arbitools.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/packages/arbitools/arbitools.el b/packages/arbitools/arbitools.el index 1e42e3a1e..796f3dddc 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.55 +;; Version: 0.70 ;; Package-Requires: ((cl-lib "0.5")) ;; This program is free software: you can redistribute it and/or modify @@ -463,8 +463,8 @@ (goto-char (point-min)) (while (re-search-forward "^001" nil t) (forward-char (+ 88 (* (- (string-to-number round) 1) 10))) - (delete-char 10) - (insert " ")))) + (delete-char 8) + (insert " ")))) (defun arbitools-replace-empty () "Replace non played games with spaces" @@ -503,9 +503,9 @@ (insert (format "%s " title)) (insert (format "%s" name)) (insert-char ?\s (- 34 (length name))) - (insert (format "%s " elo)) + (when (= (length elo) 4) (insert (format "%s " elo))) (when (= (length elo) 0) (insert " ")) ;; add extra space if the elo is empty - (when (= (length elo) 1) (insert " ")) ;; add extra space if the elo is a "0" + (when (= (length elo) 1) (insert " 0")) ;; add extra space if the elo is a "0" (insert (format "%s" fed)) (when (= (length fed) 0) (insert " ")) ;; add extra space if fed is empty (insert-char ?\s (- 12 (length idfide))) -- 2.39.2