changelog shortlog graph tags branches changeset file revisions annotate raw help

Mercurial > core / lisp/lib/organ/element/lesser/paragraph.lisp

revision 128: 99f2ab6bc8ba
parent 127: 960c010a23ce
child 130: 8802237cab53
     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))