1.1--- a/lisp/lib/organ/element/lesser/paragraph.lisp Tue Dec 26 17:44:17 2023 -0500
1.2+++ b/lisp/lib/organ/element/lesser/paragraph.lisp Tue Dec 26 22:12:11 2023 -0500
1.3@@ -5,7 +5,9 @@
1.4 ;;; Code:
1.5 (in-package :organ)
1.6
1.7-(defclass org-paragraph (org-element) ())
1.8+(define-org-element paragraph ((contents :initarg :contents :type (or list string))) :lesser t)
1.9
1.10-(defmethod org-parse (input (type (eql :paragraph)))
1.11- (%make-org type input))
1.12+(define-org-parser (paragraph :from string)
1.13+ (with-slots (contents) paragraph
1.14+ (setf contents input)
1.15+ paragraph))