mirror of https://github.com/logseq/logseq
fix(shortcut): refine keyname trans
parent
c579053068
commit
6004c7fc7f
|
@ -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]
|
||||||
|
|
Loading…
Reference in New Issue