resyntax/default-recommendations.rkt at master · jackfirth/resyntax · GitHub

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
#lang racket/base


(require racket/contract/base)


(provide
 (all-from-out resyntax/default-recommendations/boolean-shortcuts
               resyntax/default-recommendations/class-shortcuts
               resyntax/default-recommendations/comparison-shortcuts
               resyntax/default-recommendations/conditional-shortcuts
               resyntax/default-recommendations/console-io-suggestions
               resyntax/default-recommendations/contract-shortcuts
               resyntax/default-recommendations/definition-shortcuts
               resyntax/default-recommendations/dict-suggestions
               resyntax/default-recommendations/exception-suggestions
               resyntax/default-recommendations/file-io-suggestions
               resyntax/default-recommendations/function-definition-shortcuts
               resyntax/default-recommendations/function-shortcuts
               resyntax/default-recommendations/hash-shortcuts
               resyntax/default-recommendations/legacy/define-simple-macro-migration
               resyntax/default-recommendations/legacy/legacy-contract-migrations
               resyntax/default-recommendations/legacy/legacy-struct-migrations
               resyntax/default-recommendations/legacy/legacy-syntax-migrations
               resyntax/default-recommendations/legacy/make-temporary-directory-migration
               resyntax/default-recommendations/legacy/provide-contract-migration
               resyntax/default-recommendations/let-binding-suggestions
               resyntax/default-recommendations/let-replacement/argument-let-replacement
               resyntax/default-recommendations/let-replacement/cond-let-replacement
               resyntax/default-recommendations/let-replacement/let-replacement
               resyntax/default-recommendations/let-replacement/match-let-replacement
               resyntax/default-recommendations/list-shortcuts
               resyntax/default-recommendations/loops/for-loop-shortcuts
               resyntax/default-recommendations/loops/fuse-map-with-for
               resyntax/default-recommendations/loops/list-loopification
               resyntax/default-recommendations/loops/named-let-loopification
               resyntax/default-recommendations/match-shortcuts
               resyntax/default-recommendations/mutability-predicates
               resyntax/default-recommendations/numeric-shortcuts
               resyntax/default-recommendations/require-and-provide-suggestions
               resyntax/default-recommendations/string-shortcuts
               resyntax/default-recommendations/syntax-shortcuts
               resyntax/default-recommendations/syntax-parse-shortcuts
               resyntax/default-recommendations/syntax-rules-shortcuts
               resyntax/default-recommendations/unused-binding-suggestions)
 (contract-out
  [default-recommendations refactoring-suite?]))


(require resyntax/base
         resyntax/default-recommendations/boolean-shortcuts
         resyntax/default-recommendations/class-shortcuts
         resyntax/default-recommendations/comparison-shortcuts
         resyntax/default-recommendations/conditional-shortcuts
         resyntax/default-recommendations/console-io-suggestions
         resyntax/default-recommendations/contract-shortcuts
         resyntax/default-recommendations/definition-shortcuts
         resyntax/default-recommendations/dict-suggestions
         resyntax/default-recommendations/exception-suggestions
         resyntax/default-recommendations/file-io-suggestions
         resyntax/default-recommendations/function-definition-shortcuts
         resyntax/default-recommendations/function-shortcuts
         resyntax/default-recommendations/hash-shortcuts
         resyntax/default-recommendations/legacy/define-simple-macro-migration
         resyntax/default-recommendations/legacy/legacy-contract-migrations
         resyntax/default-recommendations/legacy/legacy-struct-migrations
         resyntax/default-recommendations/legacy/legacy-syntax-migrations
         resyntax/default-recommendations/legacy/make-temporary-directory-migration
         resyntax/default-recommendations/legacy/provide-contract-migration
         resyntax/default-recommendations/let-binding-suggestions
         resyntax/default-recommendations/let-replacement/argument-let-replacement
         resyntax/default-recommendations/let-replacement/cond-let-replacement
         resyntax/default-recommendations/let-replacement/let-replacement
         resyntax/default-recommendations/let-replacement/match-let-replacement
         resyntax/default-recommendations/list-shortcuts
         resyntax/default-recommendations/loops/for-loop-shortcuts
         resyntax/default-recommendations/loops/fuse-map-with-for
         resyntax/default-recommendations/loops/list-loopification
         resyntax/default-recommendations/loops/named-let-loopification
         resyntax/default-recommendations/match-shortcuts
         resyntax/default-recommendations/mutability-predicates
         resyntax/default-recommendations/numeric-shortcuts
         resyntax/default-recommendations/require-and-provide-suggestions
         resyntax/default-recommendations/string-shortcuts
         resyntax/default-recommendations/syntax-parse-shortcuts
         resyntax/default-recommendations/syntax-rules-shortcuts
         resyntax/default-recommendations/syntax-shortcuts
         resyntax/default-recommendations/unused-binding-suggestions)


;@----------------------------------------------------------------------------------------------------


(define-refactoring-suite default-recommendations
  #:suites (argument-let-replacement
            boolean-shortcuts
            class-shortcuts
            comparison-shortcuts
            conditional-shortcuts
            cond-let-replacement
            console-io-suggestions
            contract-shortcuts
            define-simple-macro-migration
            definition-shortcuts
            dict-suggestions
            exception-suggestions
            file-io-suggestions
            for-loop-shortcuts
            fuse-map-with-for
            function-definition-shortcuts
            function-shortcuts
            hash-shortcuts
            legacy-contract-migrations

            ;; Excluded for lots of reasons. See the following github issues:
            ;; - jackfirth/resyntax#47
            ;; - sorawee/fmt#29
            ;; - sorawee/fmt#60
            ;; - sorawee/fmt#65
            ;; legacy-struct-migrations

            legacy-syntax-migrations
            let-binding-suggestions
            let-replacement
            list-loopification
            list-shortcuts
            make-temporary-directory-migration
            match-let-replacement
            match-shortcuts
            mutability-predicates
            named-let-loopification
            numeric-shortcuts
            provide-contract-migration
            require-and-provide-suggestions
            string-shortcuts
            syntax-shortcuts
            syntax-parse-shortcuts
            syntax-rules-shortcuts

            ;; Excluded because of https://github.com/jackfirth/resyntax/issues/410
            ;; unused-binding-suggestions

            ))