changelog shortlog graph tags branches changeset files file revisions raw help

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

changeset 130: 8802237cab53
parent: 99f2ab6bc8ba
child: d20482540d67
author: ellis <ellis@rwest.io>
date: Tue, 26 Dec 2023 23:50:32 -0500
permissions: -rw-r--r--
description: fixes
127
960c010a23ce replaced lalr parser with YACC, removed vcard and ical data formats (requires xpath), added org elements and objects
ellis <ellis@rwest.io>
parents:
diff changeset
1 
 ;;; lib/organ/element/paragraph.lisp --- Org Paragraph
960c010a23ce replaced lalr parser with YACC, removed vcard and ical data formats (requires xpath), added org elements and objects
ellis <ellis@rwest.io>
parents:
diff changeset
2 
 
960c010a23ce replaced lalr parser with YACC, removed vcard and ical data formats (requires xpath), added org elements and objects
ellis <ellis@rwest.io>
parents:
diff changeset
3 
 ;;
960c010a23ce replaced lalr parser with YACC, removed vcard and ical data formats (requires xpath), added org elements and objects
ellis <ellis@rwest.io>
parents:
diff changeset
4 
 
960c010a23ce replaced lalr parser with YACC, removed vcard and ical data formats (requires xpath), added org elements and objects
ellis <ellis@rwest.io>
parents:
diff changeset
5 
 ;;; Code:
960c010a23ce replaced lalr parser with YACC, removed vcard and ical data formats (requires xpath), added org elements and objects
ellis <ellis@rwest.io>
parents:
diff changeset
6 
 (in-package :organ)
960c010a23ce replaced lalr parser with YACC, removed vcard and ical data formats (requires xpath), added org elements and objects
ellis <ellis@rwest.io>
parents:
diff changeset
7 
 
130
ellis <ellis@rwest.io>
parents: 128
diff changeset
8 
 (define-org-element paragraph ((contents :initarg :contents :type (or list string) :accessor org-contents)) :lesser t)
127
960c010a23ce replaced lalr parser with YACC, removed vcard and ical data formats (requires xpath), added org elements and objects
ellis <ellis@rwest.io>
parents:
diff changeset
9 
 
128
99f2ab6bc8ba organ work
ellis <ellis@rwest.io>
parents: 127
diff changeset
10 
 (define-org-parser (paragraph :from string)
130
ellis <ellis@rwest.io>
parents: 128
diff changeset
11 
   (setf (org-contents paragraph) input)
ellis <ellis@rwest.io>
parents: 128
diff changeset
12 
   paragraph)