Skip to content

Commit

Permalink
Make pages html5 instead of html.
Browse files Browse the repository at this point in the history
This avoids enabling quirks mode and is just good practice.

I also added the lang attribute.
  • Loading branch information
Alys Brooks committed Dec 18, 2024
1 parent 48a3e2b commit 576e665
Showing 1 changed file with 9 additions and 9 deletions.
18 changes: 9 additions & 9 deletions src/pronouns/pages.clj
Original file line number Diff line number Diff line change
Expand Up @@ -18,7 +18,7 @@
(:require [clojure.string :as s]
[pronouns.config :refer [pronouns-table]]
[pronouns.util :as u]
[hiccup.core :refer :all]
[hiccup.page :refer [html5]]
[hiccup.element :as e]
[hiccup.util :refer [escape-html]]
[environ.core :refer [env]]))
Expand Down Expand Up @@ -145,8 +145,8 @@
(let [sub-objs (map #(s/join "/" (take 2 %)) pronoun-declensions)
title (str "Pronoun Island: " (prose-comma-list sub-objs) " examples")
examples (map #(apply examples-block %) pronoun-declensions)]
(html
[:html
(html5
[:html {:lang "en"}
(page-head title (u/strip-markup examples))
[:body
(header-block title)
Expand Down Expand Up @@ -177,8 +177,8 @@
links (map make-link abbreviations)
title "Pronoun Island"
description "Pronoun.is is a website for personal pronoun usage examples."]
(html
[:html
(html5
[:html {:lang "en"}
(page-head title description)
[:body
(header-block title)
Expand All @@ -194,8 +194,8 @@
links (map make-link abbreviations)
title "Pronoun Island"
description "List of of all personal pronouns known by Pronoun.is"]
(html
[:html
(html5
[:html {:lang "en"}
(page-head title description)
[:body
(header-block title)
Expand All @@ -207,8 +207,8 @@
(defn not-found [path]
(let [title "Pronoun Island: English Language Examples"
or-re #"/[oO][rR]/"]
(html
[:html
(html5
[:html {:lang "en"}
(page-head nil nil)
[:body
(header-block title)
Expand Down

0 comments on commit 576e665

Please sign in to comment.