feat(wrapper): add keymap/set-maps! for runtime

fnl/nvim-laurel/wrapper.fnl

@@ -1,6 +1,12 @@
 ;; Note: Define wrapper functions to deal with values hidden in compile time.
 ;; Wrappers make it easier to debug in compiled lua codes.
 
+(local {: keymap/->compatible-opts!} (require :nvim-laurel.utils))
+
+(macro str? [x]
+  "Check if `x` is of string type."
+  `(= :string (type ,x)))
+
 (lambda merge-api-opts [?api-opts ?extra-opts]
   "Merge `?api-opts` into `?extra-opts`.
 
@@ -12,4 +18,19 @@
         (values k v))
       (or ?api-opts ?extra-opts {})))
 
-{: merge-api-opts}
+(lambda keymap/set-maps! [modes extra-opts lhs rhs ?api-opts]
+  (let [?bufnr extra-opts.buffer
+        api-opts (merge-api-opts ?api-opts
+                                 (keymap/->compatible-opts! extra-opts))
+        set-keymap (if ?bufnr
+                       (lambda [mode]
+                         (vim.api.nvim_buf_set_keymap ?bufnr mode lhs rhs
+                                                      api-opts))
+                       (lambda [mode]
+                         (vim.api.nvim_set_keymap mode lhs rhs api-opts)))]
+    (if (str? modes)
+        (set-keymap modes)
+        (each [_ m (ipairs modes)]
+          (set-keymap m)))))
+
+{: merge-api-opts : keymap/set-maps!}