From 1082237832d5ccabb770711bd9fe6602e537f012 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Sat, 20 Jan 2024 11:58:23 +0100 Subject: Fix name convention of the project getter Unify the naming convention of the project getter function to mirror the :object-get-projects method. --- www/build-site.el | 4 ++-- www/www.org | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/www/build-site.el b/www/build-site.el index af692e7..d9c0f62 100644 --- a/www/build-site.el +++ b/www/build-site.el @@ -26,7 +26,7 @@ ( defun object-compose ( publication-instance ) ( plist-get publication-instance :object-compose ) ) -( defun object-projects ( publication-instance ) +( defun object-get-projects ( publication-instance ) ( plist-get publication-instance :object-get-projects ) ) ( defun object-report ( publication-instance ) @@ -34,7 +34,7 @@ ( defun publish ( publication-instance &rest project-data ) ( let ( ( data-projects ( plist-get project-data :data-projects ) ) ) - ( funcall ( object-projects publication-instance ) data-projects ) + ( funcall ( object-get-projects publication-instance ) data-projects ) ( funcall ( object-compose publication-instance ) ) ( funcall ( object-report publication-instance ) ) ( ) ) ) diff --git a/www/www.org b/www/www.org index 55b2441..a6de898 100644 --- a/www/www.org +++ b/www/www.org @@ -106,7 +106,7 @@ are also published, in the sequence given. ( defun object-compose ( publication-instance ) ( plist-get publication-instance :object-compose ) ) - ( defun object-projects ( publication-instance ) + ( defun object-get-projects ( publication-instance ) ( plist-get publication-instance :object-get-projects ) ) ( defun object-report ( publication-instance ) @@ -114,7 +114,7 @@ are also published, in the sequence given. ( defun publish ( publication-instance &rest project-data ) ( let ( ( data-projects ( plist-get project-data :data-projects ) ) ) - ( funcall ( object-projects publication-instance ) data-projects ) + ( funcall ( object-get-projects publication-instance ) data-projects ) ( funcall ( object-compose publication-instance ) ) ( funcall ( object-report publication-instance ) ) ( ) ) ) -- cgit v1.2.3