Fix breadcrumbs nav path fix for index pages.

PataphysicalSociety · Jul 14, 2019 · c2e3c62 · c2e3c62
1 parent c018a5b
commit c2e3c62
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/src/soupault.ml b/src/soupault.ml
@@ -132,7 +132,7 @@ let rec process_widgets settings env ws wh config soup =
     last parent if the page is an index page.
  *)
 let fix_nav_path settings path page_name =
-  if page_name = settings.index_page then Utils.safe_tl path
+  if page_name = settings.index_page then Utils.drop_tail path
   else path
 
 (*

diff --git a/src/utils.ml b/src/utils.ml
@@ -27,6 +27,9 @@ let safe_tl xs =
     | [] -> []
     | _ :: xs' -> xs'
 
+(** Removes the last element of a list *)
+let drop_tail xs = List.rev xs |> safe_tl |> List.rev
+
 (** Unsafely unwraps an option type.
     There are many places where None is easy to prove to not happen *)
 let unwrap_option o =