26 lines
810 B
Scheme
26 lines
810 B
Scheme
|
|
#lang scheme/base
|
|
(provide current-syntax-font-size
|
|
current-default-columns
|
|
current-colors
|
|
current-suffix-option)
|
|
|
|
;; current-syntax-font-size : parameter of number/#f
|
|
;; When non-false, overrides the default font size
|
|
(define current-syntax-font-size (make-parameter #f))
|
|
|
|
;; current-default-columns : parameter of number
|
|
(define current-default-columns (make-parameter 60))
|
|
|
|
;; current-suffix-option : parameter of SuffixOption
|
|
(define current-suffix-option (make-parameter 'over-limit))
|
|
|
|
(define current-colors
|
|
(make-parameter
|
|
(list "black" "red" "blue"
|
|
"mediumforestgreen" "darkgreen"
|
|
"darkred"
|
|
"cornflowerblue" "royalblue" "steelblue" "darkslategray" "darkblue"
|
|
"indigo" "purple"
|
|
"orange" "salmon" "darkgoldenrod" "olive")))
|