feature: add scroll_up/down_preview actions

obaland · Aug 6, 2023 · 89f613b · 89f613b
1 parent ff9cd7f
commit 89f613b
Show file tree

Hide file tree

Showing 3 changed files with 34 additions and 0 deletions.
diff --git a/doc/vfiler.md b/doc/vfiler.md
@@ -689,6 +689,12 @@ Toggle the automatic preview window.
 #### toggle_preview
 Toggle the preview window for the item in the current cursor.
 
+#### scroll_down_preview
+Scroll down in preview window.
+
+#### scroll_up_preview
+Scroll up in preview window.
+
 ---
 
 ### Action to view

diff --git a/lua/vfiler/actions/preview.lua b/lua/vfiler/actions/preview.lua
@@ -57,4 +57,22 @@ function M.toggle_preview(vfiler, context, view)
   utils.open_preview(vfiler, context, view)
 end
 
+function M.scroll_down_preview(vfiler, context, view)
+  local in_preview = context.in_preview
+  local preview = in_preview.preview
+  if not preview then
+    return
+  end
+  preview:scroll_down()
+end
+
+function M.scroll_up_preview(vfiler, context, view)
+  local in_preview = context.in_preview
+  local preview = in_preview.preview
+  if not preview then
+    return
+  end
+  preview:scroll_up()
+end
+
 return M
diff --git a/lua/vfiler/preview.lua b/lua/vfiler/preview.lua
@@ -207,4 +207,14 @@ function Preview:close()
   self.opened = false
 end
 
+function Preview:scroll_down()
+    -- \x04 is <C-D>
+    vim.fn.win_execute(self._window:id(), 'normal! \x04', 'silent')
+end
+
+function Preview:scroll_up()
+    -- \x15 is <C-U>
+    vim.fn.win_execute(self._window:id(), 'normal! \x15', 'silent')
+end
+
 return Preview