Finish member-format for nick and id.

member-record.scm

@@ -37,6 +37,7 @@
   member-nick
   member-id
   member-existing?
+  member-format
   member-record-tests!
   )
 
@@ -136,6 +137,23 @@
      (and joined
 	  (month<? joined (*current-month*)))))
 
+ ;; Member formatting function for general use.
+ (define (member-format fmt mr)
+   (let loop ((fmtl (string->list fmt))
+	      (resl '()))
+     (if (null? fmtl)
+	 (string-intersperse (reverse resl) "")
+	 (let ((ch (car fmtl)))
+	   (if (eq? ch #\~)
+	       (loop (cddr fmtl)
+		     (cons (case (cadr fmtl)
+			     ((#\N) (mr-ref mr 'nick))
+			     ((#\I) (number->string (mr-ref mr 'id)))
+			     ((#\~) "~"))
+			   resl))
+	       (loop (cdr fmtl)
+		     (cons (make-string 1 (car fmtl)) resl)))))))
+
  ;; Performs module self-tests.
  (define (member-record-tests!)
    (run-tests

members-base.scm

@@ -259,9 +259,7 @@
 		(car sl))))
      (string-intersperse
       (map (lambda (mr)
-	     (sprintf "~A (~A)"
+	     (member-format "~N (~I)" mr))
-		      (member-id mr)
-		      (member-nick mr)))
 	   mrs))))
 
  ;; Returns dictionary with statistics about the members base.