mini.nvim/lua/mini/misc.lua at sync · vivi-et/mini.nvim

Repository navigation

History

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

354

355

356

357

358

359

360

361

362

363

364

365

366

367

-- Documentation ==============================================================

--- Miscellaneous useful functions.

---

--- # Setup~

---

--- This module doesn't need setup, but it can be done to improve usability.

--- Setup with `require('mini.misc').setup({})` (replace `{}` with your

--- `config` table). It will create global Lua table `MiniMisc` which you can

--- use for scripting or manually (with `:lua MiniMisc.*`).

---

--- See |MiniMisc.config| for `config` structure and default values.

---

--- This module doesn't have runtime options, so using `vim.b.minimisc_config`

--- will have no effect here.

---@tag mini.misc

---@tag MiniMisc

-- Module definition ==========================================================

local MiniMisc = {}

local H = {}

--- Module setup

---

---@param config table Module config table. See |MiniMisc.config|.

---

---@usage `require('mini.misc').setup({})` (replace `{}` with your `config` table)

MiniMisc.setup = function(config)

-- Export module

_G.MiniMisc = MiniMisc

-- Setup config

config = H.setup_config(config)

-- Apply config

H.apply_config(config)

end

--- Module config

---

--- Default values:

---@eval return MiniDoc.afterlines_to_code(MiniDoc.current.eval_section)

MiniMisc.config = {

-- Array of fields to make global (to be used as independent variables)

make_global = { 'put', 'put_text' },

}

--minidoc_afterlines_end

-- Module functionality =======================================================

--- Execute `f` several times and time how long it took

---

---@param f function Function which execution to benchmark.

---@param n number Number of times to execute `f(...)`. Default: 1.

---@param ... any Arguments when calling `f`.

---

---@return ... Table with durations (in seconds; up to microseconds) and

--- output of (last) function execution.

MiniMisc.bench_time = function(f, n, ...)

n = n or 1

local durations, output = {}, nil

for _ = 1, n do

local start_sec, start_usec = vim.loop.gettimeofday()

output = f(...)

local end_sec, end_usec = vim.loop.gettimeofday()

table.insert(durations, (end_sec - start_sec) + 0.000001 * (end_usec - start_usec))

end

return durations, output

end

--- Compute width of gutter (info column on the left of the window)

---

---@param win_id number Window identifier (see |win_getid()|) for which gutter

--- width is computed. Default: 0 for current.

MiniMisc.get_gutter_width = fu 8000 nction(win_id)

win_id = (win_id == nil or win_id == 0) and vim.api.nvim_get_current_win() or win_id

return vim.fn.getwininfo(win_id)[1].textoff

end

--- Print Lua objects in command line

---

---@param ... any Any number of objects to be printed each on separate line.

MiniMisc.put = function(...)

local objects = {}

-- Not using `{...}` because it removes `nil` input

for i = 1, select('#', ...) do

local v = select(i, ...)

table.insert(objects, vim.inspect(v))

end

print(table.concat(objects, '\n'))

return ...

end

--- Print Lua objects in current buffer

---

---@param ... any Any number of objects to be printed each on separate line.

MiniMisc.put_text = function(...)

local objects = {}

-- Not using `{...}` because it removes `nil` input

for i = 1, select('#', ...) do

local v = select(i, ...)

table.insert(objects, vim.inspect(v))

end

local lines = vim.split(table.concat(objects, '\n'), '\n')

local lnum = vim.api.nvim_win_get_cursor(0)[1]

vim.fn.append(lnum, lines)

return ...

end

--- Resize window to have exact number of editable columns

---

---@param win_id number Window identifier (see |win_getid()|) to be resized.

--- Default: 0 for current.

---@param text_width number Number of editable columns resized window will

--- display. Default: first element of 'colorcolumn' or otherwise 'textwidth'

--- (using screen width as its default but not more than 79).

MiniMisc.resize_window = function(win_id, text_width)

win_id = win_id or 0

text_width = text_width or H.default_text_width(win_id)

