From b6e934250c4b7b74201984f74392a2ce510e055d Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Sun, 11 Aug 2024 00:31:17 +0200
Subject: Also mark comments

---
 cook/debug.sld           | 2 ++
 cook/parse-internals.sld | 2 ++
 cook/parse.scm           | 9 +++++++--
 cook/parse.sld           | 2 ++
 4 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/cook/debug.sld b/cook/debug.sld
index 9ae9638..6b7ef33 100644
--- a/cook/debug.sld
+++ b/cook/debug.sld
@@ -10,6 +10,8 @@
       (cond
         ((amount? y)
          (list 'amount (amount-quantity y) (amount-unit y)))
+        ((comment? y)
+         (list 'comment (comment-text y)))
         ((component? y)
          (list 'component (component-name y) (cook->list (component-amount y))))
         ((cookware? y)
diff --git a/cook/parse-internals.sld b/cook/parse-internals.sld
index 5b8df2e..99160fd 100644
--- a/cook/parse-internals.sld
+++ b/cook/parse-internals.sld
@@ -28,6 +28,8 @@
           metadata-line-value
           step?
           step-elements
+          comment?
+          comment-text
           parse-cook
           nl
           whitespace
diff --git a/cook/parse.scm b/cook/parse.scm
index 33bf3b0..2cc604b 100644
--- a/cook/parse.scm
+++ b/cook/parse.scm
@@ -51,6 +51,11 @@ https://github.com/cooklang/spec/blob/main/EBNF.md
   step?
   (elements step-elements))
 
+(define-record-type <comment>
+  (make-comment text)
+  comment?
+  (text comment-text))
+
 (define (metadata-line-list->hash-table meta-lines)
   (let ((metadata (make-hash-table)))
     (for-each (lambda (line)
@@ -86,9 +91,9 @@ https://github.com/cooklang/spec/blob/main/EBNF.md
                      (list->string c)))
 
     (comment        ((: "--" (=> c (+ ,any-text-chars)) ,nl)
-                     (list->string c))
+                     (make-comment (list->string c)))
                     ((: "[-" (=> c (* any)) "-]")
-                     (list->string c)))
+                     (make-comment (list->string c))))
 
     (word           ((=> w (+ ,word-chars))
                      (list->string w)))
diff --git a/cook/parse.sld b/cook/parse.sld
index 29742b0..6a92d1d 100644
--- a/cook/parse.sld
+++ b/cook/parse.sld
@@ -20,6 +20,8 @@
           cookware?
           cookware-name
           cookware-amount
+          comment?
+          comment-text
           step?
           step-elements
           parse-cook)
-- 
cgit v1.2.3