From e81adb241bd3ed8f0c2acbc3d9149b48a6a619d5 Mon Sep 17 00:00:00 2001
From: Eva Marco <eva.marco@kaleidos.net>
Date: Tue, 25 Mar 2025 10:57:23 +0100
Subject: [PATCH] :bug: Add underscore as posible name character (#6135)

---
 common/src/app/common/types/token.cljc              | 2 +-
 frontend/src/app/main/ui/workspace/tokens/form.cljs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/common/src/app/common/types/token.cljc b/common/src/app/common/types/token.cljc
index bba70ba5a..12f5c5d3e 100644
--- a/common/src/app/common/types/token.cljc
+++ b/common/src/app/common/types/token.cljc
@@ -60,7 +60,7 @@
   (token-types t))
 
 (def token-name-ref
-  [:and :string [:re #"^(?!\$)([a-zA-Z0-9-$]+\.?)*(?<!\.)$"]])
+  [:and :string [:re #"^(?!\$)([a-zA-Z0-9-$_]+\.?)*(?<!\.)$"]])
 
 (defn valid-token-name-ref?
   [n]
diff --git a/frontend/src/app/main/ui/workspace/tokens/form.cljs b/frontend/src/app/main/ui/workspace/tokens/form.cljs
index b9e817d91..5a78178af 100644
--- a/frontend/src/app/main/ui/workspace/tokens/form.cljs
+++ b/frontend/src/app/main/ui/workspace/tokens/form.cljs
@@ -50,7 +50,7 @@
   Caution: This will allow a trailing dot like `token-name.`,
   But we will trim that in the `finalize-name`,
   to not throw too many errors while the user is editing."
-  #"(?!\$)([a-zA-Z0-9-$]+\.?)*")
+  #"(?!\$)([a-zA-Z0-9-$_]+\.?)*")
 
 (def valid-token-name-schema
   (m/-simple-schema