~alcinnz/rhapsode

4d3565921b62ad5d0e1361c0ae611625fca65760 — Adrian Cochrane 4 years ago 1098881
Psuedo-elements/classes do run, just not correctly.
1 files changed, 12 insertions(+), 12 deletions(-)

M src/DefaultCSS.hs
M src/DefaultCSS.hs => src/DefaultCSS.hs +12 -12
@@ 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}",