You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

10 lines
396 B

(fn modal-bind [mods key message bindings]
(let [modal (hs.hotkey.modal.new mods key message)]
(tset modal :entered #(hs.timer.doAfter 0.5 #(modal:exit)))
; (tset modal :exited #(hs.alert :exited))
(each [_ [mods key message f] (ipairs bindings)]
(modal:bind mods key message #(do (f) (modal:exit))))))
{:mash [:cmd :alt :ctrl] :smash [:cmd :alt :ctrl :shift] : modal-bind}