«m:;; »«x:-*- racket-indent-sequence-depth: 100; racket-indent-curly-as-sequence: t; faceup-properties: (face syntax-table); -*-
»
«m:;;; »«x:NOTE: After changing this file you will need to M-x faceup-write-file
»«m:;;; »«x:to regenerate the .faceup test comparison file.
»«m:;;;»«x:
»«m:;;; »«x:NOTE: You may need to disable certain features temporarily while
»«m:;;; »«x:doing M-x faceup-write-file. See CONTRIBUTING.md for examples.
»
«k:#lang» «v:racket»

(«k:require» xml)
(«k:provide» valid-bucket-name?)

«m:;; »«x:Various def* forms are font-locked:
»
(«k:define» («f:function» foo)
  «c:#t»)

(«k:define» ((«f:curried-function» x) y)
  («b:list» x y))

(«k:define» «v:a-var» «c:10»)

(«b:define/contract» («f:f2» x)
  («b:any/c» . «b:->» . «b:any»)
  «c:#t»)

(«k:define-values» («v:1st-var 2nd-var») («b:values» «c:1» «c:2»))

(define-thing «v:foo»)  «m:;»«x:bug 276
»
«m:;; »«x:let: font-lock identifiers
»
(«k:let» ([«v:foo» «c:10»]
      [«v:bar» «c:20»])
  foo)

(«k:let» «f:loop» ([«v:x» «c:10»])
  («k:unless» («b:zero?» x)
    (loop («b:sub1» x))))

(«k:let*» ([«v:foo» «c:10»]
       [«v:bar» «c:20»])
  foo)

(«k:let-values» ([(«v:a» «v:b») («b:values» «c:1» «c:2»)])
  («b:values» a b))

(«k:let*-values» ([(«v:a» «v:b») («b:values» «c:1» «c:2»)])
  («b:values» a b))

(«k:letrec-values» ([(«v:a» «v:b») («b:values» «c:1» «c:2»)])
  («b:values» a b))

(«k:let-syntax» ([«v:foo» «(syntax-table):(6):«:racket-reader-syntax-quoted-symbol-face:#'»»«:racket-reader-syntax-quoted-symbol-face:foo»])
  foo)

(«k:letrec-syntax» ([«v:foo» «(syntax-table):(6):«:racket-reader-syntax-quoted-symbol-face:#'»»«:racket-reader-syntax-quoted-symbol-face:foo»])
  foo)

(«k:let-syntaxes» ([(«v:foo») «(syntax-table):(6):«:racket-reader-syntax-quoted-symbol-face:#'»»«:racket-reader-syntax-quoted-symbol-face:foo»])
  foo)

(«k:letrec-syntaxes» ([(«v:foo») «(syntax-table):(6):«:racket-reader-syntax-quoted-symbol-face:#'»»«:racket-reader-syntax-quoted-symbol-face:foo»])
  foo)

(«k:letrec-syntaxes+values» ([(«v:foo») «(syntax-table):(6):«:racket-reader-syntax-quoted-symbol-face:#'»»«:racket-reader-syntax-quoted-symbol-face:foo»])
                        ([(a b) («b:values» «c:1» «c:2»)])
  foo)

«m:;; »«x:for/fold is indented correctly:
»(«k:for/fold» ([str «s:""»])
          ([ss '(«s:"a"» «s:"b"» «s:"c"»)])
  («b:string-append» str ss))

(«k:for/foldr» ([str «s:""»])
           ([ss '(«s:"a"» «s:"b"» «s:"c"»)])
  («b:string-append» str ss))

«m:;; »«x:Auto-converts word `lambda` to `λ`:
»(«k:lambda» (x) «c:#t»)

«m:;; »«x:Or use M-C-y to insert to insert `λ` char.
»
«m:;; »«x:Smart indentation for quoted lists:
»'(«c:1» «c:2»
  «c:3» «c:4»)

«m:;; »«x:Smart indentation for vector literals:
»«(syntax-table):(6):#»(«c:1» «c:2»
  «c:3» «c:4»)

«m:;; »«x:Smart indentation for Rackjure dict literals:
»(«k:module» «f:x» «v:rackjure»
  {«:racket-reader-quoted-symbol-face:'a» «c:0»
   «:racket-reader-quoted-symbol-face:'b» «c:2»})

«m:;; »«x:Silly test submodule example.
»«m:;; »«x:Try using C-c C-f to Fold (hide) it, and C-c C-u to Unfold it.
»(«k:module+» «f:test»
  («k:require» rackunit)
  (check-true «c:#t»))

«m:;; »«x:Single line comment
»
«x:#|

Multi-line
comment

|#»

«m:;; »«x:Issue 362
»
«x:#|aaa() |#»

«x:#|(hello)|#»

«(syntax-table):(6):«m:#;»»«:racket--sexp-comment--default:(sexpr comment)»

«m:;; »«x:Nested sexpr comments
»
(«b:list» «c:2»
      «(syntax-table):(6):«m:#;»»«:racket--sexp-comment--font-lock-constant-face:2»)

(«b:list» «c:1»
      «(syntax-table):(6):«m:#;»»«:racket--sexp-comment--font-lock-constant-face:4»
      «(syntax-table):(6):«m:#;»»«:racket--sexp-comment--default:(»«:racket--sexp-comment--font-lock-constant-face:3»«:racket--sexp-comment--default:)»)

(«k:let» («(syntax-table):(6):«m:#;»»«:racket--sexp-comment--default:[»«:racket--sexp-comment--font-lock-variable-name-face:x»«:racket--sexp-comment--default: «(syntax-table):(6):#;»»«:racket--sexp-comment--font-lock-constant-face:1»«:racket--sexp-comment--default:]»
      [«v:y» «c:2»])
  y)

«m:;; »«x:Issue 388
»«c:1» «m:; »«(syntax-table):(6):«x:#;»»«x:
»«c:2»

«m:;; »«x:Issue 408
»
«s:"«(syntax-table):(6):#;»"»whatever
«s:"«(syntax-table):(6):#;»"»(whatever)
«s:"«(syntax-table):(6):#;»"»
(whatever)

«m:;; »«x:Issue 432
»
«(syntax-table):(6):«m:#;»» «(syntax-table):(6):«m:#;»» «:racket--sexp-comment--racket-reader-quoted-symbol-face:'comment-me» «:racket--sexp-comment--racket-reader-quoted-symbol-face:'comment-me» «:racket-reader-quoted-symbol-face:'but-not-me»

«(syntax-table):(6):«m:#;#;»» «:racket--sexp-comment--racket-reader-quoted-symbol-face:'comment-me» «:racket--sexp-comment--racket-reader-quoted-symbol-face:'comment-me» «:racket-reader-quoted-symbol-face:'but-not-me»

«(syntax-table):(6):«m:#;»» «(syntax-table):(6):«m:#;»» «(syntax-table):(6):«m:#;»» «:racket--sexp-comment--racket-reader-quoted-symbol-face:'comment-me» «:racket--sexp-comment--racket-reader-quoted-symbol-face:'comment-me» «:racket--sexp-comment--racket-reader-quoted-symbol-face:'comment-me» «:racket-reader-quoted-symbol-face:'but-not-me»

«(syntax-table):(6):«m:#;#;#;»» «:racket--sexp-comment--racket-reader-quoted-symbol-face:'comment-me» «:racket--sexp-comment--racket-reader-quoted-symbol-face:'comment-me» «:racket--sexp-comment--racket-reader-quoted-symbol-face:'comment-me» «:racket-reader-quoted-symbol-face:'but-not-me»

«(syntax-table):(6):«m:#;»» «m:;; »«x:comment
»«m:;; »«x:comment
»«(syntax-table):(6):«m:#;»» «x:#| comment |#»
«:racket--sexp-comment--racket-reader-quoted-symbol-face:'comment-me»
«:racket--sexp-comment--racket-reader-quoted-symbol-face:'comment-me»
«:racket-reader-quoted-symbol-face:'but-not-me»


(«k:define» «v:x» «:racket-here-string-face:#<<FOO«(syntax-table):(15):
»asdfasdf
asdfasdf
asdfasdf
FOO«(syntax-table):(15):
»»  )

«(syntax-table):(6):«m:#;»»«:racket--sexp-comment--default:(»«:racket--sexp-comment--font-lock-keyword-face:define»«:racket--sexp-comment--default: »«:racket--sexp-comment--font-lock-variable-name-face:x»«:racket--sexp-comment--default: »«:racket--sexp-comment--racket-here-string-face:#<<BAR«(syntax-table):(15):
»asdfasdf
asdfasdf
asdfasdf
BAR«(syntax-table):(15):
»»«:racket--sexp-comment--default:    )»

(«k:define» «v:x» «:racket-here-string-face:#<<Hello World«(syntax-table):(15):
»asdfasdf
asdfasdf
asdfasdf
Hello World«(syntax-table):(15):
»»  )

«(syntax-table):(6):«m:#;»»«:racket--sexp-comment--default:(»«:racket--sexp-comment--font-lock-keyword-face:define»«:racket--sexp-comment--default: »«:racket--sexp-comment--font-lock-variable-name-face:x»«:racket--sexp-comment--default: »«:racket--sexp-comment--racket-here-string-face:#<<Hi Racket«(syntax-table):(15):
»asdfasdf
asdfasdf
asdfasdf
Hi Racket«(syntax-table):(15):
»»«:racket--sexp-comment--default:    )»

«(syntax-table):(2):|identifier with spaces|»

«(syntax-table):(2):|;no comment|»

«(syntax-table):(2):| #|»no comment«(syntax-table):(2):|# |»

«m:;; »«x:Issue 735
»«(syntax-table):(2):|foo|» «(syntax-table):(2):|bar|»

(«k:define» («f:a-function» x «:racket-keyword-argument-face:#:keyword» [y «c:0»])
  («k:and» («b:append» («b:car» '(«c:1» «c:2» «c:3»))))
  («b:regexp-match?» «(syntax-table):(6):«c:#rx»»«s:"foobar"» «s:"foobar"»)
  («b:regexp-match?» «(syntax-table):(6):«c:#px»»«s:"foobar"» «s:"foobar"»)
  («k:define» «v:a» «c:1»)
  («k:let» ([«v:a» «s:"foo"»]
        [«v:b» «s:"bar"»])
    («b:displayln» b))
  («k:let*» ([«v:a» «s:"foo"»]
         [«v:b» «s:"bar"»])
    («b:displayln» b))
  («k:let-values» ([(«v:a» «v:b») («b:values» «c:1» «c:2»)])
    «c:#t»)
  («k:for/list» ([x («k:in-list» («b:list» «c:1» «c:2» («b:list» «c:3» «c:4»)))])
    («k:cond» [(«b:pair?» x) («b:car» x)]
          [«k:else» x])))

«m:;; »«x:Issue 261
»«s:"@«(syntax-table):(2):|widget-id|»"» @«(syntax-table):(2):|foo|»

«m:;; »«x:Issue 298
»(«k:define» «v:x» («k:begin» «s:"|"» '\|))

«m:;; »«x:Issue 376
»(«k:define» «(syntax-table):(2):«v:||»» («(syntax-table):(2):|list|»))

(«k:define» («f:foo»)
  («k:let» ([«v:x» «c:10»])
    «c:#t»)

  («k:let» ([«v:x» «c:1»]
        [«v:y» «c:2»])
    «c:#t»)

  («k:define» «v:1/2-the-way» «c:0»)
  («k:define» «v:less-than-1/2» «c:0»)

  «m:;; »«x:Self-eval examples
»  («b:values»
   1/2-the-way                            «m:;»«x:should NOT be self-eval
»   less-than-1/2                          «m:;»«x:should NOT be self-eval
»   «c:+inf.0» «c:-inf.0» «c:+inf.f» «c:-inf.f» «c:+inf.t» «c:-inf.t»
   «c:+nan.0» «c:-nan.0» «c:+nan.f» «c:-nan.f» «c:+nan.t» «c:-nan.t»
   «c:#t» «c:#T» «c:#true»
   «c:#f» «c:#F» «c:#false»
   «c:1»
   «c:1.0»
   «c:1/2»
   «c:-1/2»
   «c:#b100»
   «c:#o123»
   «c:#d123»
   «c:#x7f7f»
   «:racket-reader-quoted-symbol-face:'symbol»
   «(syntax-table):(2):«:racket-reader-quoted-symbol-face:'|symbol with spaces|»»
   «(syntax-table):(2):«:racket-reader-quoted-symbol-face:'|;no comment|»»
   «(syntax-table):(2):«:racket-reader-quoted-symbol-face:'| #|»»«:racket-reader-quoted-symbol-face:no comment«(syntax-table):(2):|# |»»
   «:racket-reader-quoted-symbol-face:'symbol-with-no-alpha/numeric-chars»
   «(syntax-table):(2):«c:#\c»»
   «(syntax-table):(2):«c:#\space»»
   «(syntax-table):(2):«c:#\newline»»

   «m:;; »«x:Literal number examples
»
   «m:;; »«x:#b
»   «c:#b1.1»
   «c:#b-1.1»
   «c:#b1e1»
   «c:#b0/1»
   «c:#b1/1»
   «c:#b1e-1»
   «c:#b101»

   «m:;; »«x:#d
»   «c:#d-1.23»
   «c:#d1.123»
   «c:#d1e3»
   «c:#d1e-22»
   «c:#d1/2»
   «c:#d-1/2»
   «c:#d1»
   «c:#d-1»

   «m:;; »«x:No # reader prefix -- same as #d
»   «c:-1.23»
   «c:1.123»
   «c:1e3»
   «c:1e-22»
   «c:1/2»
   «c:-1/2»
   «c:1»
   «c:-1»

   «m:;; »«x:#e
»   «c:#e-1.23»
   «c:#e1.123»
   «c:#e1e3»
   «c:#e1e-22»
   «c:#e1»
   «c:#e-1»
   «c:#e1/2»
   «c:#e-1/2»

   «m:;; »«x:#i always float
»   «c:#i-1.23»
   «c:#i1.123»
   «c:#i1e3»
   «c:#i1e-22»
   «c:#i1/2»
   «c:#i-1/2»
   «c:#i1»
   «c:#i-1»

   «m:;; »«x:#o
»   «c:#o777.777»
   «c:#o-777.777»
   «c:#o777e777»
   «c:#o777e-777»
   «c:#o3/7»
   «c:#o-3/7»
   «c:#o777»
   «c:#o-777»

   «m:;; »«x:#x
»   «c:#x-f.f»
   «c:#xf.f»
   «c:#x-f»
   «c:#xf»

   «m:;; »«x:complex
»   «c:-1/10e1+10/1f10i»
   «c:#d-1/10e1+10/1f10i»
   «c:#e-1/10e1+10/1f10i»
   «c:#i-1/10e1+10/1f10i»
   «c:#x-1/10e1+10/1f10i»
   «c:#b-1/10e1+10/1f10i»
   «c:#o-1/10e1+10/1f10i»

   «c:+10.1f10-1.10e1i»
   «c:#d+10.1f10-1.10e1i»
   «c:#e+10.1f10-1.10e1i»
   «c:#i+10.1f10-1.10e1i»
   «c:#x+10.1f10-1.10e1i»
   «c:#b+10.1f10-1.10e1i»
   «c:#o+10.1f10-1.10e1i»

   «m:;; »«x:exact complex, e.g. issue #445
»   «c:1+2i»
   «c:1/2+3/4i»
   «c:1.0+3.0e7i»

   «m:;; »«x:negative exponent, e.g. issue #442
»   «c:2.0e1»
   «c:-2.0e2»
   «c:-1e-1»

   «m:;; »«x:extflonum
»   «c:10.1t10»
   «c:#d10.1t10»
   «c:#x10.1t10»
   «c:#b10.1t10»
   «c:#o10.1t10»
   ))

(«b:define/contract» («f:valid-bucket-name?» s «:racket-keyword-argument-face:#:keyword» [dns-compliant? «c:#t»])
  ((«b:string?») («:racket-keyword-argument-face:#:keyword» «b:boolean?») . «b:->*» . «b:boolean?»)
  («k:cond»
    [dns-compliant?
     («k:and» («b:<=» «c:3» («b:string-length» s)) («b:<=» («b:string-length» s) «c:63»)
          («b:not» («b:regexp-match» «(syntax-table):(6):«c:#px»»«s:"\\d{1,3}\\.\\d{1,3}\\.\\d{1,3}\\.\\d{1,3}"» s))
          («k:for/and» ([s («b:regexp-split» «(syntax-table):(6):«c:#rx»»«s:"\\."» s)])
            («k:define» («f:valid-first-or-last?» c)
              («k:or» («b:char-lower-case?» («b:string-ref» s «c:0»))
                  («b:char-numeric?» («b:string-ref» s «c:0»))))
            («k:define» («f:valid-mid?» c)
              («k:or» (valid-first-or-last? c)
                  («b:equal?» c «(syntax-table):(2):«c:#\-»»)))
            («k:define» «v:len» («b:string-length» s))
            («k:and» («b:<» «c:0» len)
                 (valid-first-or-last? («b:string-ref» s «c:0»))
                 (valid-first-or-last? («b:string-ref» s («b:sub1» len)))
                 («k:or» («b:<=» len «c:2»)
                     («k:for/and» ([c («b:substring» s «c:1» («b:sub1» len))])
                       (valid-mid? c))))))]
    [«k:else»
     («k:and» («b:<=» («b:string-length» s) «c:255»)
          («k:for/and» ([c s])
            («k:or» («b:char-numeric?» c)
                («b:char-lower-case?» c)
                («b:char-upper-case?» c)
                («b:equal?» c «(syntax-table):(2):«c:#\.»»)
                («b:equal?» c «(syntax-table):(2):«c:#\-»»)
                («b:equal?» c «(syntax-table):(2):«c:#\_»»))))]))

(«b:displayln» «s:"I'm running!"»)

«m:;; »«x:Issue 366
»«(syntax-table):(6):#»«s:"1"»
«(syntax-table):(6):#»«s:"22"»
«(syntax-table):(6):#»«s:"333"»

«m:;; »«x:Issue 448
»(fun «:racket-keyword-argument-face:#:1» «(syntax-table):(6):#»«s:"a"»)
(fun «:racket-keyword-argument-face:#:12» «(syntax-table):(6):#»«s:"a"»)
(fun «:racket-keyword-argument-face:#:123» «(syntax-table):(6):#»«s:"a"»)
(fun «:racket-keyword-argument-face:#:1234» «(syntax-table):(6):#»«s:"a"»)
(fun «:racket-keyword-argument-face:#:1» «(syntax-table):(6):«c:#px»»«s:"a"»)
(fun «:racket-keyword-argument-face:#:12» «(syntax-table):(6):«c:#px»»«s:"a"»)
(fun «:racket-keyword-argument-face:#:123» «(syntax-table):(6):«c:#px»»«s:"a"»)
(fun «:racket-keyword-argument-face:#:1234» «(syntax-table):(6):«c:#px»»«s:"a"»)

«m:;; »«x:Issue 463
»(«k:or» («b:equal?» c «(syntax-table):(2):«c:#\"»») («b:equal?» c «(syntax-table):(2):«c:#\'»»))
«(syntax-table):(2):«c:#\"»» «(syntax-table):(2):«c:#\"»»
«(syntax-table):(2):«c:#\"»» «m:;»«x:comment
»«(syntax-table):(2):«c:#\'»» «(syntax-table):(2):«c:#\'»»
«(syntax-table):(2):«c:#\'»» «m:;»«x:comment
»«(syntax-table):(2):«c:#\nul»» «(syntax-table):(2):«c:#\null»» «(syntax-table):(2):«c:#\backspace»» «(syntax-table):(2):«c:#\tab»» «(syntax-table):(2):«c:#\vtab»» «(syntax-table):(2):«c:#\newline»» «(syntax-table):(2):«c:#\linefeed»»
«(syntax-table):(2):«c:#\page»» «(syntax-table):(2):«c:#\return»» «(syntax-table):(2):«c:#\space»» «(syntax-table):(2):«c:#\rubout»»
«(syntax-table):(2):«c:#\012»»
«(syntax-table):(2):«c:#\uF»»
«(syntax-table):(2):«c:#\uFF»»
«(syntax-table):(2):«c:#\uFFF»»
«(syntax-table):(2):«c:#\uFFFF»»
«(syntax-table):(2):«c:#\Ufffff»»
«(syntax-table):(2):«c:#\Uffffff»»
«(syntax-table):(2):«c:#\a»» «(syntax-table):(2):«c:#\z»»
«(syntax-table):(2):«c:#\λ»»

«m:;; »«x:Issue 478
»(«x:#|blah blah blah|#» «k:begin»)

«m:;; »«x:Issue 534
»(«k:define» «v:foo‾bar» «c:42»)
(«k:let» ([«v:foo‾bar» «c:42»]) foo‾bar)

«m:;; »«x:Issue 546
»«:racket-reader-quoted-symbol-face:'C#» («b:add1» «c:1»)

«m:;; »«x:Examples of quoted expressions that should receive
»«m:;; »«x:font-lock-string-face, font-lock-constant-face,
»«m:;; »«x:racket-reader-quoted-symbol-face, or none of those.
»'«s:"string"»
'«(syntax-table):(6):«c:#px»»«s:"regexp"»
'«c:1234»
'«c:#x1234»
'«c:#t»
'«c:+NaN.0»
'«(syntax-table):(2):«c:#\A»»
«:racket-reader-quoted-symbol-face:'symbol»
«:racket-reader-quoted-symbol-face:`symbol»
«:racket-reader-quoted-symbol-face:'1symbol» «m:;»«x:legal Racket identifier
»«:racket-reader-quoted-symbol-face:`1symbol»
«:racket-reader-quoted-symbol-face:'+»
«:racket-reader-quoted-symbol-face:'Noon.0»
«(syntax-table):(2):«:racket-reader-quoted-symbol-face:'|foo bar|»»
«(syntax-table):(2):«:racket-reader-quoted-symbol-face:'|foo \|»»«:racket-reader-quoted-symbol-face: bar|»
'(«s:"string"» «c:1» symbol) «m:;»«x:symbol not directly quoted
»'(a b c)

«m:;; »«x:Examples of quoted expressions that should receive
»«m:;; »«x:font-lock-string-face, font-lock-constant-face,
»«m:;; »«x:racket-reader-syntax-quoted-symbol-face, or none of those.
»«(syntax-table):(6):#'»«s:"string"»
«(syntax-table):(6):#'«c:#px»»«s:"regexp"»
«(syntax-table):(6):#'»«c:1234»
«(syntax-table):(6):#'»«c:#x1234»
«(syntax-table):(6):#'»«c:#t»
«(syntax-table):(6):#'»«c:+NaN.0»
«(syntax-table):(6):#'»«(syntax-table):(2):«c:#\A»»
«(syntax-table):(6):«:racket-reader-syntax-quoted-symbol-face:#'»»«:racket-reader-syntax-quoted-symbol-face:symbol»
«(syntax-table):(6):«:racket-reader-syntax-quoted-symbol-face:#`»»«:racket-reader-syntax-quoted-symbol-face:symbol»
«(syntax-table):(6):«:racket-reader-syntax-quoted-symbol-face:#'»»«:racket-reader-syntax-quoted-symbol-face:1symbol» «m:;»«x:legal Racket identifier
»«(syntax-table):(6):«:racket-reader-syntax-quoted-symbol-face:#`»»«:racket-reader-syntax-quoted-symbol-face:1symbol»
«(syntax-table):(6):«:racket-reader-syntax-quoted-symbol-face:#'»»«:racket-reader-syntax-quoted-symbol-face:+»
«(syntax-table):(6):«:racket-reader-syntax-quoted-symbol-face:#'»»«:racket-reader-syntax-quoted-symbol-face:Noon.0»
«(syntax-table):(6):«:racket-reader-syntax-quoted-symbol-face:#'»»«:racket-reader-syntax-quoted-symbol-face:|foo bar|»
«(syntax-table):(6):«:racket-reader-syntax-quoted-symbol-face:#'»»«:racket-reader-syntax-quoted-symbol-face:|foo \«(syntax-table):(2):| bar|»»
«(syntax-table):(6):#'»(«s:"string"» «c:1» symbol) «m:;»«x:symbol not directly quoted
»«(syntax-table):(6):#'»(a b c)