@@ -21,7 +21,7 @@ pub fn generate_sitemap(data: CompleteData) -> option.Option(String) {
2121 } ) ,
2222 )
2323
24- let post_entries =
24+ let all_entries =
2525 data . content
2626 |> list . map ( fn ( post ) {
2727 // We'll get the url, dates, title and description for each post
@@ -44,10 +44,6 @@ pub fn generate_sitemap(data: CompleteData) -> option.Option(String) {
4444 }
4545 # ( url , lastmod , post . title , post . description )
4646 } )
47-
48- // Add homepage with default values
49- let all_entries =
50- [ # ( base_url , "" , "Homepage" , "The main page of the site" ) , .. post_entries ]
5147 |> list . map ( fn ( entry ) {
5248 // If the entry is the homepage, make it / instead of the base URL
5349 let # ( url , lastmod , title , desc ) = entry
@@ -74,13 +70,14 @@ pub fn generate_sitemap(data: CompleteData) -> option.Option(String) {
7470 ) ,
7571 ] ,
7672 list . map ( all_entries , fn ( entry ) {
77- let # ( url , lastmod , title , desc ) = entry
73+ let # ( url , lastmod , _title , _desc ) = entry
7874 let mut_elements = [
7975 element ( "loc" , [ ] , [ element . text ( url ) ] ) ,
8076 element ( "changefreq" , [ ] , [ element . text ( "weekly" ) ] ) ,
8177 element ( "priority" , [ ] , [ element . text ( "1.0" ) ] ) ,
82- cdata_into_lustre ( "title" , element . text ( title ) ) ,
83- cdata_into_lustre ( "description" , pottery . parse_html ( desc , "descr.dj" ) ) ,
78+ // Description and title are not standard in sitemaps, sadly.
79+ // cdata_into_lustre("title", element.text(title)),
80+ // cdata_into_lustre("description", pottery.parse_html(desc, "descr.dj")),
8481 ]
8582 // Only add lastmod if we have a date
8683 let elements = case lastmod {
@@ -94,18 +91,17 @@ pub fn generate_sitemap(data: CompleteData) -> option.Option(String) {
9491 // Convert the XML tree to a string
9592 option . Some ( element . to_readable_string ( urlset ) )
9693}
97-
98- fn cdata_into_lustre (
99- element_tag : String ,
100- inner : Element ( a) ,
101- ) -> element . Element ( a) {
102- // Create a CDATA section in Lustre
103- // as a string :
104- // <![CDATA[ ... ]]>
105- element . unsafe_raw_html (
106- "" ,
107- element_tag ,
108- [ ] ,
109- "<![CDATA[" <> element . to_string ( inner ) <> "]]>" ,
110- )
111- }
94+ // fn cdata_into_lustre(
95+ // element_tag: String,
96+ // inner: Element(a),
97+ // ) -> element.Element(a) {
98+ // // Create a CDATA section in Lustre
99+ // // as a string :
100+ // // <![CDATA[ ... ]]>
101+ // element.unsafe_raw_html(
102+ // "",
103+ // element_tag,
104+ // [],
105+ // "<![CDATA[" <> element.to_string(inner) <> "]]>",
106+ // )
107+ // }
0 commit comments