[elpa] externals/org-real 4cc110c 086/160: Added document container to org-real-headlines

[ELPA Syncer]

branch: externals/org-real
commit 4cc110c819e9727599fa2b63b5270bdafd02c1e5
Author: Tyler Grinn <tylergrinn@gmail.com>
Commit: Tyler Grinn <tylergrinn@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))