fix: closing task details pane moves to next page

dhth · Jul 15, 2024 · bff020c · bff020c
1 parent c09deed
commit bff020c
Show file tree

Hide file tree

Showing 4 changed files with 14 additions and 3 deletions.
diff --git a/README.md b/README.md
@@ -197,7 +197,7 @@ G                  go to the end
 tab                move between views
 c                  update context for a task
 C                  toggle showing context
-d                  show task details in a full screen pane
+d                  toggle Task Details pane
 v                  toggle between compact and spacious view
 h/l                move backwards/forwards when in the task details view
 q/esc/ctrl+c       go back/quit

diff --git a/internal/ui/help.go b/internal/ui/help.go
@@ -23,7 +23,7 @@ G                  go to the end
 tab                move between views
 c                  update context for a task
 C                  toggle showing context
-d                  show task details in a full screen pane
+d                  toggle Task Details pane
 v                  toggle between compact and spacious view
 h/l                move backwards/forwards when in the task details view
 q/esc/ctrl+c       go back/quit

diff --git a/internal/ui/initial.go b/internal/ui/initial.go
@@ -30,11 +30,13 @@ func InitialModel(db *sql.DB, config Config) model {
 	taskList.SetFilteringEnabled(false)
 	taskList.SetShowHelp(false)
 	taskList.DisableQuitKeybindings()
+	taskList.KeyMap.PrevPage.SetKeys("left", "h", "pgup")
+	taskList.KeyMap.NextPage.SetKeys("right", "l", "pgdown")
+
 	taskList.Styles.Title = taskList.Styles.Title.
 		Foreground(lipgloss.Color(defaultBackgroundColor)).
 		Background(lipgloss.Color(config.TaskListColor)).
 		Bold(true)
-
 	taskListTitleStyle := titleStyle.Background(lipgloss.Color(config.TaskListColor))
 
 	atlSelItemStyle := lipgloss.NewStyle().Foreground(lipgloss.Color(config.ArchivedTaskListColor))
@@ -53,6 +55,9 @@ func InitialModel(db *sql.DB, config Config) model {
 	archivedTaskList.SetFilteringEnabled(false)
 	archivedTaskList.SetShowHelp(false)
 	archivedTaskList.DisableQuitKeybindings()
+	archivedTaskList.KeyMap.PrevPage.SetKeys("left", "h", "pgup")
+	archivedTaskList.KeyMap.NextPage.SetKeys("right", "l", "pgdown")
+
 	archivedTaskList.Styles.Title = archivedTaskList.Styles.Title.
 		Foreground(lipgloss.Color(defaultBackgroundColor)).
 		Background(lipgloss.Color(config.ArchivedTaskListColor)).

diff --git a/internal/ui/update.go b/internal/ui/update.go
@@ -528,13 +528,19 @@ func (m model) Update(msg tea.Msg) (tea.Model, tea.Cmd) {
 			taskList.SetShowHelp(false)
 			taskList.DisableQuitKeybindings()
 			taskList.Styles.Title = m.taskList.Styles.Title
+			taskList.KeyMap.PrevPage.SetKeys("left", "h", "pgup")
+			taskList.KeyMap.NextPage.SetKeys("right", "l", "pgdown")
+
 			m.taskList = taskList
 			m.taskList.Select(tlIndex)
 
 			archivedTaskList.SetShowTitle(false)
 			archivedTaskList.SetFilteringEnabled(false)
 			archivedTaskList.SetShowHelp(false)
 			archivedTaskList.DisableQuitKeybindings()
+			archivedTaskList.KeyMap.PrevPage.SetKeys("left", "h", "pgup")
+			archivedTaskList.KeyMap.NextPage.SetKeys("right", "l", "pgdown")
+
 			m.archivedTaskList = archivedTaskList
 			m.archivedTaskList.Select(atlIndex)