Add brmember-format module.

src/member-record.scm

@@ -61,8 +61,6 @@
   member-id
   member-suspended-months
 
-  member-format
-
   member<?
 
   member-record-add-payment
@@ -321,29 +319,6 @@
 	     0))
        0))
 
- ;; 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) (member-record-info mr 'nick))
-			     ((#\I) (number->string (member-id mr)))
-			     ((#\S) (number->string (member-suspended-months mr)))
-			     ((#\E)
-			      (let ((n (length (ldict-ref mr 'highlights '()))))
-				(if (eq? n 0)
-				    ""
-				    (sprintf "[~A]" n))))
-			     ((#\~) "~"))
-			   resl))
-	       (loop (cdr fmtl)
-		     (cons (make-string 1 (car fmtl)) resl)))))))
-
  ;; Comparator of member records based on nickname.
  (define (member<? a b)
    (string-ci<? (member-nick a)