From 09380ccb3dd4c39aa20875025bfb83598c414305 Mon Sep 17 00:00:00 2001 From: David Gonzalez Gandara Date: Tue, 3 May 2016 19:49:17 +0200 Subject: [PATCH] packages/arbitools.el: minor fixes --- packages/arbitools/arbitools.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/packages/arbitools/arbitools.el b/packages/arbitools/arbitools.el index 8c43e7825..76fe0bc27 100644 --- a/packages/arbitools/arbitools.el +++ b/packages/arbitools/arbitools.el @@ -273,6 +273,7 @@ (interactive) (save-excursion (let ( (numberofrounds (arbitools-number-of-rounds)) + (pointsstring "") (points 0.0) (pointstosum 0.0) (roundcount 1)) @@ -283,7 +284,7 @@ (while (<= roundcount numberofrounds) (beginning-of-line) (forward-char (+ 98 (* (- roundcount 1) 10))) ;; go to where the result is for each round - ;; FIXME: Use pcase? + (setq pointsstring (thing-at-point 'symbol)) (cond ((string= (thing-at-point 'symbol) "1") (setq pointstosum 1.0)) ((string= (thing-at-point 'symbol) "+") (setq pointstosum 1.0)) ((string= (thing-at-point 'symbol) "=") (setq pointstosum 0.5)) @@ -309,7 +310,7 @@ (let ((datachunk "")) (goto-char (point-min)) (while (re-search-forward "^001" nil t) - (let* () ;; (linestring (thing-at-point 'line)) + (let* ((linestring (thing-at-point 'line))) (beginning-of-line) (forward-char 89) ;; get the POS field (setq datachunk (thing-at-point 'word)) @@ -410,6 +411,7 @@ (save-excursion (while (re-search-forward "^013" nil t) (let* ((linestringteam (thing-at-point 'line)) + (actualintegrant (string-to-number (substring linestringteam 40 44))) (integrantcount 0) (members 0)) -- 2.39.2