From eae4a41113d8c59d7ebea64e1c08b61d215b4b9b Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marek@marekpasnikowski.pl>
Date: Fri, 19 Jan 2024 21:17:47 +0100
Subject: Learn to use "named" lambdas in closures.

Rewrite the builder code with use of a property list.
---
 www/build-site.el | 12 ++++++------
 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
-- 
cgit v1.2.3