Annotate sections of the publishing code

Divide the file into sections representing different abstraction layers of the
package.

1 files changed, 8 insertions, 0 deletions

diff --git a/www/build-site.el b/www/build-site.el
index d9c0f62..f2e8b7d 100644
--- a/www/build-site.el
+++ b/www/build-site.el
@@ -1,5 +1,7 @@
 ;; -*- lexical-binding: t; -*-
 
+;;; The Object Prototype
+
 ( defun publication-object ( )
   ( let ( ( object-projects ( list ) )
           ( org-publish-project-alist ( list ) )
@@ -23,6 +25,8 @@
         ( print success-report )
         ( ) ) ) ) )
 
+;;; The Object Interface
+
 ( defun object-compose ( publication-instance )
   ( plist-get publication-instance :object-compose ) )
 
@@ -32,6 +36,10 @@
 ( defun object-report ( publication-instance )
   ( plist-get publication-instance :object-report ) )
 
+;;; The User Logic
+
+;;; The User Interface
+
 ( defun publish ( publication-instance &rest project-data )
   ( let ( ( data-projects ( plist-get project-data :data-projects ) ) )
     ( funcall ( object-get-projects publication-instance ) data-projects )