🐛 Add underscore as posible name character (#6135)

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]

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