[elpa] externals/boxy-headings 1e3e624 2/2: Merge branch 'next' into 'main'

[ELPA Syncer]

branch: externals/boxy-headings
commit 1e3e62410e99f2665f40e6aa3638f267aa7eb7eb
Merge: 8eacc56 9f06db3
Author: Tyler Grinn <tyler@tygr.info>
Commit: Tyler Grinn <tyler@tygr.info>

    Merge branch 'next' into 'main'
    
    Use #+TITLE property if it exists
    
    Closes #3
    
    See merge request tygrdev/boxy-headings!7
---
 .gitlab-ci.yml   | 5 ++++-
 boxy-headings.el | 8 +++-----
 2 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/.gitlab-ci.yml b/.gitlab-ci.yml
index 74e6f75..b963070 100644
--- a/.gitlab-ci.yml
+++ b/.gitlab-ci.yml
@@ -11,7 +11,10 @@ package:
     - curl -fsSL https://raw.github.com/doublep/eldev/master/webinstall/eldev 
| sh
     - export PATH=$PATH:/root/.eldev/bin
   script:
-    - eldev lint
+    - eldev lint doc
+    - eldev lint re
+    # TODO package-lint erroneously says emacs 26 doesn't support 
org-collect-keywords
+    # - eldev lint package
     - eldev compile -W
     - eldev test
     - eldev package
diff --git a/boxy-headings.el b/boxy-headings.el
index 6760483..065f4fe 100644
--- a/boxy-headings.el
+++ b/boxy-headings.el
@@ -5,7 +5,7 @@
 ;; Author: Tyler Grinn <tylergrinn@gmail.com>
 ;; Version: 2.1.2
 ;; File: boxy-headings.el
-;; Package-Requires: ((emacs "26.1") (boxy "1.0") (org "9.3"))
+;; Package-Requires: ((emacs "26.1") (boxy "1.0") (org "9.4"))
 ;; Keywords: tools
 ;; URL: https://gitlab.com/tygrdev/boxy-headings
 
@@ -304,11 +304,9 @@ diagram."
   "Create a `boxy-box' from the current buffer's headings."
   (org-columns-get-format)
   (let* ((headings (cddr (org-element-parse-buffer 'headline)))
-         (filename (buffer-name))
-         (title (or (concat (file-name-base filename) "." (file-name-extension 
filename))
-                    "Document"))
+         (title (cadr (car (org-collect-keywords '("title")))))
          (world (boxy-box))
-         (document (boxy-box :name title
+         (document (boxy-box :name (or title (buffer-name) "Document")
                              :tooltip ""
                              :markers (list (point-min-marker)))))
     (boxy-add-next document world)