(CL:DEFPARAMETER *HTML.ALL-GENERATED-FONT-SIZES*
  '(6 8 10 12 14 16 18 20 24 32 34 36 38 40 42 44 46 48 50 92))

(CL:DEFPARAMETER *HTML.ALL-GENERATED-FONT-FACES* '("mrr" "mir" "brr" "bir"))

(CL:DEFUN HTML.COMPLETE-FONT-FAMILY (FAMILY)
  "Call COMPLETE.FONT on every face and size of the font family for the HTML device"
  (|for| SIZE |in| *HTML.ALL-GENERATED-FONT-SIZES* |do|
	 (|for| FACE |in| *HTML.ALL-GENERATED-FONT-FACES* |do|
		(CL:FORMAT T "Completing ~a ~d ~a~%" FAMILY SIZE FACE)
		(COMPLETE.FONT (|create| FONTSPEC FSFAMILY _ FAMILY FSSIZE _ SIZE FSFACE _ FACE FSROTATION _ 0
					 FSDEVICE _ HTML.FONTCREATE.DEVICENAME))
		(BLOCK 75))))

;; Call it:
;; (HTML.COMPLETE-FONT-FAMILY 'NOTO-SANS)