changelog shortlog graph tags branches changeset files file revisions raw help

Mercurial > core / annotate lisp/lib/organ/element/greater/table.lisp

changeset 698: 96958d3eb5b0
parent: a5ae5a58c4cd
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 22:04:59 -0400
permissions: -rw-r--r--
description: fixes
133
a5ae5a58c4cd org element comments and type definitions
ellis <ellis@rwest.io>
parents: 128
diff changeset
1 
 ;;; lib/organ/element/greater/table.lisp --- Org Table Elements
a5ae5a58c4cd org element comments and type definitions
ellis <ellis@rwest.io>
parents: 128
diff changeset
2 
 
a5ae5a58c4cd org element comments and type definitions
ellis <ellis@rwest.io>
parents: 128
diff changeset
3 
 ;; Tables are started by a line beginning with either:
a5ae5a58c4cd org element comments and type definitions
ellis <ellis@rwest.io>
parents: 128
diff changeset
4 
 
a5ae5a58c4cd org element comments and type definitions
ellis <ellis@rwest.io>
parents: 128
diff changeset
5 
 ;; - a vertical bar '|', designating an 'org' type table.
a5ae5a58c4cd org element comments and type definitions
ellis <ellis@rwest.io>
parents: 128
diff changeset
6 
 
a5ae5a58c4cd org element comments and type definitions
ellis <ellis@rwest.io>
parents: 128
diff changeset
7 
 ;; - the string '+-' followed by a sequence of plus '+' and minus
a5ae5a58c4cd org element comments and type definitions
ellis <ellis@rwest.io>
parents: 128
diff changeset
8 
 ;; - signs '-' forming a 'table.el' table type.
a5ae5a58c4cd org element comments and type definitions
ellis <ellis@rwest.io>
parents: 128
diff changeset
9 
 
a5ae5a58c4cd org element comments and type definitions
ellis <ellis@rwest.io>
parents: 128
diff changeset
10 
 ;; example
a5ae5a58c4cd org element comments and type definitions
ellis <ellis@rwest.io>
parents: 128
diff changeset
11 
 #|
a5ae5a58c4cd org element comments and type definitions
ellis <ellis@rwest.io>
parents: 128
diff changeset
12 
 | Name  | Phone | Age |
a5ae5a58c4cd org element comments and type definitions
ellis <ellis@rwest.io>
parents: 128
diff changeset
13 
 |-------+-------+-----|
a5ae5a58c4cd org element comments and type definitions
ellis <ellis@rwest.io>
parents: 128
diff changeset
14 
 | Peter |  1234 |  24 |
a5ae5a58c4cd org element comments and type definitions
ellis <ellis@rwest.io>
parents: 128
diff changeset
15 
 | Anna  |  4321 |  25 |
a5ae5a58c4cd org element comments and type definitions
ellis <ellis@rwest.io>
parents: 128
diff changeset
16 
 |#
a5ae5a58c4cd org element comments and type definitions
ellis <ellis@rwest.io>
parents: 128
diff changeset
17 
 
a5ae5a58c4cd org element comments and type definitions
ellis <ellis@rwest.io>
parents: 128
diff changeset
18 
 ;;; Code:
a5ae5a58c4cd org element comments and type definitions
ellis <ellis@rwest.io>
parents: 128
diff changeset
19 
 (in-package :organ)
a5ae5a58c4cd org element comments and type definitions
ellis <ellis@rwest.io>
parents: 128
diff changeset
20 
 
a5ae5a58c4cd org element comments and type definitions
ellis <ellis@rwest.io>
parents: 128
diff changeset
21 
 (define-org-element table (rows) :greater t)
a5ae5a58c4cd org element comments and type definitions
ellis <ellis@rwest.io>
parents: 128
diff changeset
22 
 
a5ae5a58c4cd org element comments and type definitions
ellis <ellis@rwest.io>
parents: 128
diff changeset
23 
 (define-org-element table-el (rows) :greater t)