@@ -23,45 +23,46 @@
 (define (str-first-char->number str)
   (char->integer (string-ref str 0)))
  
 ;; example of how to set up and write target mappers
 ;;
-(hash-table-set! *target-mappers*
-		 'prefix-contour
-		 (lambda (target run-name area area-path reason contour mode-patt)
-		   (conc contour "/" target)))
-(hash-table-set! *target-mappers*
-		 'prefix-area-contour
-		 (lambda (target run-name area area-path reason contour mode-patt)
-		   (conc area "/" contour "/" target)))
-  
-(hash-table-set! *runname-mappers*
-		 'corporate-ww
-		 (lambda (target run-name area area-path reason contour mode-patt)
-		   (print "corporate-ww called with: target=" target " run-name=" run-name " area=" area " area-path=" area-path " reason=" reason " contour=" contour " mode-patt=" mode-patt)
-		   (let* ((last-name   (get-last-runname area-path target))
-			  (last-letter (let* ((ch (if (string? last-name)
-						      (let ((len (string-length last-name)))
-							(substring last-name (- len 1) len))
-						      "a"))
-					      (chnum (str-first-char->number ch))
-					      (a     (str-first-char->number "a"))
-					      (z     (str-first-char->number "z")))
-					 (if (and (>= chnum a)(<= chnum z))
-					     chnum
-					     #f)))
-			  (next-letter (if last-letter
-					   (list->string
-					    (list
-					     (integer->char
-					      (+ last-letter 1)))) ;; surely there is an easier way?
-					   "a")))
-		     ;; (print "last-name: " last-name " last-letter: " last-letter " next-letter: " next-letter)
-		     (conc (seconds->wwdate (current-seconds)) next-letter))))
-
-(hash-table-set! *runname-mappers*
-		 'auto
-		 (lambda (target run-name area area-path reason contour mode-patt)
-		   "auto-eh"))
-
-;; (print "Got here!")
+(add-target-mapper 'prefix-contour
+		   (lambda (target run-name area area-path reason contour mode-patt)
+		     (conc contour "/" target)))
+(add-target-mapper 'prefix-area-contour
+		   (lambda (target run-name area area-path reason contour mode-patt)
+		     (conc area "/" contour "/" target)))
+  
+(add-runname-mapper 'corporate-ww
+		    (lambda (target run-name area area-path reason contour mode-patt)
+		      (print "corporate-ww called with: target=" target " run-name=" run-name " area=" area " area-path=" area-path " reason=" reason " contour=" contour " mode-patt=" mode-patt)
+		      (let* ((last-name   (get-last-runname area-path target))
+			     (last-letter (let* ((ch (if (string? last-name)
+							 (let ((len (string-length last-name)))
+							   (substring last-name (- len 1) len))
+							 "a"))
+						 (chnum (str-first-char->number ch))
+						 (a     (str-first-char->number "a"))
+						 (z     (str-first-char->number "z")))
+					    (if (and (>= chnum a)(<= chnum z))
+						chnum
+						#f)))
+			     (next-letter (if last-letter
+					      (list->string
+					       (list
+						(integer->char
+						 (+ last-letter 1)))) ;; surely there is an easier way?
+					      "a")))
+			;; (print "last-name: " last-name " last-letter: " last-letter " next-letter: " next-letter)
+			(conc (seconds->wwdate (current-seconds)) next-letter))))
+
+(add-runname-mapper 'auto
+		    (lambda (target run-name area area-path reason contour mode-patt)
+		      "auto-eh"))
+
+;; run only areas where first letter of area name is "a"
+;;
+(add-area-checker 'first-letter-a
+		 (lambda (area runkey)
+		   (string-match "^a.*$" area)))
+