38 lines
836 B
Common Lisp
38 lines
836 B
Common Lisp
|
(letrec (
|
||
|
|
(defaultFontFormat
|
||
|
|
'(("fontFamily" "Gentium")
|
||
|
|
("color" "#ff0000")
|
||
|
|
("size" 12)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
(map (lambda (f l)
|
||
|
|
(if (!= l '())
|
||
|
|
(cons (f (car l)) (map f (cdr l)))
|
||
|
|
'())))
|
||
|
|
(emptyDict '())
|
||
|
|
(extendDict (lambda (dict var data) (cons (cons var (cons data '())) dict)))
|
||
|
|
(dictRef (lambda (dict key)
|
||
|
|
(if (= dict '()) false
|
||
|
|
(if (= key (car (car dict))) (car (cdr (car dict))) (dictRef (cdr dict) key))
|
||
|
|
)))
|
||
|
|
)
|
||
|
|
|
||
|
|
(begin
|
||
|
|
(addPDFPage '())
|
||
|
|
(drawText
|
||
|
|
"Gentium"
|
||
|
|
"#ff0000"
|
||
|
|
"12"
|
||
|
|
40.0
|
||
|
|
50.0
|
||
|
|
"blah"
|
||
|
|
)
|
||
|
|
(addPDFPage '())
|
||
|
|
|
||
|
|
(map (lambda (x) (+ x 2)) '(8 9 10))
|
||
|
|
(let ((dict emptyDict))
|
||
|
|
(let ((dictExtended
|
||
|
|
(extendDict
|
||
|
|
(extendDict emptyDict 1 2) 2 4)))
|
||
|
|
(dictRef dictExtended 2)
|
||
|
|
))))
|