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 | |
| 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')
| -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 |