From 4d3565921b62ad5d0e1361c0ae611625fca65760 Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Mon, 15 Jul 2019 07:30:59 +1200
Subject: [PATCH] Psuedo-elements/classes do run, just not correctly.

---
 src/DefaultCSS.hs | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/src/DefaultCSS.hs b/src/DefaultCSS.hs
index b737c14..c36f137 100644
--- a/src/DefaultCSS.hs
+++ b/src/DefaultCSS.hs
@@ -9,30 +9,30 @@ userAgentCSS = unlines [
   "button[type=button] {speak: never}",
   "button[formaction] {speak: always}",
   "",
---  "button::before, input[type=button]::before, input[type=submit]::before {",
---  "        content: 'Button';",
---  "        pitch: high;",
---  "}",
---  "select::before, textarea::before, input::before {content: 'Input'; pitch: high}",
---  "output::before {content: 'Output'; pitch: high}",
+  "button::before, input[type=button]::before, input[type=submit]::before {",
+  "        content: 'Button';",
+  "        pitch: high;",
+  "}",
+  "select::before, textarea::before, input::before {content: 'Input'; pitch: high}",
+  "output::before {content: 'Output'; pitch: high}",
   "text-area, button, select, input, output {pitch: low}",
 --  "input, output {content: attr(value)}",
---  "text-area {speak-as: literal-punctuation}",
+  "text-area {speak-as: literal-punctuation}",
   "",
 --  "option:not([checked]) {speak: never}",
   "select[multiple] option {cue-before: url(bulletpoint.wav)}",
   "",
   "/* Forms themselves require a label in order to support navigation */",
---  "form::before {content: 'Form'}",
+  "form::before {content: 'Form'}",
 --  "form[action]::before {content: attr(action)}",
 --  "form[alt]::before {content: attr(alt)}",
 --  "form[title]::before {content: attr(title)}",
   "",
   "/** Tables **/",
---  "table::before {content: 'Table'; voice-volume: x-soft}",
+  "table::before {content: 'Table'; voice-volume: x-soft}",
   "tr {cue-before: url(bulletpoint.wav)}",
   "td, th {cue-before: url(bulletpoint.wav) -1db}",
---  "th::th /* Rhapsode-specific, selects inlined table headers */ {speak: never;}",
+  "th::th /* Rhapsode-specific, selects inlined table headers */ {speak: never;}",
   "table caption {voice-volume: soft}",
   "",
   "/** Sectioning **/",
@@ -50,8 +50,8 @@ userAgentCSS = unlines [
   "p, pre, samp, blockquote {pause: strong}",
   "pre, address, samp {speak-as: literal-punctuation}",
   "",
---  ":link {cue-before: url(link.wav); voice-rate: slow}",
---  ":link:visited {cue-before: url(link.wav) -1db}",
+  ":link {cue-before: url(link.wav); voice-rate: slow}",
+  ":link:visited {cue-before: url(link.wav) -1db}",
   "",
   "b, strong {voice-rate: x-slow}",
   "i, em {voice-stress: strong}",
-- 
2.30.2