[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 09380cc 1/2: packages/arbitools.el: minor fixes
|
From: |
David Gonzalez Gandara |
|
Subject: |
[elpa] master 09380cc 1/2: packages/arbitools.el: minor fixes |
|
Date: |
Tue, 03 May 2016 18:14:51 +0000 |
branch: master
commit 09380ccb3dd4c39aa20875025bfb83598c414305
Author: David Gonzalez Gandara <address@hidden>
Commit: David Gonzalez Gandara <address@hidden>
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))