A static site generator written in Haskell
Ви не можете вибрати більше 25 тем Теми мають розпочинатися з літери або цифри, можуть містити дефіси (-) і не повинні перевищувати 35 символів.

12345678910111213141516171819202122232425262728293031323334353637383940414243444546
  1. module Templates
  2. ( defaultIndexTemplate
  3. , defaultPostTemplate
  4. )
  5. where
  6. defaultIndexTemplate :: String
  7. defaultIndexTemplate = unlines
  8. [ "<!DOCTYPE html>"
  9. , "<html lang=\"en\">"
  10. , " <head>"
  11. , " <meta charset=\"UTF-8\">"
  12. , " <meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0\">"
  13. , " <meta http-equiv=\"X-UA-Compatible\" content=\"ie=edge\">"
  14. , " <title></title>"
  15. , " </head>"
  16. , " <body>"
  17. , " <ul>"
  18. , " $for(posts)$"
  19. , " <li>"
  20. , " <a href=\"$posts.link$\">$posts.title$</a>"
  21. , " </li>"
  22. , " $endfor$"
  23. , " </ul>"
  24. , " </body>"
  25. , "</html>"
  26. ]
  27. defaultPostTemplate :: String
  28. defaultPostTemplate = unlines
  29. [ "<!DOCTYPE html>"
  30. , "<html lang=\"en\">"
  31. , " <head>"
  32. , " <meta charset=\"UTF-8\">"
  33. , " <meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0\">"
  34. , " <meta http-equiv=\"X-UA-Compatible\" content=\"ie=edge\">"
  35. , " <title>$title$</title>"
  36. , " </head>"
  37. , " <body>"
  38. , " <h1>$title$</h1>"
  39. , " <article>"
  40. , " $body$"
  41. , " </article>"
  42. , " </body>"
  43. , "</html>"
  44. ]