tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-lparse.el: Recognize #+begin_list-table...#+end_list-table blocks 

* contrib/lisp/org-lparse.el (org-lparse-list-table-enable):
New customizable variable.
(org-lparse-preprocess-after-blockquote-hook): New hook to
treat #+begin_list-table...#+end_list-table blocks specially.
Add this hook to
`org-export-preprocess-after-blockquote-hook'.
(org-lparse-list-table-p): New variable. Bound during
`org-do-lparse'.
(org-lparse-begin-environment, org-lparse-end-environment):
Set `org-lparse-list-table-p' as the engine moves in and out
of list-table blocks.
(org-do-lparse): Bind `org-lparse-list-table-p' to nil on
start of export.  Honor
ORG_LIST-TABLE-START...ORG-LIST-TABLE-END environment.

Actual export of list as table is not implemented yet.
This commit is contained in:
Jambunathan K 2011-09-01 15:03:52 +05:30
parent ea7732d269
commit 0e1f11e730
1 changed files with 41 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
contrib/lisp/org-lparse.el
View File

@ -722,6 +722,7 @@ version."
; collecting styles
org-lparse-encode-pending
org-lparse-par-open
org-lparse-list-table-p
(org-lparse-list-level 0) ; list level starts at 1. A
; value of 0 implies we are
; outside of any list
@ -1041,7 +1042,7 @@ version."
(f (cdr (assoc (match-string 2 line)
'(("START" . org-lparse-begin-environment)
("END" . org-lparse-end-environment))))))
(when (memq style '(blockquote verse center))
(when (memq style '(blockquote verse center list-table))
(funcall f style)
(throw 'nextline nil))))
@ -1843,17 +1844,49 @@ information."
(org-lparse-end-paragraph)
(org-lparse-end-list-item (or type "u")))
(defcustom org-lparse-list-table-enable nil
"Specify whether a list be exported as a table.
When this option is enabled, lists that are enclosed in
\"#+begin_list-table...#+end_list-table\" are exported as
tables. Otherwise they are exported normally."
:type 'boolean
:group 'org-lparse)
(defun org-lparse-preprocess-after-blockquote-hook ()
"Treat #+begin_list-table...#+end_list-table blocks specially.
When `org-lparse-list-table-enable' is non-nil, enclose these
blocks within ORG-LIST-TABLE-START...ORG-LIST-TABLE-END."
(when org-lparse-list-table-enable
(goto-char (point-min))
(while (re-search-forward "^[ \t]*#\\+\\(begin\\|end\\)_\\(.*\\)$" nil t)
(when (string= (downcase (match-string 2)) "list-table")
(replace-match (if (equal (downcase (match-string 1)) "begin")
"ORG-LIST-TABLE-START"
"ORG-LIST-TABLE-END") t t)))))
(add-hook 'org-export-preprocess-after-blockquote-hook
'org-lparse-preprocess-after-blockquote-hook)
(defvar org-lparse-list-table-p nil
"Non-nil if `org-do-lparse' is within a list-table.
See `org-lparse-list-table-enable'.")
(defvar org-lparse-dyn-current-environment nil)
(defun org-lparse-begin-environment (style)
(assert (not org-lparse-dyn-current-environment) t)
(setq org-lparse-dyn-current-environment style)
(org-lparse-begin 'ENVIRONMENT style))
(case style
(list-table
(setq org-lparse-list-table-p org-lparse-list-table-enable))
(t
(setq org-lparse-dyn-current-environment style)
(org-lparse-begin 'ENVIRONMENT style))))
(defun org-lparse-end-environment (style)
(org-lparse-end 'ENVIRONMENT style)
(assert (eq org-lparse-dyn-current-environment style) t)
(setq org-lparse-dyn-current-environment nil))
(case style
(list-table
(setq org-lparse-list-table-p nil))
(t
(org-lparse-end 'ENVIRONMENT style)
(setq org-lparse-dyn-current-environment nil))))
(defun org-lparse-current-environment-p (style)
(eq org-lparse-dyn-current-environment style))