branch: master
commit 09380ccb3dd4c39aa20875025bfb83598c414305
Author: David Gonzalez Gandara <[email protected]>
Commit: David Gonzalez Gandara <[email protected]>
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 8c43e78..76fe0bc 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))
