forked from ocaml/ocaml.org
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Fixes issue ocaml#1588 - Paginate the Package Search Results
- Loading branch information
Girish Jangam
authored and
Girish Jangam
committed
Oct 18, 2023
1 parent
e326bbf
commit 49b9626
Showing
4 changed files
with
16 additions
and
18 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,36 +1,36 @@ | ||
let link ~base_url ~page ~current = | ||
let link ~base_url ~page ~current ~query = | ||
let active_class = "border-2 border-current text-primary-600" in | ||
let non_active_class = "border border-body-100 text-lighter hover:bg-gray-50 hover:no-underline" in | ||
<a href="<%s base_url %>?p=<%i page %>" | ||
<a href="<%s base_url %>?p=<%i page %><%s if query = "" then "" else "&q=" ^ query %>" | ||
class="w-10 h-10 lg:w-14 lg:h-14 rounded-lg flex items-center justify-center <%s if page = current then active_class else non_active_class %>"> | ||
<%i page %> | ||
</a> | ||
|
||
let left_arrow ~base_url page = | ||
<a href="<%s base_url %>?p=<%i page - 1 %>" | ||
let left_arrow ~base_url page ~query= | ||
<a href="<%s base_url %>?p=<%i page - 1 %><%s if query = "" then "" else "&q=" ^ query %>" | ||
class="w-10 h-10 lg:w-14 lg:h-14 border border-body-100 rounded-lg flex items-center justify-center text-lighter hover:bg-gray-50 hover:no-underline"> | ||
<%s! Icons.chevron_left "h-5 w-5" %> | ||
</a> | ||
|
||
let right_arrow ~base_url page = | ||
<a href="<%s base_url %>?p=<%i page + 1 %>" | ||
let right_arrow ~base_url page ~query= | ||
<a href="<%s base_url %>?p=<%i page + 1 %><%s if query = "" then "" else "&q=" ^ query %>" | ||
class="w-10 h-10 lg:w-14 lg:h-14 border border-body-100 rounded-lg flex items-center justify-center text-lighter hover:bg-gray-50 hover:no-underline"> | ||
<%s! Icons.chevron_right "h-5 w-5" %> | ||
</a> | ||
|
||
let render ~total_page_count ~page_number ~base_url = | ||
let render ~total_page_count ~page_number ~base_url ~query= | ||
<div class="pt-16 flex items-center justify-center space-x-2.5"> | ||
<%s! if page_number != 1 then (left_arrow ~base_url page_number) else "" %> | ||
<%s! link ~base_url ~page:1 ~current:page_number %> | ||
<%s! if page_number != 1 then (left_arrow ~base_url page_number ~query) else "" %> | ||
<%s! link ~base_url ~page:1 ~current:page_number ~query %> | ||
<% if page_number >= 4 then ( %> | ||
<span class="w-10 h-10 lg:w-14 lg:h-14 border-body-100 rounded-lg flex items-center justify-center text-lighter hover:no-underline">...</span> | ||
<% ); %> | ||
<% for page = 2 to (total_page_count - 1) do %> | ||
<%s! if (abs (page_number - page) <= 1) || (page_number = 1 && page = 3) || (page_number = total_page_count && total_page_count - page = 2) then (link ~base_url ~page ~current:page_number) else "" %> | ||
<%s! if (abs (page_number - page) <= 1) || (page_number = 1 && page = 3) || (page_number = total_page_count && total_page_count - page = 2) then (link ~base_url ~page ~current:page_number ~query) else "" %> | ||
<% done; %> | ||
<% if total_page_count - page_number >= 3 then ( %> | ||
<span class="w-10 h-10 lg:w-14 lg:h-14 border-body-100 rounded-lg flex items-center justify-center text-lighter hover:no-underline">...</span> | ||
<% ); %> | ||
<%s! link ~base_url ~page:total_page_count ~current:page_number %> | ||
<%s! if page_number != total_page_count then (right_arrow ~base_url page_number) else "" %> | ||
<%s! link ~base_url ~page:total_page_count ~current:page_number ~query %> | ||
<%s! if page_number != total_page_count then (right_arrow ~base_url page_number ~query) else "" %> | ||
</div> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters