#34

frontend/src/pages/posts/PostListPage.tsx

@@ -19,6 +19,7 @@ import {
     LIST_LIMIT_OPTIONS,
     setClientListSettings,
 } from '@/lib/settings'
+import { useKeyboardShortcuts } from '@/lib/useKeyboardShortcuts'
 import { fetchWikiPageByTitle } from '@/lib/wiki'
 
 import type { FC } from 'react'
@@ -68,6 +69,12 @@ const PostListPage: FC = () => {
     setClientListSettings ('postList', { limit })
   }, [limit])
 
+  const updatePage = (nextPage: number) => {
+    const params = new URLSearchParams (location.search)
+    params.set ('page', String (Math.max (1, nextPage)))
+    navigate (`${ location.pathname }?${ params.toString () }`)
+  }
+
   const updateListQuery = (next: { limit?: 20 | 50 | 100 }) => {
     const params = new URLSearchParams (location.search)
     params.set ('limit', String (next.limit ?? limit))
@@ -75,6 +82,23 @@ const PostListPage: FC = () => {
     navigate (`${ location.pathname }?${ params.toString () }`)
   }
 
+  useKeyboardShortcuts (useMemo (() => ({
+      ...(page > 1
+	  ? {
+	      'pagination.previous': () => {
+		  updatePage (page - 1)
+	      },
+	  }
+	  : { }),
+      ...(totalPages > 0 && page < totalPages
+	  ? {
+	      'pagination.next': () => {
+		  updatePage (Math.min (page + 1, totalPages))
+	      },
+	  }
+	  : { }),
+  }), [page, totalPages, location.search]))
+
   useLayoutEffect (() => {
     scroll (0, 0)