library(emayili)

msg <- envelope(
  to = Sys.getenv("SMTP_USERNAME"),
  from = Sys.getenv("SMTP_USERNAME"),
  subject = "Test Newsletter"
) %>%
  template(
    "newsletter",
    jumbo_title = "A Sample Newsletter",
    jumbo_text = "A newsletter sent using <code>{emayili}</code>.",
    about = "Example newsletter.",
    articles = list(
      list(
        "title" = "Article 1",
        "content" = list("Lobortis pellentesque nisi, pellentesque egestas quis fames. Dui finibus pellentesque \
                         suscipit nisl eu egestas eu donec aenean. At sed adipiscing ex parturient montes a \
                         duis dapibus. Volutpat potenti nibh libero nec, taciti vestibulum tincidunt tempor \
                         vestibulum. Sed turpis laoreet maecenas sed sodales porta litora litora amet. Erat \
                         consequat dis sollicitudin turpis sed sed, vel! Nascetur morbi commodo ut. Sociis eros \
                         consectetur quis orci. Tempus justo pulvinar eget nisi ultricies sapien libero a. \
                         Integer auctor tortor varius lorem ut, diam elit vehicula id at. Lacus suscipit leo, eu \
                         nisi sed amet parturient elementum mauris. Finibus maximus eget felis."),
        "date" = "1 January 2022"
      ),
      list(
        "title" = "Article 2",
        "content" = list("Luctus euismod sociis maximus aptent eu nostra vitae quis duis viverra. Integer nam in \
                         hac tempus luctus a ligula. Vel a, ut auctor massa bibendum amet ac mauris interdum \
                         nostra. Cursus, posuere at sapien semper mattis efficitur curabitur dui mauris sem et \
                         donec. In, tristique duis facilisis vestibulum sodales taciti. Auctor tristique erat \
                         aliquam porttitor consectetur laoreet in lorem. Sapien mattis non vehicula amet, libero \
                         vel amet nullam. Ligula sociis erat sociis mattis porttitor. Molestie class aliquet \
                         arcu. Consectetur nascetur donec."),
        "date" = "3 January 2022"
      )
    ),
    cards = list(
      list(
        "title" = "Mingwei Lim",
        "text" = "Lorem ipsum dolor sit amet, et class tellus egestas maecenas in ornare aliquam in ultrices \
        consectetur. Eros augue torquent, sollicitudin at per vel! Et nunc vel quis, in neque a sed. Fermentum \
        in sagittis malesuada turpis.",
        "date" = "3 January 2022",
        "category" = "Art",
        "image" = list(
          "url" = "https://datawookie.dev/blog/2022/01/emayili-message-templates/_ypG9UJI4Mo.png",
          "alt" = "Image by Mingwei Lim"
        )
      ),
      list(
        "title" = "Solen Feyissa",
        "text" = "At ultrices dictumst diam faucibus et quam eros aliquet dui nec senectus vel eget! Venenatis \
        commodo ut ut id tincidunt bibendum. Dolor dictumst pellentesque, nunc nostra blandit, a ad. Sed non \
        senectus sociosqu. In ultricies erat.",
        "date" = "3 January 2022",
        "category" = "Art",
        "image" = list(
          "url" = "https://datawookie.dev/blog/2022/01/emayili-message-templates/FzhVhZ1l7-0.png",
          "alt" = "Image by Solen Feyissa"
        )
      )
    ),
    links = list(
      list(
        "text" = "GitHub",
        "url" = "https://github.com/datawookie/emayili"
      ),
      list(
        "text" = "CRAN",
        "url" = "https://cran.r-project.org/package=emayili"
      )
    )
  )