atom, html: rename internals to %*

1 files changed, 26 insertions, 26 deletions

diff --git a/src/atom.scm b/src/atom.scm
index 9f363f7..13bb89f 100644
--- a/src/atom.scm
+++ b/src/atom.scm
@@ -18,7 +18,7 @@
 
 ;; Entities
 (define-record-type <feed>
-  (make-feed id title subtitle uri updated entries)
+  (%make-feed id title subtitle uri updated entries)
   feed?
   (id feed-id)
   (title feed-title)
@@ -28,7 +28,7 @@
   (entries feed-entries set-feed-entries!))
 
 (define-record-type <entry>
-  (make-entry id title published updated authors summary content categories contributors media)
+  (%make-entry id title published updated authors summary content categories contributors media)
   entry?
   (id entry-id set-entry-id!)
   (title entry-title)
@@ -42,7 +42,7 @@
   (media entry-media))
 
 (define-record-type <media>
-  (make-media title type length uri path)
+  (%make-media title type length uri path)
   media?
   (title media-title)
   (type media-type)
@@ -51,7 +51,7 @@
   (path media-path))
 
 (define-record-type <person>
-  (make-person name email uri)
+  (%make-person name email uri)
   person?
   (name person-name)
   (email person-email)
@@ -71,12 +71,12 @@
                      (uri        "")
                      (posts     '())
                #:allow-other-keys)
-  (let* ((f (make-feed uri
-                       title
-                       subtitle
-                       uri
-                       (find-newest (map entry-updated posts))
-                       '()))
+  (let* ((f (%make-feed uri
+                        title
+                        subtitle
+                        uri
+                        (find-newest (map entry-updated posts))
+                        '()))
          (append-entry! (partial append-feed-entry! f)))
     (for-each append-entry!
               (sort posts date>?))
@@ -99,21 +99,21 @@
                   (if (char-set-contains? char-set:letter c) c #\-))
                 title))
 
-  (make-entry (or id (id-from-title title))
-              title
-              published
-              (find-newest (list published updated))
-              authors
-              summary-html
-              content-html
-              categories
-              contributors
-              media))
+  (%make-entry (or id (id-from-title title))
+               title
+               published
+               (find-newest (list published updated))
+               authors
+               summary-html
+               content-html
+               categories
+               contributors
+               media))
 
 (define* (person name #:key (email "")
                             (uri   "")
                       #:allow-other-keys)
-  (make-person name email uri))
+  (%make-person name email uri))
 
 
 (define* (media path #:key (title "")
@@ -124,11 +124,11 @@
            (type (assoc-ref mime-types extension)))
       (if (string? type) type (throw "Unknown mime-type"))))
   (let ((contents (call-with-input-file path get-bytevector-all #:binary #t)))
-    (make-media title
-                (type path)
-                (bytevector-length contents)
-                uri
-                path)))
+    (%make-media title
+                 (type path)
+                 (bytevector-length contents)
+                 uri
+                 path)))
 
 ;; Rendering
 (define (render-person tag person)