vi-plugin/view.lua at main · micro-garden/vi-plugin · GitHub

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
99
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
-- View Commands
local micro = import("micro")
local utf8 = import("unicode/utf8")

local config = import("micro/config")
local plug_path = config.ConfigDir .. "/plug/?.lua"
if not package.path:find(plug_path, 1, true) then
	package.path = package.path .. ";" .. plug_path
end

local bell = require("vi/bell")
local mode = require("vi/mode")
local move = require("vi/move")

--
-- Scroll by View Height / Scroll by Line
--

-- Ctrl-f : Scroll down by view height.
local function down()
	bell.not_planned("Ctrl-f (view.down)")
end

-- Ctrl-b : Scroll up by view height.
local function up()
	bell.not_planned("Ctrl-b (view.up)")
end

-- Ctrl-d : Scroll down by half view height.
local function down_half()
	bell.not_planned("Ctrl-d (view.down_half)")
end

-- Ctrl-u : Scroll up by half view height.
local function up_half()
	bell.not_planned("Ctrl-u (view.up_half)")
end

-- Ctrl-y : Scroll down by line.
local function down_line()
	bell.not_planned("Ctrl-y (view.down_line)")
end

-- Ctrl-e : Scroll up by line.
local function up_line()
	bell.not_planned("Ctrl-e (view.up_line)")
end

--
-- Reposition
--

-- z Enter : Reposition cursor line to top of view.
local function to_top()
	mode.show()

	local pane = micro.CurPane()
	local v = pane:GetView()
	local buf = pane.Buf
	local cursor = buf:GetActiveCursor()
	v.StartLine.Line = cursor.Y

	local line = buf:Line(cursor.Y)
	local spaces = line:match("^(%s*)")
	cursor.X = utf8.RuneCount(spaces)

	move.update_virtual_cursor()
end

-- z. : Reposition cursor line middle of view.
local function to_middle()
	mode.show()

	local pane = micro.CurPane()
	local v = pane:GetView()
	local bv = pane:BufView()
	local buf = pane.Buf
	local cursor = buf:GetActiveCursor()
	local offset = math.floor(bv.Height / 2)
	v.StartLine.Line = math.max(cursor.Y - offset, 0)

	local line = buf:Line(cursor.Y)
	local spaces = line:match("^(%s*)")
	cursor.X = utf8.RuneCount(spaces)

	move.update_virtual_cursor()
end

-- z- : Reposition cursor line bottom of view.
local function to_bottom()
	mode.show()

	local pane = micro.CurPane()
	local v = pane:GetView()
	local bv = pane:BufView()
	local buf = pane.Buf
	local cursor = buf:GetActiveCursor()
	v.StartLine.Line = math.max(cursor.Y - bv.Height + 1, 0)

	local line = buf:Line(cursor.Y)
	local spaces = line:match("^(%s*)")
	cursor.X = utf8.RuneCount(spaces)

	move.update_virtual_cursor()
end

--
-- Redraw
--

-- Ctrl-l : Redraw view.
local function redraw()
	bell.not_planned("Ctrl-l (view.redraw)")
end

-------------
-- Exports --
-------------

local M = {}

-- Scroll by View Height / Scroll by Line
M.down = down
M.up = up
M.down_half = down_half
M.up_half = up_half
M.down_line = down_line
M.up_line = up_line

-- Reposition
M.to_top = to_top
M.to_middle = to_middle
M.to_bottom = to_bottom

-- Redraw
M.redraw = redraw

return M