You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
44 lines
1.7 KiB
Racket
44 lines
1.7 KiB
Racket
#lang debug racket
|
|
(define-for-syntax debug-mode #false)
|
|
|
|
(define-syntax (go stx)
|
|
(syntax-case stx ()
|
|
[_
|
|
debug-mode
|
|
#'(begin
|
|
(provide (all-defined-out))
|
|
(define current-doc (make-parameter #false))
|
|
(define current-pdf (make-parameter #false))
|
|
(define current-locale (make-parameter 'us))
|
|
(define current-line-wrap (make-parameter #f)) ; because kp is slow and maybe we want to disable for "draft" mode
|
|
|
|
(define draw-debug? (make-parameter #t))
|
|
(define draw-debug-line? (make-parameter #true))
|
|
(define draw-debug-block? (make-parameter #true))
|
|
(define draw-debug-string? (make-parameter #true))
|
|
|
|
(define debug-page-width (make-parameter 400))
|
|
(define debug-page-height (make-parameter 400))
|
|
(define debug-x-margin (make-parameter 40))
|
|
(define debug-y-margin (make-parameter 40))
|
|
(define zoom-factor (make-parameter 1.5)))]
|
|
[_
|
|
#'(begin
|
|
(provide (all-defined-out))
|
|
(define current-doc (make-parameter #false))
|
|
(define current-pdf (make-parameter #false))
|
|
(define current-locale (make-parameter 'us))
|
|
(define current-line-wrap (make-parameter #f))
|
|
|
|
(define draw-debug? (make-parameter #false))
|
|
(define draw-debug-line? (make-parameter #true))
|
|
(define draw-debug-block? (make-parameter #true))
|
|
(define draw-debug-string? (make-parameter #true))
|
|
|
|
(define debug-page-width (make-parameter #f))
|
|
(define debug-page-height (make-parameter #f))
|
|
(define debug-x-margin (make-parameter #f))
|
|
(define debug-y-margin (make-parameter #f))
|
|
(define zoom-factor (make-parameter 1)))]))
|
|
|
|
(go) |