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 /www/www.org | |
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.
Diffstat (limited to 'www/www.org')
-rw-r--r-- | www/www.org | 9 |
1 files changed, 6 insertions, 3 deletions
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 |