|
@@ -93,13 +93,10 @@
|
|
|
(defn decorate-binding [binding]
|
|
|
(-> (if (string? binding) binding (str/join "+" binding))
|
|
|
(str/replace "mod" (if util/mac? "cmd" "ctrl"))
|
|
|
- (str/replace "ctrl" (if util/mac? "cmd" "ctrl"))
|
|
|
- (str/replace "cmd" (if util/mac? "cmd" "ctrl"))
|
|
|
(str/replace "alt" (if util/mac? "opt" "alt"))
|
|
|
(str/replace "shift+/" "?")
|
|
|
(str/replace "left" "←")
|
|
|
(str/replace "right" "→")
|
|
|
- (str/replace "+" " ")
|
|
|
(str/replace "open-square-bracket" "[")
|
|
|
(str/replace "close-square-bracket" "]")
|
|
|
(str/lower-case)))
|