Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Fix use of # character in Racket lexer #1472

Merged
merged 10 commits into from Apr 2, 2020
Merged

Fix use of # character in Racket lexer #1472

Changes from 1 commit
Commits
Show all changes
10 commits
Select commit Hold shift + click to select a range
65306c0
Add sample code testing multiline comments and true/false constants
pyrmont Mar 31, 2020
84ef4ad
Remove extraneous code from sample
pyrmont Mar 31, 2020
536b07d
Add sample code for false constant
pyrmont Mar 31, 2020
ed3514e
Add rules for multiline comments
pyrmont Mar 31, 2020
1834f28
Improve support for true and false constants
pyrmont Mar 31, 2020
2c1eca0
Expand boolean samples
pyrmont Mar 31, 2020
350697b
Make boolean rule case insensitive
pyrmont Mar 31, 2020
1b96ec7
Add more samples of comments
pyrmont Mar 31, 2020
6daaffe
Support more types of comments
pyrmont Mar 31, 2020
8dec70a
Add better comment to visual sample
pyrmont Apr 2, 2020
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Jump to
Jump to file
Failed to load files.
Diff view
Diff view
13 changes: 13 additions & 0 deletions spec/visual/samples/racket
View file
Open in desktop
Expand Up @@ -2,11 +2,20 @@

;; Single-line comment

;; Multi-line comments

#| Multi-line comment on one line |#

#| Multi-line comment on
two lines |#

#|
# Block comment.
# (define x 3)
# is not highlighted as the commented text.
pyrmont marked this conversation as resolved.
Show resolved Hide resolved
|#


'symbol
`symbol
'(a quoted list)
Expand All @@ -23,6 +32,7 @@

(define (1-crazy-identifier-疯狂的标识符-τρελό-αναγνωριστικό x)
(add1 x))

(check-equal? (1-crazy-identifier-疯狂的标识符-τρελό-αναγνωριστικό 1) 2)

(require xml net/url
Expand Down Expand Up @@ -324,3 +334,6 @@
; as a list item.
(define (render-as-item a-fragment)
`(li ,a-fragment))

;; #true is not highlighted properly
(define ht #true)