diff options
| -rw-r--r-- | www/build-site.el | 12 | ||||
| -rw-r--r-- | www/www.org | 12 |
2 files changed, 12 insertions, 12 deletions
diff --git a/www/build-site.el b/www/build-site.el index 575bfe2..2146334 100644 --- a/www/build-site.el +++ b/www/build-site.el @@ -4,10 +4,10 @@ ( defun publication-builder () ( let ( ( report-success "Build complete!" ) ) - ( lambda () - ( message report-success ) - ( ) ) ) ) + ( list + :success-report + ( lambda () + ( message report-success ) + ( ) ) ) ) ) -( defvar publish ( publication-builder ) ) - -( funcall publish ) +( funcall ( plist-get ( publication-builder ) :success-report ) ) diff --git a/www/www.org b/www/www.org index 1b0a362..7a4b615 100644 --- a/www/www.org +++ b/www/www.org @@ -49,13 +49,13 @@ are also published, in the sequence given. ( defun publication-builder () ( let ( ( report-success "Build complete!" ) ) - ( lambda () - ( message report-success ) - ( ) ) ) ) + ( list + :success-report + ( lambda () + ( message report-success ) + ( ) ) ) ) ) - ( defvar publish ( publication-builder ) ) - - ( funcall publish ) + ( funcall ( plist-get ( publication-builder ) :success-report ) ) #+END_SRC * EOF |