
#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")))
