From 76a271570d9d8d2e2e257c5ca1f7fba8b7567e72 Mon Sep 17 00:00:00 2001
From: Dave Davenport <qball@blame.services>
Date: Fri, 24 Sep 2021 10:22:16 +0200
Subject: [PATCH] [Lexer] Add _ to environement variable.

Fixes: #1475
---
 lexer/theme-lexer.l | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lexer/theme-lexer.l b/lexer/theme-lexer.l
index c2071d41..865b6cd3 100644
--- a/lexer/theme-lexer.l
+++ b/lexer/theme-lexer.l
@@ -176,6 +176,7 @@ UANYNP   {ASCNP}|{U2}{U}|{U3}{U}{U}|{U4}{U}{U}{U}
 WHITESPACE [[:blank:]]
 WSO        [[:blank:]]*
 WORD       [[:alnum:]-]+
+WORD_ENV   [[:alnum:]_-]+
 MEDIA_NAME [[:alpha:]-]+
 COLOR_NAME [[:alpha:]]+
 STRING     \"{UANYN}*\"
@@ -194,7 +195,7 @@ INHERIT    (inherit)
 
 ASTERIX    \*
 
-ENV        $\{[[:alnum:]]*\}
+ENV        $\{[[:alpha:]_][[:alnum:]_]*\}
 
 MODIFIER_ADD      \+
 MODIFIER_SUBTRACT -
@@ -551,7 +552,7 @@ if ( queue == NULL ) {
         g_queue_push_head ( queue, GINT_TO_POINTER (YY_START) ); BEGIN(PROPERTIES_ENV);
     }
 }
-<PROPERTIES_ENV_VAR>{WORD} {
+<PROPERTIES_ENV_VAR>{WORD_ENV} {
     const char *val = g_getenv(yytext);
     if ( val ) {
         ParseObject *top = g_queue_peek_head ( file_queue );