;;; HTML highlighting 

(hilit-set-mode-patterns
   'html-mode
    '(
      ;; comments
      ("<!--" "-->" orange)

      ;; top level
      ("<[ \t]*[hH][1234]" "</[ \t]*[hH][1234]" yellow)
      ("<[ \t]*\\(title\\|TITLE\\)" "</[ \t]*\\(title\\|TITLE\\)" yellow)

      ;; breaking lines
      ("<[ \t]*[pP][ \t]*>" nil green)
      ("<[ \t]*[pP][ \t]" ">" green)
      ("<[hH][rR]>" nil green)
      ("<[dD][dD]>" nil green)
      ("<[lL][iI]>" nil green)
      ("<[dD][tT]>" nil green)

      ;; strings
      (hilit-string-find ?' moccasin)
      ("\"" "\"" moccasin)
      ("<code>" "</code>" moccasin)
      ("<pre>" "</pre>" moccasin)
      ;; loud strings
      ("<em>" "</em>" yellow)
      ("<strong>" "</strong>" yellow)

      ;; bad
      ;; ("<[^>]* [a-zA-Z][a-zA-Z]*=[^\"]" nil red) ;; no quotes on parameter
      ("</?[bB]>" nil red) ;; use <strong>
      ("</?[iI]>" nil red) ;; use <em>
      ("XXX" nil red)

      ;; keywords
      ("</?ul>" nil cyan)
      ("</?ol>" nil cyan)
      ("</?dl>" nil cyan)

      ;; other tags (constants)
      ("<" ">" gray80)
      ("\&[a-zA-Z]+;" nil gray80)

      ;; anchors
      ("<[Aa]" "</[Aa]" SkyBlue)

    )
)

;;