brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Much faster payments processing.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-31 09:43:12 +02:00
parent b72f1900e6
commit 3c56578d65
2 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
members-payments.scm
View file

@ -58,10 +58,12 @@
(bank-transaction-varsym transaction))) (bank-transaction-varsym transaction)))
(varsym-id (varsym-id
(or varsym-id0 (or varsym-id0
(string->number (let* ((msg (bank-transaction-message transaction))
(irregex-replace (irregex "[^0-9].*" 'u) (ci (substring-index "," msg))
(bank-transaction-message transaction) (vs (if ci
""))))) (substring msg ci)
msg)))
(string->number vs)))))
(loop (members-base-update mb (loop (members-base-update mb
(lambda (mr) (lambda (mr)
(eq? (member-id mr) (eq? (member-id mr)

1
table.scm
View file

@ -139,7 +139,6 @@
;; Normalizes cell line to required width and handles leading and ;; Normalizes cell line to required width and handles leading and
;; trailing tabs to allow for right and center alignment. ;; trailing tabs to allow for right and center alignment.
(define (table-normalize-cell-line line w) (define (table-normalize-cell-line line w)
(print "tncl " w " \"" line "\"")
(let* ((lst (string->list line)) (let* ((lst (string->list line))
(first-char (if (null? lst) #f (car lst))) (first-char (if (null? lst) #f (car lst)))
(last-char (if (or (null? lst) (last-char (if (or (null? lst)