|
|
@ -291,6 +291,9 @@ |
|
|
|
(append-to-string-buffer buffer-out buffer-size (addr write-head) |
|
|
|
", ")))) |
|
|
|
|
|
|
|
;; Example of multiple keys bound: |
|
|
|
;; (define-keybind s-help-keybind (array SDL_SCANCODE_F1 keybind-modifier-flags-none) |
|
|
|
;; (array SDL_SCANCODE_H keybind-modifier-flags-ctrl)) |
|
|
|
(defmacro define-keybind (name symbol &rest binds array) |
|
|
|
(var buttons-name Token (deref name)) |
|
|
|
(call-on append (field buttons-name contents) "-buttons") |
|
|
|