Add cmds for plugins to lazy load them

3 files changed, 82 insertions, 27 deletions

diff --git a/fnl/config/cmd.fnl b/fnl/config/cmd.fnl
new file mode 100644
index 0000000..20ef377
--- /dev/null
+++ b/fnl/config/cmd.fnl
@@ -0,0 +1,68 @@
+;; Commands for plugins.
+(module config.cmd {autoload {nvim aniseed.nvim util config.util}})
+
+(nvim.create_user_command :OrgAgendaPrompt
+                          (lambda []
+                            (let [orgmode (util.prequire :orgmode)]
+                              (orgmode.action :agenda.prompt)))
+                          {:nargs 0})
+
+(nvim.create_user_command :OrgCapturePrompt
+                          (lambda []
+                            (let [orgmode (util.prequire :orgmode)]
+                              (orgmode.action :capture.prompt)))
+                          {:nargs 0})
+
+(nvim.create_user_command :CommentNormal
+                          (lambda []
+                            (let [comment-api (util.prequire :Comment.api)]
+                              (comment-api.toggle.linewise.current)))
+                          {:nargs 0})
+
+(nvim.create_user_command :CommentVisual
+                          (lambda []
+                            (let [comment-api (util.prequire :Comment.api)]
+                              (comment-api.toggle.linewise (vim.fn.visualmode))))
+                          {:nargs 0})
+
+(nvim.create_user_command :HarpoonAdd
+                          (lambda []
+                            (let [harpoon (util.prequire :harpoon.mark)]
+                              (harpoon.add_file)))
+                          {:nargs 0})
+
+(nvim.create_user_command :HarpoonNext
+                          (lambda []
+                            (let [harpoon (util.prequire :harpoon.ui)]
+                              (harpoon.nav_next)))
+                          {:nargs 0})
+
+(nvim.create_user_command :HarpoonPrev
+                          (lambda []
+                            (let [harpoon (util.prequire :harpoon.ui)]
+                              (harpoon.nav_prev)))
+                          {:nargs 0})
+
+(nvim.create_user_command :HarpoonUI
+                          (lambda []
+                            (let [harpoon (util.prequire :harpoon.ui)]
+                              (harpoon.toggle_quick_menu)))
+                          {:nargs 0})
+
+(nvim.create_user_command :Replace
+                          (lambda []
+                            (let [spectre (util.prequire :spectre)]
+                              (spectre.open)))
+                          {:nargs 0})
+
+(nvim.create_user_command :ReplaceWord
+                          (lambda []
+                            (let [spectre (util.prequire :spectre)]
+                              (spectre.open.open_visual {:select_word true})))
+                          {:nargs 0})
+
+(nvim.create_user_command :ReplaceInBuf
+                          (lambda []
+                            (let [spectre (util.prequire :spectre)]
+                              (spectre.open_file_search)))
+                          {:nargs 0})
diff --git a/fnl/config/orgmode.fnl b/fnl/config/orgmode.fnl
index a21eaa0..216fe4c 100644
--- a/fnl/config/orgmode.fnl
+++ b/fnl/config/orgmode.fnl
@@ -5,10 +5,8 @@
 (nvim.ex.set :concealcursor=nc)
 
 (def- templates
-      {:t {:description :Task
-           :template "* TODO %?\n %u\n DEADLINE: %T\n"}
-       :m {:description :Meeting
-           :template "* Meeting %?"}
+      {:t {:description :Task :template "* TODO %?\n %u\n DEADLINE: %T\n"}
+       :m {:description :Meeting :template "* Meeting %?"}
        :n {:description :Note :template "* NOTE %? :NOTE:\n %u\n"}})
 
 (defn- create-title [task]
diff --git a/fnl/config/which-key.fnl b/fnl/config/which-key.fnl
index 1412c1a..11a6dce 100644
--- a/fnl/config/which-key.fnl
+++ b/fnl/config/which-key.fnl
@@ -35,8 +35,7 @@
              :noremap true
              :nowait true})
 
