|
|
@@ -166,12 +166,13 @@
|
|
|
sequence)]
|
|
|
[:span.keyboard-shortcut
|
|
|
(map-indexed (fn [i key]
|
|
|
- [:code {:key i}
|
|
|
- ;; Display "cmd" rather than "meta" to the user to describe the Mac
|
|
|
- ;; mod key, because that's what the Mac keyboards actually say.
|
|
|
- (if (or (= :meta key) (= "meta" key))
|
|
|
- (util/meta-key-name)
|
|
|
- (name key))])
|
|
|
+ (let [key' (shortcut-helper/decorate-binding (str key))]
|
|
|
+ [:code {:key i}
|
|
|
+ ;; Display "cmd" rather than "meta" to the user to describe the Mac
|
|
|
+ ;; mod key, because that's what the Mac keyboards actually say.
|
|
|
+ (if (= "meta" key')
|
|
|
+ (util/meta-key-name)
|
|
|
+ key')]))
|
|
|
sequence)]))
|
|
|
|
|
|
(rum/defc menu-link
|