Shift+PageUp/PageDown scroll a quarter page

src/toad/conversation_actions.py

@@ -60,6 +60,23 @@ class VimCancelAction(CancelAction):
     vim_profile = True
 
 
+class QuarterPageUpAction(ConversationAction):
+    """Scroll the conversation up a quarter page."""
+
+    keys = ("shift+pageup",)
+    direction = -1
+
+    async def apply(self, conversation):
+        conversation.window.scroll_quarter_page(self.direction)
+
+
+class QuarterPageDownAction(QuarterPageUpAction):
+    """Scroll the conversation down a quarter page."""
+
+    keys = ("shift+pagedown",)
+    direction = 1
+
+
 class ExpandBlockAction(ConversationAction):
     """Expand the block under the cursor."""
 

src/toad/widgets/history_anchor.py

@@ -478,6 +478,10 @@ def _on_mouse_scroll_down(self, event: events.MouseScrollDown) -> None:
     def action_page_down(self) -> None:
         self._scroll_or_prepare(max(1, self.scrollable_content_region.height), super().action_page_down)
 
+    def scroll_quarter_page(self, direction: int) -> None:
+        distance = direction * max(1, self.scrollable_content_region.height // 4)
+        self._scroll_or_prepare(distance, self.scroll_relative, None, distance)
+
     def _on_mouse_scroll_left(self, event: events.MouseScrollLeft) -> None:
         event.prevent_default()
         super()._on_mouse_scroll_left(event)