summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/optex/base/hisyntax-html.opm
blob: 79c94d1999be624d37913d02d42008a9b0e0d1ce (plain)
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
%% This is part of the OpTeX project, see http://petr.olsak.net/optex

\_codedecl\_hisyntaxhtml {Syntax highlighting for html or xml sources <2022-05-12>}

\_newtoks\_hisyntaxhtml  \_newtoks\_hicolorshtml

\_global\_hicolorshtml={%  colors in html codes 
   \_hicolor A \Cyan    % <, > and parameters 
   \_hicolor T \Red     % tag names
   \_hicolor C \Green   % comments
   \_hicolor E \Blue    % HTML entities
   \_hicolor S \Magenta % strings in parameters
}
\_global\_hisyntaxhtml={
   \_the\_hicolorshtml
   \_replfromto{<!--}{-->}{\x C{<!--#1-->}}
   \_replthis{<}{\y{_hitaghtml}}
   \_replthis{\_string&}{\y{_hientityhtml}}
}
\_bgroup \_lccode`\~=`\ \_lowercase{\_egroup
\_gdef\_hitaghtml#1>{\_hitaghtmlA#1~>}
\_gdef\_hitaghtmlA#1~#2>}{\z A{<}\z T{#1}\_def\_tmpb{#2^}%
  \_if^\_tmpb 
  \_else \_space 
      \_replthis{\ ^}{}\_replfromto{"}{"}{\_histringhtml{"##1"}}\z A{\_tmpb}\_fi
  \z A{>}%
}
\_gdef\_histringhtml#1{\_visiblesp \z S{#1}}
\_gdef\_hientityhtml#1;{\z E{\&#1;}}

\_endcode %------------------------------------------------

2022-05-12 \_hitaghtmlA #1~#2: bug fixed
2020-04-03 released