summaryrefslogtreecommitdiff
path: root/example.scm
blob: 0bb7255b46b21035ae2b68321a7e9c1842a9259c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
(define-module (content)
  #:use-module ((atom) #:prefix atom:))

(define me (atom:person "Ekaitz"
                         #:email "ekaitz@elenq.tech"
                         #:uri   "https://elenq.tech"))

(define feed (atom:feed #:title     "Mi feed"
                         #:subtitle  "Este es mi feed"
                         #:uri       "https://thoughts.elenq.tech"))

(atom:entry feed
             #:title "first entry"
             #:published "2023-03-01"
             #:authors (list me)
             #:summary-html '(p "Este es el resumen")
             #:content-html '(p "Este es el contenido")
             #:categories (list "una" "dos" "tres")
             #:media (list (atom:media "../HOLA.webm" #:title  "01"
                                                      #:uri    "")))

(atom:render feed)