This repository has been archived by the owner on Oct 26, 2023. It is now read-only.
forked from jackfirth/resyntax
-
Notifications
You must be signed in to change notification settings - Fork 0
/
default-recommendations.rkt
79 lines (67 loc) · 3.84 KB
/
default-recommendations.rkt
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
#lang racket/base
(require racket/contract/base)
(provide
(all-from-out resyntax/default-recommendations/boolean-shortcuts
resyntax/default-recommendations/comparison-shortcuts
resyntax/default-recommendations/conditional-shortcuts
resyntax/default-recommendations/contract-shortcuts
resyntax/default-recommendations/for-loop-shortcuts
resyntax/default-recommendations/function-definition-shortcuts
resyntax/default-recommendations/hash-shortcuts
resyntax/default-recommendations/legacy-contract-migrations
resyntax/default-recommendations/legacy-struct-migrations
resyntax/default-recommendations/legacy-syntax-migrations
resyntax/default-recommendations/let-binding-suggestions
resyntax/default-recommendations/list-shortcuts
resyntax/default-recommendations/match-shortcuts
resyntax/default-recommendations/miscellaneous-suggestions
resyntax/default-recommendations/numeric-shortcuts
resyntax/default-recommendations/syntax-shortcuts
resyntax/default-recommendations/syntax-parse-shortcuts
resyntax/default-recommendations/syntax-rules-shortcuts)
(contract-out
[default-recommendations refactoring-suite?]))
(require rebellion/private/static-name
resyntax/default-recommendations/boolean-shortcuts
resyntax/default-recommendations/comparison-shortcuts
resyntax/default-recommendations/conditional-shortcuts
resyntax/default-recommendations/contract-shortcuts
resyntax/default-recommendations/for-loop-shortcuts
resyntax/default-recommendations/function-definition-shortcuts
resyntax/default-recommendations/hash-shortcuts
resyntax/default-recommendations/legacy-contract-migrations
resyntax/default-recommendations/legacy-struct-migrations
resyntax/default-recommendations/legacy-syntax-migrations
resyntax/default-recommendations/let-binding-suggestions
resyntax/default-recommendations/list-shortcuts
resyntax/default-recommendations/match-shortcuts
resyntax/default-recommendations/miscellaneous-suggestions
resyntax/default-recommendations/numeric-shortcuts
resyntax/default-recommendations/syntax-shortcuts
resyntax/default-recommendations/syntax-parse-shortcuts
resyntax/default-recommendations/syntax-rules-shortcuts
resyntax/refactoring-suite)
;@----------------------------------------------------------------------------------------------------
(define default-recommendations
(refactoring-suite
#:name (name default-recommendations)
#:rules
(append (refactoring-suite-rules boolean-shortcuts)
(refactoring-suite-rules comparison-shortcuts)
(refactoring-suite-rules conditional-shortcuts)
(refactoring-suite-rules contract-shortcuts)
(refactoring-suite-rules for-loop-shortcuts)
(refactoring-suite-rules function-definition-shortcuts)
(refactoring-suite-rules hash-shortcuts)
(refactoring-suite-rules legacy-contract-migrations)
;; TODO(https://github.com/jackfirth/resyntax/issues/47)
;; (refactoring-suite-rules legacy-struct-migrations)
(refactoring-suite-rules legacy-syntax-migrations)
(refactoring-suite-rules let-binding-suggestions)
(refactoring-suite-rules list-shortcuts)
(refactoring-suite-rules match-shortcuts)
(refactoring-suite-rules miscellaneous-suggestions)
(refactoring-suite-rules numeric-shortcuts)
(refactoring-suite-rules syntax-shortcuts)
(refactoring-suite-rules syntax-parse-shortcuts)
(refactoring-suite-rules syntax-rules-shortcuts))))