Re: Including tex commands in a list

[steve-humphreys@gmx.com]

I am using font lock to highlight keywords in a minor mode.
Have changed from using "concat" to using "rx" as you suggested.
However it does not seem equivalent.

(defconst crucible-mtksy-keywords
  `(;; Greek
    (,(concat "\\\\\\<\\(alpha\\|beta\\|chi\\|delta\\|"
              "Delta\\|epsilon\\|varepsilon\\|eta\\|"
              "gamma\\|Gamma\\|iota\\|kappa \\|"
              "lambda\\|Lambda\\|mu\\|nu\\|"
              "omega\\|Omega\\|phi\\|varphi\\|"
              "Phi\\|pi\\|varpi\\|Pi\\|"
              "psi\\|Psi\\|rho\\|varrho\\|"
              "sigma\\|varsigma\\|Sigma\\|tau\\|"
              "theta\\|vartheta\\|Theta\\|upsilon\\|"
              "Upsilon\\|xi\\|Xi\\|zeta\\)\\>")
     (0 'crucible-mtksy-tfc)))
 "Fontification for letters and symbols.")

(defun crucible-mtksy-tfc ()
  "Font-lock setup for mathematical symbols."
  (font-lock-flush (point-min) (point-max))
  (if crucible-mode
      (progn
        (font-lock-add-keywords nil crucible-mtksy-keywords t)
        (font-lock-add-keywords nil crucible-supinf-font-lock t))
    (font-lock-remove-keywords nil crucible-mtksy-keywords)
    (crucible-supinf-disable (point-min) (point-max)))
  (font-lock-flush (point-min) (point-max)))


> Sent: Friday, January 29, 2021 at 2:24 AM
> From: "Michael Heerdegen" <michael_heerdegen@web.de>
> To: steve-humphreys@gmx.com
> Cc: help-gnu-emacs@gnu.org
> Subject: Re: Including tex commands in a list
>
> steve-humphreys@gmx.com writes:
>
> > (defconst crucible-mtksy-keywords
> >   `(;; Greek
> >     (,(concat "\\\\\\<\\(alpha\\|beta\\|chi\\|delta\\|"
> >               "Delta\\|epsilon\\|varepsilon\\|eta\\|"
> >               "gamma\\|Gamma\\|iota\\|kappa \\|"
> >               "lambda\\|Lambda\\|mu\\|nu\\|"
> >               "omega\\|Omega\\|phi\\|varphi\\|"
> >               "Phi\\|pi\\|varpi\\|Pi\\|"
> >               "psi\\|Psi\\|rho\\|varrho\\|"
> >               "sigma\\|varsigma\\|Sigma\\|tau\\|"
> >               "theta\\|vartheta\\|Theta\\|upsilon\\|"
> >               "Upsilon\\|xi\\|Xi\\|zeta\\)\\>")
> >      (0 'crucible-mtksy-tfc)) ;
> >
> > It would help if I had an example of using "rx" for this.
>
> That would look like this (you want to add the missing greek letter
> names):
>
> (defconst crucible-mtksy-keywords
>   `(;; Greek
>     (,(rx "\\" word-start
>           (or "alpha" "beta") ;add the other letters here
>           word-end)
>      (0 'crucible-mtksy-tfc))))
>
> The result will be a slightly optimized regexp (equivalent to yours of
> course).
>
> If you want to go that way, I think it would also be possible to avoid
> the repetition of uncapitalized followed by a capitalized letter name.
>
> HTH,
>
> Michael.
>