fix(shortcut): refine keyname trans

pull/6439/head
Andelf 2022-08-21 07:54:11 +08:00 committed by Tienson Qin
parent c579053068
commit 6004c7fc7f
1 changed files with 10 additions and 8 deletions

View File

@ -46,14 +46,16 @@
(defn normalize-user-keyname (defn normalize-user-keyname
[k] [k]
(some-> k (let [keynames {";" "semicolon"
(util/safe-lower-case) "=" "equals"
(str/replace #";+" "semicolon") "-" "dash"
(str/replace #"=+" "equals") "[" "open-square-bracket"
(str/replace #"~+" "dash") "]" "close-square-bracket"
(str/replace "[" "open-square-bracket") "'" "single-quote"}]
(str/replace "]" "close-square-bracket") (some-> k
(str/replace "'" "single-quote"))) (util/safe-lower-case)
(str/replace #"[;=-\[\]']" (fn [s]
(get keynames s))))))
;; returns a vector to preserve order ;; returns a vector to preserve order
(defn binding-by-category [name] (defn binding-by-category [name]