tune

pitfall/info.rkt

@@ -1,18 +1,14 @@
 #lang info
 (define collection 'multi)
+(define version "0.0")
+(define test-omit-paths 'all)
 (define deps '("at-exp-lib"
+               "base"
                "beautiful-racket-lib"
                "brag"
                "describe"
+               "fontland"
                "png-image"
+               "rackunit-lib"
                "srfi-lite-lib"
-               "sugar"
-               "debug"
-               "base" 
-               "draw-lib"
-               "rackunit-lib"))
-(define build-deps '("scribble-lib" "racket-doc"))
-(define version "0.0")
-(define pkg-authors '(mb))
-(define test-omit-paths 'all)
-#;(define compile-omit-paths '("pdfkit" "fontkit"))
+               "sugar"))

pitfall/pitfall/embedded.rkt

@@ -1,5 +1,5 @@
 #lang pitfall/racket
-(require "font.rkt" fontkit "reference.rkt")
+(require "font.rkt" fontland "reference.rkt")
 (provide EmbeddedFont)
 
 #|
@@ -205,7 +205,7 @@ HERE
                  
 
 (module+ test
-  (require rackunit fontkit)
+  (require rackunit fontland)
   (define f (openSync "test/assets/Charter.ttf" #f))
   (define ef (make-object EmbeddedFont #f f #f))
   (check-equal? (send ef widthOfString "f" 1000) 321.0)

pitfall/pitfall/font-open.rkt

@@ -1,5 +1,5 @@
 #lang pitfall/racket
-(require "standard-font.rkt" "font.rkt" fontkit "embedded.rkt")
+(require "standard-font.rkt" "font.rkt" fontland "embedded.rkt")
 (provide PDFFont-open)
 
 (define/contract (PDFFont-open document src family id)

pitfall/pitfall/page-test.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
-(require racket/class rackunit "document.rkt" "page.rkt" "reference.rkt" "helper.rkt" sugar/js)
+(require racket/class rackunit "document.rkt" "page.rkt" "reference.rkt" "helper.rkt" sugar/unstable/js)
 (define p (make-object PDFPage (make-object PDFDocument)))
 (check-equal? (· p size) "letter")
 (check-equal? (· p layout) "portrait")

pitfall/pitfall/parse.rkt

@@ -1,5 +1,5 @@
 #lang br
-(require racket/file sugar/cache sugar/port racket/dict (prefix-in zlib: pitfall/zlib))
+(require racket/file sugar/cache sugar/unstable/port racket/dict (prefix-in zlib: pitfall/zlib))
 
 (define dict-key-pattern #px"^/[-:\\w]+")
 

pitfall/pitfall/racket.rkt

@@ -19,12 +19,12 @@
      racket/port
      racket/function
      br/define
-     sugar/class
-     sugar/js
-     sugar/dict
-     sugar/stub
-     sugar/port
-     sugar/contract
+     sugar/unstable/class
+     sugar/unstable/js
+     sugar/unstable/dict
+     sugar/unstable/stub
+     sugar/unstable/port
+     sugar/unstable/contract
      describe)
 
 (module reader syntax/module-reader

pitfall/pitfall/standard-font.rkt

@@ -1,5 +1,5 @@
 #lang pitfall/racket
-(require "afm-font.rkt" "font.rkt" fontkit)
+(require "afm-font.rkt" "font.rkt" fontland)
 (require racket/runtime-path)
 (provide isStandardFont standard-fonts StandardFont)