From e78eb517da5ed34fefd5e783ee8530ce02e9b5be Mon Sep 17 00:00:00 2001
From: "Sebastian Rose, Hannover, Germany" <sebastian_rose@gmx.de>
Date: Thu, 26 May 2022 11:47:18 +0200
Subject: [PATCH] Customizeable faces

* Customizable faces
  apache-mode now defines it's own faces.  That way, faces may be
  customized just for the purposes of this mode without affecting
  your entire emacs session.

* Highlight unknown <SECTION>s and variables, too
  This was done for two reasons:
  - Firstly, errors become more visible in apache config files.
  - Secondly, you may define the '...-unknown-...' faces to
    match the other faces, such that you may use this mode to
    edit files with apache.conf syntax and have syntax highlighting
    there (https://metacpan.org/pod/Config::General for example).
---
 apache-mode.el | 41 ++++++++++++++++++++++++++++++++++++++---
 1 file changed, 38 insertions(+), 3 deletions(-)

diff --git a/apache-mode.el b/apache-mode.el
index 44845d4..08d87bf 100644
--- a/apache-mode.el
+++ b/apache-mode.el
@@ -91,6 +91,37 @@
                               (?- . "w"))
                              beginning-of-line)))
 
+;;; Customization
+(defgroup apache nil
+  "Custom module organizer and loader."
+  :tag "Apache"
+  :group (intern (user-login-name)))
+(defgroup apache-faces nil
+  "Custom module organizer and loader."
+  :tag "Apache faces"
+  :group 'apache)
+
+(defface apache-section-face
+  '((t :inherit font-lock-function-name-face))
+  "Basic face for highlighting section tags <If>, <ElseIf>, <IfDefine> etc."
+  :group 'apache-faces)
+(defface apache-unknown-sections-face
+  '((t :inherit font-lock-warning-face))
+  "Basic face for highlighting unknown <SECTION>s."
+  :group 'apache-faces)
+(defface apache-directive-face
+  '((t :inherit font-lock-keyword-face))
+  "Basic face for highlighting derectives."
+  :group 'apache-faces)
+(defface apache-variable-face
+  '((t :inherit font-lock-type-face))
+  "Basic face for highlighting unknown VAIABLE = \"..\"."
+  :group 'apache-faces)
+(defface apache-unknown-variable-face
+  '((t (:inherit font-lock-warning-face :weight normal)))
+  "Basic face for highlighting unknown VAIABLE = \"..\"."
+  :group 'apache-faces)
+
 ;; Font lock
 (defconst apache-font-lock-keywords
   (purecopy
@@ -128,7 +159,7 @@
              )
            'words)
           ".*?>")
-        1 'font-lock-function-name-face)
+        1 'apache-section-face)
        (,(concat                       ; directives
           "^[ \t]*"
           (regexp-opt
@@ -959,7 +990,7 @@
              "TopSites"
              "TopURLs")
            'words))
-        1 'font-lock-keyword-face)
+        1 'apache-directive-face)
        (,(regexp-opt
           '("Off"
             "On"
@@ -1150,7 +1181,11 @@
             "server-status"                                   ; mod_status
             )
           'words)
-        1 'font-lock-type-face))))
+        1 'apache-variable-face)
+       ("^[ 	]*\\([^#<= 	]*\\)"                            ; Unknown variable
+        1 'apache-unknown-variable-face)
+       ("^[ \t]*</?\\([^>]*\\)>"                              ; Unknown sections
+        1 'apache-unknown-sections-face))))
   "Expressions to highlight in Apache config buffers.")
 
 (defun apache-indent-line ()