vim.api.nvim_win_set_width(win_id, text_width + MiniMisc.get_gutter_width(win_id))

end

H.default_text_width = function(win_id)

local buf = vim.api.nvim_win_get_buf(win_id)

local textwidth = vim.api.nvim_buf_get_option(buf, 'textwidth')

textwidth = (textwidth == 0) and math.min(vim.o.columns, 79) or textwidth

local colorcolumn = vim.api.nvim_win_get_option(win_id, 'colorcolumn')

if colorcolumn ~= '' then

local cc = vim.split(colorcolumn, ',')[1]

local is_cc_relative = vim.tbl_contains({ '-', '+' }, cc:sub(1, 1))

if is_cc_relative then

return textwidth + tonumber(cc)

else

return tonumber(cc)

end

else

return textwidth

end

--- Compute summary statistics of numerical array

---

--- This might be useful to compute summary of time benchmarking with

--- |MiniMisc.bench_time|.

---

---@param t table Array (table suitable for `ipairs`) of numbers.

---

---@return table Table with summary values under following keys (may be

--- extended in the future): <maximum>, <mean>, <median>, <minimum>, <n>

--- (number of elements), <sd> (sample standard deviation).

MiniMisc.stat_summary = function(t)

if not H.is_array_of(t, H.is_number) then

H.error('Input of `MiniMisc.stat_summary()` should be an array of numbers.')

end

-- Welford algorithm of computing variance

-- Source: https://www.johndcook.com/blog/skewness_kurtosis/

local n = #t

local delta, m1, m2 = 0, 0, 0

local minimum, maximum = math.huge, -math.huge

for i, x in ipairs(t) do

delta = x - m1

m1 = m1 + delta / i

m2 = m2 + delta * (x - m1)

-- Extremums

minimum = x < minimum and x or minimum

maximum = x > maximum and x or maximum

end

return {

maximum = maximum,

mean = m1,

median = H.compute_median(t),

minimum = minimum,

n = n,

sd = math.sqrt(n > 1 and m2 / (n - 1) or 0),

}

end

H.compute_median = function(t)

local n = #t

if n == 0 then return 0 end

local t_sorted = vim.deepcopy(t)

table.sort(t_sorted)

return 0.5 * (t_sorted[math.ceil(0.5 * n)] + t_sorted[math.ceil(0.5 * (n + 1))])

end

--- Return "first" elements of table as decided by `pairs`

---

--- Note: order of elements might vary.

---

---@param t table Input table.

---@param n number Maximum number of first elements. Default: 5.

---

---@return table Table with at most `n` first elements of `t` (with same keys).

< 8000 /div>

MiniMisc.tbl_head = function(t, n)

n = n or 5

local res, n_res = {}, 0

for k, val in pairs(t) do

if n_res >= n then return res end

res[k] = val

n_res = n_res + 1

end

return res

end

--- Return "last" elements of table as decided by `pairs`

---

--- This function makes two passes through elements of `t`:

--- - First to count number of elements.

--- - Second to construct result.

---

--- Note: order of elements might vary.

---

---@param t table Input table.

---@param n number Maximum number of last elements. Default: 5.

---

---@return table Table with at most `n` last elements of `t` (with same keys).

MiniMisc.tbl_tail = function(t, n)

n = n or 5

-- Count number of elements on first pass

local n_all = 0

for _, _ in pairs(t) do

n_all = n_all + 1

end

-- Construct result on second pass

local res = {}

local i, start_i = 0, n_all - n + 1

for k, val in pairs(t) do

i = i + 1

if i >= start_i then res[k] = val end

end

return res

end

--- Add possibility of nested comment leader

---

--- This works by parsing 'commentstring' buffer option, extracting

--- non-whitespace comment leader (symbols on the left of commented line), and

--- locally modifying 'comments' option (by prepending `n:<leader>`). Does

--- nothing if 'commentstring' is empty or has comment symbols both in front

--- and back (like "/*%s*/").

---

