branch: externals/org-real
commit 4cc110c819e9727599fa2b63b5270bdafd02c1e5
Author: Tyler Grinn <tylergr...@gmail.com>
Commit: Tyler Grinn <tylergr...@gmail.com>
Added document container to org-real-headlines
---
demo/projects.org | 3 ++-
org-real.el | 11 ++++++++---
2 files changed, 10 insertions(+), 4 deletions(-)
diff --git a/demo/projects.org b/demo/projects.org
index 58cd090..f5d06ee 100644
--- a/demo/projects.org
+++ b/demo/projects.org
@@ -1,3 +1,5 @@
+#+TITLE: Projects
+
* Ideas
** Keyboard pants
:PROPERTIES:
@@ -14,4 +16,3 @@
:REL: in front of
:END:
-
diff --git a/org-real.el b/org-real.el
index 174f8a6..ca5f3d7 100644
--- a/org-real.el
+++ b/org-real.el
@@ -1558,11 +1558,16 @@ set to the :loc slot of each box."
(defun org-real--parse-headlines ()
"Create an org real box from the current buffer's headlines."
- (let ((headlines (cddr (org-element-parse-buffer 'headline)))
- (world (org-real-box :level 1)))
+ (let* ((headlines (cddr (org-element-parse-buffer 'headline)))
+ (title (or (cadr (car (org-collect-keywords '("TITLE"))))
+ (file-name-base (buffer-file-name))
+ "Document"))
+ (world (org-real-box))
+ (document (org-real-box :name title)))
+ (org-real--flex-add document world)
(mapc
(lambda (headline)
- (org-real--add-headline headline world))
+ (org-real--add-headline headline document))
headlines)
world))
