···

       
35
       
 
       
(map :n :grs #(vim.lsp.buf.rename))

     

       
36
       
 
       


     

       
37
       
 
       
(augroup hauleth-lsp-diagnostics

     

       
38
       
-
       
         (on CursorHold "*" (vim.diagnostic.open_float {:focus false}) nil))

     

       
39
       
 
       


     

       
40
       
 
       


     

       
41
       
 
       
(set configs.lexical {

     
···

       
72
       
 
       
       :cmd [vim.g.lsp_paths.typos_lsp]

     

       
73
       
 
       
       })

     

       
74
       
 
       


     

       
75
       
-
       
(augroup lsp-direnv (on User :DirenvLoaded (cmd.LspStart) nil))

     

···

       
35
       
 
       
(map :n :grs #(vim.lsp.buf.rename))

     

       
36
       
 
       


     

       
37
       
 
       
(augroup hauleth-lsp-diagnostics

     

       
38
       
+
       
         (on CursorHold "*" (vim.diagnostic.open_float {:focus false})))

     

       
39
       
 
       


     

       
40
       
 
       


     

       
41
       
 
       
(set configs.lexical {

     
···

       
72
       
 
       
       :cmd [vim.g.lsp_paths.typos_lsp]

     

       
73
       
 
       
       })

     

       
74
       
 
       


     

       
75
       
+
       
(augroup lsp-direnv (on User :DirenvLoaded (cmd.LspStart)))

     

···

       
4
       
 
       
  "Run command on `event`"

     

       
5
       
 
       
  (let [args (sym :args)

     

       
6
       
 
       
        body (if (list? pattern)

     

       
7
       
-
       
                 `(fn [,args] ,pattern ,...)

     

       
8
       
-
       
                 `(fn [,args] ,...))

     

       
9
       
 
       
        opts (if (list? pattern)

     

       
10
       
 
       
                  `{:callback ,body

     

       
11
       
 
       
                    :group au-id}

     

···

       
4
       
 
       
  "Run command on `event`"

     

       
5
       
 
       
  (let [args (sym :args)

     

       
6
       
 
       
        body (if (list? pattern)

     

       
7
       
+
       
                 `(fn [,args] (= (do ,pattern ,...) true))

     

       
8
       
+
       
                 `(fn [,args] (= (do ,...) true)))

     

       
9
       
 
       
        opts (if (list? pattern)

     

       
10
       
 
       
                  `{:callback ,body

     

       
11
       
 
       
                    :group au-id}

     

···

       
31
       
 
       
        :formatoptions :tcqjl}))

     

       
32
       
 
       


     

       
33
       
 
       
(do ; UI

     

       
34
       
-
       
  (opt {:lazyredraw true :updatetime 500 :title true :showmode true}))

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
35
       
 
       


     

       
36
       
 
       
(do ; Display tabs and trailing spaces visually

     

       
37
       
 
       
  (opt {:fillchars ["vert:┃" "fold:·"]

     
···

       
71
       
 
       
  (let [value 9999]

     

       
72
       
 
       
    (set opt.scrolloff value)

     

       
73
       
 
       
    (augroup terminal-scrolloff

     

       
74
       
-
       
             (on BufEnter "term://*" (set opt.window.scrolloff 0))

     

       
75
       
-
       
             (on BufLeave "term://*" (set opt.window.scrolloff value)))))

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
76
       
 
       


     

       
77
       
 
       
(do ; XXI century - we have cursors now

     

       
78
       
 
       
  (set opt.mouse :a))

     
···

       
83
       
 
       
           (on BufEnter "*"

     

       
84
       
 
       
               (let [cwd (fun.getcwd)

     

       
85
       
 
       
                     project (fun.fnamemodify cwd ":p:~:h")]

     

       
86
       
-
       
                 (set opt.titlestring (.. "nvim " project)))

     

       
87
       
-
       
               )))

     

       
88
       
 
       


     

       
89
       
 
       
(do ; Split in CORRECT places

     

       
90
       
 
       
  (opt {:splitright true :splitbelow true}))

     
···

       
95
       
 
       
(do ; Permanent undo

     

       
96
       
 
       
  (set opt.undofile true))

     

       
97
       
 
       


     

       
98
       
-
       
(do ; Save only meaningfull data to sessions

     

       
99
       
 
       
  (set opt.sessionoptions [:blank

     

       
100
       
 
       
                           :buffers

     

       
101
       
 
       
                           :curdir

     
···

       
166
       
 
       
(do ; Text object for whole file

     

       
167
       
 
       
  (map :o :aG ":normal! ggVG"))

     

       
168
       
 
       


     

       
169
       
-
       
(do ; Quickly disable highligh

     

       
170
       
 
       
  (map :n "<Space>," ":nohlsearch"))

     

       
171
       
 
       


     

       
172
       
 
       
(do ; Terminal mappings

     
···

       
205
       
 
       


     

       
206
       
 
       
(do ; Matchparen

     

       
207
       
 
       
  (set vim.g.matchup_matchparen_offscreen {:method :popup})

     

       
208
       
-
       
  (augroup matchparen

     

       
209
       
 
       
           (let [term "term://*"]

     

       
210
       
-
       
             (on BufEnter term (cmd.NoMatchParen) nil)

     

       
211
       
-
       
             (on BufLeave term (cmd.DoMatchParen) nil))))

     

       
212
       
 
       


     

       
213
       
 
       
(do ; Autoreload Direnv after writing the .envrc

     

       
214
       
 
       
  (when (fun.executable :direnv)

     

       
215
       
 
       
    (augroup autoreload-envrc

     

       
216
       
 
       
             (on BufWritePost :.envrc

     

       
217
       
 
       
                 (fun.system ["direnv" "allow" (fun.expand "%")])

     

       
218
       
-
       
                 (cmd.DirenvExport)

     

       
219
       
-
       
                 nil))))

     

       
220
       
 
       


     

       
221
       
 
       
(do ; Setup Lua extensions

     

       
222
       
 
       
  (let [setup (fn [package config]

     

···

       
31
       
 
       
        :formatoptions :tcqjl}))

     

       
32
       
 
       


     

       
33
       
 
       
(do ; UI

     

       
34
       
+
       
  (opt {:updatetime 500

     

       
35
       
+
       
        :title true

     

       
36
       
+
       
        :showmode true

     

       
37
       
+
       
        :signcolumn "yes:1"}))

     

       
38
       
 
       


     

       
39
       
 
       
(do ; Display tabs and trailing spaces visually

     

       
40
       
 
       
  (opt {:fillchars ["vert:┃" "fold:·"]

     
···

       
74
       
 
       
  (let [value 9999]

     

       
75
       
 
       
    (set opt.scrolloff value)

     

       
76
       
 
       
    (augroup terminal-scrolloff

     

       
77
       
+
       
             (on BufEnter "term://*"

     

       
78
       
+
       
                 (set opt.window.signcolumn :no)

     

       
79
       
+
       
                 (set opt.window.scrolloff 0))

     

       
80
       
+
       
             (on BufLeave "term://*"

     

       
81
       
+
       
                 (set opt.window.signcolumn "yes:1")

     

       
82
       
+
       
                 (set opt.window.scrolloff value)))))

     

       
83
       
 
       


     

       
84
       
 
       
(do ; XXI century - we have cursors now

     

       
85
       
 
       
  (set opt.mouse :a))

     
···

       
90
       
 
       
           (on BufEnter "*"

     

       
91
       
 
       
               (let [cwd (fun.getcwd)

     

       
92
       
 
       
                     project (fun.fnamemodify cwd ":p:~:h")]

     

       
93
       
+
       
                 (set opt.titlestring (.. "nvim " project))))))

     

       
0
       
 
       

     

       
94
       
 
       


     

       
95
       
 
       
(do ; Split in CORRECT places

     

       
96
       
 
       
  (opt {:splitright true :splitbelow true}))

     
···

       
101
       
 
       
(do ; Permanent undo

     

       
102
       
 
       
  (set opt.undofile true))

     

       
103
       
 
       


     

       
104
       
+
       
(do ; Save only meaningful data to sessions

     

       
105
       
 
       
  (set opt.sessionoptions [:blank

     

       
106
       
 
       
                           :buffers

     

       
107
       
 
       
                           :curdir

     
···

       
172
       
 
       
(do ; Text object for whole file

     

       
173
       
 
       
  (map :o :aG ":normal! ggVG"))

     

       
174
       
 
       


     

       
175
       
+
       
(do ; Quickly disable highlight

     

       
176
       
 
       
  (map :n "<Space>," ":nohlsearch"))

     

       
177
       
 
       


     

       
178
       
 
       
(do ; Terminal mappings

     
···

       
211
       
 
       


     

       
212
       
 
       
(do ; Matchparen

     

       
213
       
 
       
  (set vim.g.matchup_matchparen_offscreen {:method :popup})

     

       
214
       
+
       
  (augroup matchparen-term

     

       
215
       
 
       
           (let [term "term://*"]

     

       
216
       
+
       
             (on BufEnter term (cmd.NoMatchParen))

     

       
217
       
+
       
             (on BufLeave term (cmd.DoMatchParen)))))

     

       
218
       
 
       


     

       
219
       
 
       
(do ; Autoreload Direnv after writing the .envrc

     

       
220
       
 
       
  (when (fun.executable :direnv)

     

       
221
       
 
       
    (augroup autoreload-envrc

     

       
222
       
 
       
             (on BufWritePost :.envrc

     

       
223
       
 
       
                 (fun.system ["direnv" "allow" (fun.expand "%")])

     

       
224
       
+
       
                 (cmd.DirenvExport)))))

     

       
0
       
 
       

     

       
225
       
 
       


     

       
226
       
 
       
(do ; Setup Lua extensions

     

       
227
       
 
       
  (let [setup (fn [package config]