summaryrefslogtreecommitdiff
path: root/fnl/settings/usercmds.fnl
blob: da842ccdb1877b6d77599263144b80754d006a1c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
;; Commands for plugins.

(vim.api.nvim_create_user_command :OrgAgendaPrompt
                                  (lambda []
                                    (let [orgmode (require :orgmode)]
                                      (orgmode.action :agenda.prompt)))
                                  {:nargs 0})

(vim.api.nvim_create_user_command :OrgCapturePrompt
                                  (lambda []
                                    (let [orgmode (require :orgmode)]
                                      (orgmode.action :capture.prompt)))
                                  {:nargs 0})

(vim.api.nvim_create_user_command :CommentNormal
                                  (lambda []
                                    (let [comment-api (require :Comment.api)]
                                      (comment-api.toggle.linewise.current)))
                                  {:nargs 0})

(vim.api.nvim_create_user_command :CommentVisual
                                  (lambda []
                                    (let [comment-api (require :Comment.api)]
                                      (comment-api.toggle.linewise (vim.fn.visualmode))))
                                  {:nargs 0})

(vim.api.nvim_create_user_command :HarpoonAdd
                                  (lambda []
                                    (let [harpoon (require :harpoon.mark)]
                                      (harpoon.add_file)))
                                  {:nargs 0})

(vim.api.nvim_create_user_command :HarpoonNext
                                  (lambda []
                                    (let [harpoon (require :harpoon.ui)]
                                      (harpoon.nav_next)))
                                  {:nargs 0})

(vim.api.nvim_create_user_command :HarpoonPrev
                                  (lambda []
                                    (let [harpoon (require :harpoon.ui)]
                                      (harpoon.nav_prev)))
                                  {:nargs 0})

(vim.api.nvim_create_user_command :HarpoonUI
                                  (lambda []
                                    (let [harpoon (require :harpoon.ui)]
                                      (harpoon.toggle_quick_menu)))
                                  {:nargs 0})

(vim.api.nvim_create_user_command :Replace
                                  (lambda []
                                    (let [spectre (require :spectre)]
                                      (spectre.open)))
                                  {:nargs 0})

(vim.api.nvim_create_user_command :ReplaceWord
                                  (lambda []
                                    (let [spectre (require :spectre)]
                                      (spectre.open_visual {:select_word true})))
                                  {:nargs 0})

(vim.api.nvim_create_user_command :ReplaceInBuf
                                  (lambda []
                                    (let [spectre (require :spectre)]
                                      (spectre.open_file_search)))
                                  {:nargs 0})

(vim.api.nvim_create_user_command :RestoreSession
                                  (lambda []
                                    (let [persistence (require :persistence)]
                                      (persistence.load)))
                                  {:nargs 0})

(vim.api.nvim_create_user_command :RestoreLastSession
                                  (lambda []
                                    (let [persistence (require :persistence)]
                                      (persistence.load {:last true})))
                                  {:nargs 0})

(vim.api.nvim_create_user_command :IgnoreSession
                                  (lambda []
                                    (let [persistence (require :persistence)]
                                      (persistence.stop)))
                                  {:nargs 0})

(fn telescope-builtin [builtin opts]
  (let [telescope (require :telescope.builtin)
        themes (require :telescope.themes)
        theme (. opts :theme)]
    ((. telescope builtin) ((. themes theme) opts))))

(vim.api.nvim_create_user_command :FindFiles
                                  (lambda []
                                    (telescope-builtin :find_files
                                                       {:theme :get_dropdown
                                                        :previewer false}))
                                  {:nargs 0})