diff options
Diffstat (limited to 'www/build-site.el')
-rw-r--r-- | www/build-site.el | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/www/build-site.el b/www/build-site.el index 3e88b9a..af692e7 100644 --- a/www/build-site.el +++ b/www/build-site.el @@ -23,17 +23,18 @@ ( print success-report ) ( ) ) ) ) ) -( setq publication-instance ( publication-object ) ) +( defun object-compose ( publication-instance ) + ( plist-get publication-instance :object-compose ) ) -( setq object-compose ( plist-get publication-instance :object-compose ) ) +( defun object-projects ( publication-instance ) + ( plist-get publication-instance :object-get-projects ) ) -( setq object-projects ( plist-get publication-instance :object-get-projects ) ) +( defun object-report ( publication-instance ) + ( plist-get publication-instance :object-report ) ) -( setq object-report ( plist-get publication-instance :object-report ) ) - -( defun publish ( &rest project-data ) +( defun publish ( publication-instance &rest project-data ) ( let ( ( data-projects ( plist-get project-data :data-projects ) ) ) - ( funcall object-projects data-projects ) - ( funcall object-compose ) - ( funcall object-report ) + ( funcall ( object-projects publication-instance ) data-projects ) + ( funcall ( object-compose publication-instance ) ) + ( funcall ( object-report publication-instance ) ) ( ) ) ) |