IntroOutro.hs 3.5 KB

  1. module IntroOutro where
  2. import HTML
  3. import Prelude hiding (div)
  4. introduction :: String
  5. introduction
  6. = h1 "Avery's Doctor Who Guide"
  7. +. p "So, you want to watch Classic Doctor Who but you're not so sure on how much to watch? You've come to the right place! This guide has several different tracks depending on what you're interested in:"
  8. +. "<table>"
  9. +. concatMap (tr' "intro")
  10. [
  11. (td' "Highly" "Fast Track"
  12. ++ td' "invisible" "The Highly recommended episodes. If you only want a small sampling of episodes, look here!")
  13. , (td' "Yes" "Recommended Track"
  14. +. td' "invisible" ("For most people: watch both the Fast Track episodes and the Recommended episodes. You'll get quite a lot of Doctor Who, without having to sit through the slower stuff."
  15. +. "<br>" +. "Some stories are marked as a <span class=Partial>partial watch</span> – this means you <strong>should</strong> watch it, but not all of it – just certain episodes.")
  16. )
  17. , (td' "Maybe" "Maybe Track"
  18. +. td' "invisible" "If you're interested in a more thorough watch, you can also watch the episodes on the maybe track. These aren't neccesarily bad episodes, just ones that are hard to recommend.")
  19. , (td' "No" "Avoid"
  20. +. td' "invisible" "These episodes are only recommended if you're truly curious and dedicated.")
  21. ]
  22. +. "</table>"
  23. +. p "This guide is currently a work in progress, and only goes as far as I've watched so far. I started watching through the episodes for this guide in early May 2018, and I'm still going strong."
  24. +. div "dimbox" (
  25. h3 "Important note"
  26. +. p ("A lot of the black and white episodes were "
  27. ++ a "" "destroyed by the BBC to make room for other programs"
  28. ++ ", so all that remains of them is fan reconstructions. The reconstructions are well made, however they can be hard to watch – don't make yourself sit through them if you're having trouble with them.")
  29. +. p "The reconstructions are clearly marked, so you should be able to tell which ones they are. Note that the partial reconstructions (the ones where not all the episodes are missing) are often much easier to watch than the complete reconstructions, so they have been marked differently."
  30. )
  31. outro :: String
  32. outro = "<hr>"
  33. +. div "dimbox" (
  34. h3 "Acknowledgements"
  35. +. p "Thanks to:"
  36. +. "<ul>"
  37. +. li (a "" "" ++ " for convincing me to upgrade the recommendations for The Aztecs, The Sensorites, and The Reign of Terror; as well as downgrading The Edge of Destruction")
  38. +. li (a "" "" ++ " for making the downgrade of The Edge of Destruction more solid, by pointing out how the plot contrivances make everyone act out of character")
  39. +. li (a "" "" ++ " for convincing me to review the reconstructions as well")
  40. +. li "And a bunch of others on the fediverse for helping me make the colourscheme in this document less garish."
  41. +. "</ul>"
  42. +. p ("This guide was not created manually, but was (somewhat) automated with a program I made one afternoon. You can find the source for it " ++ a "" "on NotABug")
  43. )
  44. +. div "return" (p $ a "../" "Return Home")