--- Nested comment leader added with this function is useful for formatting

--- nested comments. For example, have in Lua "first-level" comments with '--'

--- and "second-level" comments with '----'. With nested comment leader second

--- type can be formatted with `gq` in the same way as first one.

---

--- Recommended usage is with |autocmd|:

--- `autocmd BufEnter * lua pcall(require('mini.misc').use_nested_comments)`

---

--- Note: for most filetypes 'commentstring' option is added only when buffer

--- with this filetype is entered, so using non-current `buf_id` can not lead

--- to desired effect.

---

---@param buf_id number Buffer identifier (see |bufnr()|) in which function

--- will operate. Default: 0 for current.

MiniMisc.use_nested_comments = function(buf_id)

buf_id = buf_id or 0

local commentstring = vim.api.nvim_buf_get_option(buf_id, 'commentstring')

if commentstring == '' then return end

-- Extract raw comment leader from 'commentstring' option

local comment_parts = vim.tbl_filter(function(x) return x ~= '' end, vim.split(commentstring, '%s', true))

-- Don't do anything if 'commentstring' is like '/*%s*/' (as in 'json')

if #comment_parts > 1 then return end

-- Get comment leader by removing whitespace

local leader = vim.trim(comment_parts[1])

local comments = vim.api.nvim_buf_get_option(buf_id, 'comments')

local new_comments = string.format('n:%s,%s', leader, comments)

vim.api.nvim_buf_set_option(buf_id, 'comments', new_comments)

end

--- Zoom in and out of a buffer, making it full screen in a floating window

---

--- This function is useful when working with multiple windows but temporarily

--- needing to zoom into one to see more of the code from that buffer. Call it

--- again (without arguments) to zoom out.

---

---@param buf_id number Buffer identifier (see |bufnr()|) to be zoomed.

--- Default: 0 for current.

---@param config table Optional config for window (as for |nvim_open_win()|).

MiniMisc.zoom = function(buf_id, config)

if H.zoom_winid and vim.api.nvim_win_is_valid(H.zoom_winid) then

vim.api.nvim_win_close(H.zoom_winid, true)

H.zoom_winid = nil

else

buf_id = buf_id or 0

-- Currently very big `width` and `height` get truncated to maximum allowed

local default_config = { relative = 'editor', row = 0, col = 0, width = 1000, height = 1000 }

config = vim.tbl_deep_extend('force', default_config, config or {})

H.zoom_winid = vim.api.nvim_open_win(buf_id, true, config)

vim.cmd('normal! zz')

end

-- Helper data ================================================================

-- Module default config

H.default_config = MiniMisc.config

-- Window identifier of current zoom (for `zoom()`)

H.zoom_winid = nil

-- Helper functionality =======================================================

-- Settings -------------------------------------------------------------------

H.setup_config = function(config)

-- General idea: if some table elements are not present in user-supplied

-- `config`, take them from default config

vim.validate({ config = { config, 'table', true } })

config = vim.tbl_deep_extend('force', H.default_config, config or {})

vim.validate({

make_global = {

config.make_global,

function(x)

if type(x) ~= 'table' then return false end

local present_fields = vim.tbl_keys(MiniMisc)

for _, v in pairs(x) do

if not vim.tbl_contains(present_fields, v) then return false end

end

return true

end,

'`make_global` should be a table with `MiniMisc` actual fields',

})

return config

end

H.apply_config = function(config)

MiniMisc.config = config

for _, v in pairs(config.make_global) do

_G[v] = MiniMisc[v]

end

-- Utilities ------------------------------------------------------------------

H.error = function(msg) error(string.format('(mini.misc) %s', msg)) end

H.is_array_of = function(x, predicate)

if not vim.tbl_islist(x) then return false end

for _, v in ipairs(x) do

if not predicate(v) then return false end

end

return true

end

H.is_number = function(x) return type(x) == 'number' end

return MiniMisc

FilesExpand file tree

misc.lua

Latest commit

History

misc.lua

File metadata and controls