1
2
3
4
5
6
7
8
|
;; example of how to set up and write target mappers
;;
(define *target-mappers*
`((prefix-contour . ,(lambda (target run-name area area-path reason contour mode-patt)
(conc contour "/" target)))))
;; (print "Yep, got here!")
|
|
|
>
>
>
|
1
2
3
4
5
6
7
8
9
10
11
|
;; example of how to set up and write target mappers
;;
(define *target-mappers*
`((prefix-contour . ,(lambda (target run-name area area-path reason contour mode-patt)
(conc contour "/" target)))
(prefix-area-contour . ,(lambda (target run-name area area-path reason contour mode-patt)
(conc area "/" contour "/" target)))))
;; (print "Yep, got here!")
|