diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/atom.scm | 32 | ||||
-rw-r--r-- | src/html.scm | 34 |
2 files changed, 64 insertions, 2 deletions
diff --git a/src/atom.scm b/src/atom.scm index 6e7a8b2..ba4ff3d 100644 --- a/src/atom.scm +++ b/src/atom.scm @@ -7,10 +7,42 @@ #:use-module (ice-9 binary-ports) #:use-module (rnrs bytevectors) #:export (feed + feed? + feed-id + feed-title + feed-subtitle + feed-uri + feed-updated + feed-entries append-feed-entry! + entry + entry? + entry-id + entry-title + entry-published + entry-updated + entry-authors + entry-summary + entry-content + entry-categories + entry-contributors + entry-media + person + person? + person-name + person-email + person-uri + media + media? + media-title + media-type + media-length + media-uri + media-path + render)) ; ATOM Explanation: http://www.atomenabled.org/developers/syndication/ diff --git a/src/html.scm b/src/html.scm index 18f568d..e957683 100644 --- a/src/html.scm +++ b/src/html.scm @@ -5,11 +5,41 @@ #:use-module (src mime-types) #:export (render person + person? + person-name + person-email + person-uri + post + post? + post-id + post-title + post-published + post-updated + post-authors + post-summary-html + post-content-html + post-categories + post-contributors + post-media + index + index? + index-title + index-short-description + index-long-description + index-uri + index-atom-feed-uri + index-author + index-posts + index-styles + index-scripts + media - css - js)) + media? + media-type + media-uri + media-path)) (define-record-type <index> (%make-index title short-description long-description uri atom-feed-uri author posts styles scripts) |