-(def- mmappings {:a ["<cmd>lua require('harpoon.mark').add_file()<cr>"
-                     :Harpoon]
+(def- mmappings {:a [:<cmd>HarpoonAdd<cr> :Harpoon]
                  :b ["<cmd>lua require('telescope.builtin').buffers(require('telescope.themes').get_dropdown{sort_lastused = true, initial_mode = 'normal', previewer = false})<cr>"
                      "Switch buffers"]
                  :c [:<cmd>DiffviewClose<cr> :DiffviewClose]
@@ -46,16 +45,11 @@
                  :f ["<cmd>lua require('telescope.builtin').find_files(require('telescope.themes').get_dropdown{previewer = false})<cr>"
                      "Find files"]
                  :g ["<cmd>Telescope live_grep theme=ivy<cr>" "Find text"]
-                 :l ["<cmd>lua require('harpoon.ui').nav_next()<cr>"
-                     "Harpoon Next"]
-                 :h ["<cmd>lua require('harpoon.ui').nav_prev()<cr>"
-                     "Harpoon Prev"]
-                 :t ["<cmd>Telescope harpoon marks theme=dropdown<cr>"
-                     "Search Harpoon"]
+                 :l [:<cmd>HarpoonNext<cr> "Harpoon Next"]
+                 :h [:<cmd>HarpoonPrev<cr> "Harpoon Prev"]
                  :v ["<cmd>lua vim.lsp.buf.rename()<cr>" :Rename]
                  :p [:<cmd>SaveSession<cr> "Save Session"]
-                 :r ["<cmd>lua require('harpoon.ui').toggle_quick_menu()<cr>"
-                     "Harpoon UI"]
+                 :r [:<cmd>HarpoonUI<cr> "Harpoon UI"]
                  :n [:<cmd>Neogit<cr> :Neogit]})
 
 (def- nopts {:mode :n
@@ -124,11 +118,9 @@
               :u [:<cmd>PackerUpdate<cr> :Update]})
 
 (def- replace {:name :Replace
-               :r ["<cmd>lua require('spectre').open()<cr>" :Replace]
-               :w ["<cmd>lua require('spectre').open_visual({select_word=true})<cr>"
-                   "Replace Word"]
-               :f ["<cmd>lua require('spectre').open_file_search()<cr>"
-                   "Replace Buffer"]})
+               :r [:<cmd>Replace<cr> :Replace]
+               :w [:<cmd>ReplaceWord<cr> "Replace Word"]
+               :f [:<cmd>ReplaceInBuf<cr> "Replace Buffer"]})
 
 (def- treesitter
       {:name :Treesitter :p [:<cmd>TSPlaygroundToggle<cr> :Playground]})
@@ -147,8 +139,7 @@
                  :g git
                  :h [:<cmd>ColorizerToggle<cr> :Colorizer]
                  :l lsp
-                 :n ["<cmd>lua require('Comment.api').toggle.linewise.current()<CR>"
-                     :Comment]
+                 :n [:<cmd>CommentNormal<CR> :Comment]
                  :p packer
                  :r replace
                  :u [:<cmd>UndotreeToggle<cr> :Undotree]
@@ -164,8 +155,7 @@
              :noremap true
              :nowait true})
 
-(def- vmappings {:n ["<ESC><CMD>lua require('Comment.api').toggle.linewise(vim.fn.visualmode())<CR>"
-                     :Comment]})
+(def- vmappings {:n [:<esc><cmd>CommentVisual<cr> :Comment]})
 
 (def- gopts {:mode :n
              :prefix :g
@@ -174,10 +164,9 @@
              :noremap true
              :nowait true})
 
-(def- gmappings {:a ["<cmd>lua require('orgmode').action('agenda.prompt')<cr>"
-                     "Open agenda prompt"]
-                 :c ["<cmd>lua require('orgmode').action('capture.prompt')<cr>"
-                     "Open capture prompt"]})
+(def- gmappings
+      {:a [:<cmd>OrgAgendaPrompt<cr> "Open agenda prompt"]
+       :c [:<cmd>OrgCapturePrompt<cr> "Open capture prompt"]})
 
 (let [which-key (util.prequire :which-key)]
   (which-key.setup setup)