params.rkt

;; This file defines various parameters of fmt

#lang racket/base

(provide current-width
         current-max-blank-lines
         current-indent
         current-limit
         current-app?
         current-ellipsis?
         current-adjust-paren-shape)

(require racket/match
         racket/string
         "common.rkt")

(define current-width (make-parameter 102))
(define current-limit (make-parameter 120))
(define current-max-blank-lines (make-parameter 1))
(define current-indent (make-parameter 0))
(define current-app?
  (make-parameter
   (λ (d)
     (match d
       [(node _ (? app-prefix?) ")" _ _) #t]
       [_ #f]))))
(define current-ellipsis?
  (make-parameter
   (λ (s) (regexp-match #px"^(\\.\\.\\.|\\.\\.\\.\\+|\\.\\.(\\d+))$" s))))

;; `#t` means adjust according to the context (default)
;; `#f` means do not adjust
;; `(cons a b)` means always adjust the opener to `a` and the closer to `b`
(define current-adjust-paren-shape (make-parameter #t))

(define (app-prefix? s)
  (not (or (string-contains? s "#hash")
           (string-contains? s "#("))))