! Lexer configuration and styles (ED hook) !

! Match Q-Reg "_" against beginning of current doc's first line !
@[lexer.checkheader]{
  .h

  0,0,1ESPOSITIONFROMLINE:X.h
  EQ.h :S
Q_ Q*EB
}

! Match Q-Reg "_" against end of current doc's file name !
@[lexer.checkname]{
  EQ* ZJ I
 H:SQ_

  Q*EB
}

@[lexer.auto]{
  ! Set up brace lightning !
  :M[color.bracelight],34M[color.set]
  :M[color.error],35M[color.set]
}

! Automatically mung all the lexers and them to "lexer.auto" !
Q*U.#cd EQ.[lexers]
ENQ[$SCITECOPATH]/lexers/*.tes J
<:L;R
  0X.[filename] .-4U.p -S/ .,Q.pX.[name]
  EMQ.[filename]
  EQ[lexer.auto] ZJ
  @I{
    :M[lexer.test.Q.[name]]"S :M[lexer.set.Q.[name]] Oend '
  }
  EQ.[lexers]
L>
Q.#cdEB

! append an "end" label !
:[lexer.auto]!end!