mirror of
https://github.com/elkowar/dots-of-war.git
synced 2024-11-06 03:12:24 +00:00
asdf
This commit is contained in:
parent
399d32327d
commit
a7281c3e9c
3 changed files with 7 additions and 12 deletions
|
@ -4,9 +4,6 @@
|
||||||
nvim aniseed.nvim}
|
nvim aniseed.nvim}
|
||||||
require-macros [macros]})
|
require-macros [macros]})
|
||||||
|
|
||||||
(def req
|
|
||||||
(setmetatable {} {:__index (fn [_ idx] (require idx))}))
|
|
||||||
|
|
||||||
(defn plugin-installed? [name]
|
(defn plugin-installed? [name]
|
||||||
(~= nil (. packer_plugins name)))
|
(~= nil (. packer_plugins name)))
|
||||||
|
|
||||||
|
@ -31,15 +28,13 @@
|
||||||
(defn keymap [modes from to ?opts]
|
(defn keymap [modes from to ?opts]
|
||||||
"Set a mapping in the given modes, and some optional parameters, defaulting to {:noremap true :silent true}.
|
"Set a mapping in the given modes, and some optional parameters, defaulting to {:noremap true :silent true}.
|
||||||
If :buffer is set, uses buf_set_keymap rather than set_keymap"
|
If :buffer is set, uses buf_set_keymap rather than set_keymap"
|
||||||
(local full-opts
|
(let [full-opts (->> (or ?opts {})
|
||||||
(->> (or ?opts {})
|
|
||||||
(a.merge {:noremap true :silent true})
|
(a.merge {:noremap true :silent true})
|
||||||
(without-keys [:buffer])))
|
(without-keys [:buffer]))]
|
||||||
(if (and ?opts (?. ?opts :buffer))
|
|
||||||
(a.println (fennel.view modes))
|
|
||||||
(each [_ mode (ipairs (single-to-list modes))]
|
(each [_ mode (ipairs (single-to-list modes))]
|
||||||
|
(if (-?> ?opts (. :buffer))
|
||||||
(nvim.buf_set_keymap 0 mode from to full-opts)
|
(nvim.buf_set_keymap 0 mode from to full-opts)
|
||||||
(nvim.set_keymap mode from to full-opts))))
|
(nvim.set_keymap mode from to full-opts)))))
|
||||||
|
|
||||||
(defn del-keymap [mode from ?buf-local]
|
(defn del-keymap [mode from ?buf-local]
|
||||||
"Remove a keymap. Arguments: mode, mapping, bool if mapping should be buffer-local."
|
"Remove a keymap. Arguments: mode, mapping, bool if mapping should be buffer-local."
|
||||||
|
@ -62,7 +57,7 @@
|
||||||
(packer.startup
|
(packer.startup
|
||||||
(fn [use]
|
(fn [use]
|
||||||
(each-pair [name opts pkgs]
|
(each-pair [name opts pkgs]
|
||||||
(-?> (. opts :mod) (safe-require-plugin-config))
|
(-?> opts (. :mod) (safe-require-plugin-config))
|
||||||
(use (a.assoc opts 1 name)))))))
|
(use (a.assoc opts 1 name)))))))
|
||||||
|
|
||||||
|
|
||||||
|
|
Binary file not shown.
Binary file not shown.
Loading…
Reference in a new issue