diff options
author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-01-20 01:04:20 +0100 |
---|---|---|
committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-01-20 01:04:20 +0100 |
commit | 74d62c2a1acb6e9d6aa78cc1670866b435313c12 (patch) | |
tree | ac48dd362f9fa6865f1448d4bea52d8aa65f9a95 | |
parent | eae4a41113d8c59d7ebea64e1c08b61d215b4b9b (diff) |
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.
-rw-r--r-- | www/build-site.el | 9 | ||||
-rw-r--r-- | 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 |