From 74d62c2a1acb6e9d6aa78cc1670866b435313c12 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Sat, 20 Jan 2024 01:04:20 +0100 Subject: Complete the initial implementation of the publishing object. This marks the end of experimentation with OOP in elisp. From now the actual implementation of publishing system begins. --- www/build-site.el | 9 ++++++--- www/www.org | 9 ++++++--- 2 files changed, 12 insertions(+), 6 deletions(-) diff --git a/www/build-site.el b/www/build-site.el index 2146334..d3ef3d1 100644 --- a/www/build-site.el +++ b/www/build-site.el @@ -3,11 +3,14 @@ ( require 'ox-publish ) ( defun publication-builder () - ( let ( ( report-success "Build complete!" ) ) + ( let ( ( success-report "Build complete!" ) ) ( list :success-report ( lambda () - ( message report-success ) + ( message success-report ) ( ) ) ) ) ) -( funcall ( plist-get ( publication-builder ) :success-report ) ) +( setq publish + ( plist-get ( publication-builder ) :success-report ) ) + +( funcall publish ) diff --git a/www/www.org b/www/www.org index 7a4b615..831ee05 100644 --- a/www/www.org +++ b/www/www.org @@ -48,14 +48,17 @@ are also published, in the sequence given. ( require 'ox-publish ) ( defun publication-builder () - ( let ( ( report-success "Build complete!" ) ) + ( let ( ( success-report "Build complete!" ) ) ( list :success-report ( lambda () - ( message report-success ) + ( message success-report ) ( ) ) ) ) ) - ( funcall ( plist-get ( publication-builder ) :success-report ) ) + ( setq publish + ( plist-get ( publication-builder ) :success-report ) ) + + ( funcall publish ) #+END_SRC * EOF -- cgit v1.2.3