Commit aecece9d authored by Thierry Martinez's avatar Thierry Martinez
Browse files

Index sorted

parent 37917bde
...@@ -334,8 +334,9 @@ generate_body_item(index, Doc, _Type) :- ...@@ -334,8 +334,9 @@ generate_body_item(index, Doc, _Type) :-
\+ ( \+ (
format(Doc, '<h4>~a</h4>\n', [Letter]), format(Doc, '<h4>~a</h4>\n', [Letter]),
write(Doc, '<ul>\n'), write(Doc, '<ul>\n'),
sort(1, @=<, Entries, SortedEntries),
\+ ( \+ (
member((Key: Sections), Entries), member((Key: Sections), SortedEntries),
\+ ( \+ (
format(Doc, '<li>~a ', [Key]), format(Doc, '<li>~a ', [Key]),
\+ ( \+ (
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment