previews now scrollable

A little too much code duplication for scroll.
I'll refactor at some point.

2 files changed, 18 insertions, 0 deletions

diff --git a/src/command/mod.rs b/src/command/mod.rs
index 19c5e19..98fe403 100644
--- a/src/command/mod.rs
+++ b/src/command/mod.rs
@@ -3,6 +3,7 @@ mod completion;
 mod event;
 mod parts;
 mod sequence;
+mod scroll;
 mod trigger_type;
 
 pub use {
@@ -11,5 +12,6 @@ pub use {
     event::PanelInput,
     parts::CommandParts,
     sequence::parse_command_sequence,
+    scroll::ScrollCommand,
     trigger_type::TriggerType,
 };
diff --git a/src/command/scroll.rs b/src/command/scroll.rs
new file mode 100644
index 0000000..2cfd8e9
--- /dev/null
+++ b/src/command/scroll.rs
@@ -0,0 +1,16 @@
+
+#[derive(Debug, Clone, Copy)]
+pub enum ScrollCommand {
+    Lines(i32),
+    Pages(i32),
+}
+
+impl ScrollCommand {
+    pub fn to_lines(self, page_height: i32) -> i32 {
+        match self {
+            Self::Lines(n) => n,
+            Self::Pages(n) => n * page_height,
+        }
+    }
+}
+