From 6e80e3da7253097b23e9e9c1f61df0bf8f86824f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Mon, 26 Jun 2023 20:06:08 +0200 Subject: [PATCH] Actually merge dokuwiki groups info. --- src/mbase.scm | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/src/mbase.scm b/src/mbase.scm index 1c566ce..72f8665 100644 --- a/src/mbase.scm +++ b/src/mbase.scm @@ -321,11 +321,16 @@ (values mb rem) (let* ((row (car dw)) (username (car row)) - (mr (find-member-by-nick mb username))) + (mr (find-member-by-nick mb username)) + (groups (list-ref row 3))) (if mr - (let () + (let ((mid (brmember-id mr))) (loop (cdr dw) - mb + (mbase-update mb + (lambda (mr) + (eq? (brmember-id mr) mid)) + (lambda (mr) + (brmember-set mr #:dokuwiki groups))) rem)) (loop (cdr dw) mb