diff --git a/pitfall/info.rkt b/pitfall/info.rkt index 313c9aa1..90c5edba 100644 --- a/pitfall/info.rkt +++ b/pitfall/info.rkt @@ -12,4 +12,4 @@ (define build-deps '("scribble-lib" "racket-doc")) (define version "0.0") (define pkg-authors '(mb)) -(define compile-omit-paths '("pdfkit" "fontkit")) \ No newline at end of file +#;(define compile-omit-paths '("pdfkit" "fontkit")) \ No newline at end of file diff --git a/pitfall/pitfall/fonts.rkt b/pitfall/pitfall/fonts.rkt index 374def62..9bc72b49 100644 --- a/pitfall/pitfall/fonts.rkt +++ b/pitfall/pitfall/fonts.rkt @@ -63,6 +63,7 @@ (set-field! _font this val))] ;; load the font [else + (println (format "Load font: ~a" src)) (define id (format "F~a" (increment-field! _fontCount this))) (set-field! _font this (PDFFont-open this src family id)) diff --git a/pitfall/pitfall/text.rkt b/pitfall/pitfall/text.rkt index b34d4533..06839df4 100644 --- a/pitfall/pitfall/text.rkt +++ b/pitfall/pitfall/text.rkt @@ -76,6 +76,7 @@ https://github.com/mbutterick/pdfkit/blob/master/lib/mixins/text.coffee (define/contract (widthOfString this str [options (mhash)]) ((string?) (hash?) . ->*m . number?) + #;(report str 'measuring-width-of) (+ (send (· this _font) widthOfString str (· this _fontSize) (hash-ref options 'features #f)) (* (hash-ref options 'characterSpacing 0) (sub1 (string-length str)))))