src/hackerbase.scm

@@ -288,24 +288,23 @@
 
 (define* (check-mailing-list mls name #:pred? (pred? #f))
   (define ml (find-mailman-list mls name))
-  (when ml
+  (let-values (((missing surplus)
-    (let-values (((missing surplus)
+		(mailman-compare-members ml
-		  (mailman-compare-members ml
+					 (mbase-active-emails MB
-					   (mbase-active-emails MB
+							      #:suspended #t
-								#:suspended #t
+							      #:pred? pred?
-								#:pred? pred?
+							      ))))
-								))))
+    (if (null? (cdr ml))
-      (if (null? (cdr ml))
+	(print "Skipping ML check - not loaded")
-	  (print "Skipping ML check - not loaded")
+	(if (and (null? missing)
-	  (if (and (null? missing)
+		 (null? surplus))
-		   (null? surplus))
+	    (print (format "~a mailing list membership in sync." (string-capitalize name)))
-	      (print (format "~a mailing list membership in sync." (string-capitalize name)))
+	    (let ()
-	      (let ()
+	      (print (format "~a mailing list:" (string-capitalize name)))
-		(print (format "~a mailing list:" (string-capitalize name)))
+	      (when (not (null? missing))
-		(when (not (null? missing))
+		(print "  Missing: " missing))
-		  (print "  Missing: " missing))
+	      (when (not (null? surplus))
-		(when (not (null? surplus))
+		(print "  Outsiders: " surplus)))))))
-		  (print "  Outsiders: " surplus))))))))
 
 (define (rada-ml-pred? mr)
   (or (brmember-council? mr)

src/members-fees.scm

@@ -122,21 +122,19 @@
 
  ;; Converts the entry into the fee
  (define (member-calendar-entry->fee e)
-   (with-current-month
+   (if e
-    (car e)
+       (if (member 'existing (cadr e))
-    (if e
+	   (if (member 'suspended (cadr e))
-	(if (member 'existing (cadr e))
+	       0 ; Suspended
-	    (if (member 'suspended (cadr e))
+	       (if (member 'destroyed (cadr e))
-		0			; Suspended
+		   0 ; Destroyed
-		(if (member 'destroyed (cadr e))
+		   (if (member 'student (cadr e))
-		    0			; Destroyed
+		       (lookup-member-fee 'student) ; Student
-		    (if (member 'student (cadr e))
+		       (if (caddr e)
-			(lookup-member-fee 'student) ; Student
+			   (caddr e)
-			(if (caddr e)
+			   (lookup-member-fee 'regular))))) ; Normal
-			    (caddr e)
+	   0) ; Nonexistent - should not happen
-			    (lookup-member-fee 'regular))))) ; Normal
+       0)) ; Nonexistent
-	    0)			     ; Nonexistent - should not happen
-	0))) ; Nonexistent
 
  ;; Converts the calendar into a table where rows represent years and
  ;; contain the year in the first cell and 12 cells for months after

src/texts.scm

@@ -39,7 +39,7 @@
 	 (chicken format))
 
  ;; Short banner
- (define banner-line "HackerBase 1.15.1 (c) 2023 Brmlab, z.s.")
+ (define banner-line "HackerBase 1.15 (c) 2023 Brmlab, z.s.")
 
  ;; Banner source with numbers for ANSI CSI SGR
  (define banner-source "