branch: externals/boxy-headings
commit 9f06db3ab16cd0e78624d4d1841031649916f364
Author: Tyler Grinn <tylergr...@gmail.com>
Commit: Tyler Grinn <tylergr...@gmail.com>
Use #+TITLE property if it exists
---
.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 <tylergr...@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)
