blob: d9f93af0ba927b1a5277b12fd990146dc87e965a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#lang racket
(require racket/cmdline)
(require "src/formatter.rkt")
; (define mangle-parenthesis? (make-parameter #t))
; (define mangle-newlines? (make-parameter #t))
(command-line
#:program "antifmt"
#:once-each
[("-p" "--mangle-parens")
"Toggle mangling of parenthesis: on by default"
(mangle-parens? #f)]
[("-i" "--mangle-indents")
"Toggle mangling of indentation: off by default"
(mangle-indents? #t)]
[("-n" "--mangle-newlines")
"Toggle mangling of newlines: on by default"
(mangle-newlines? #f)]
#:args (loc)
(display
(string-append ; what the fuck
(mangle (parameterize ([read-accept-lang #t] [read-accept-reader #t])
(sequence->list (in-producer read eof
(open-input-file loc)))))
"\n")))
|