branch: elpa/hyperdrive-org-transclusion
commit 2d51574daff9dc2403e78d444c98109a06da98fe
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Fix: (hyperdrive-org-transclusion-add-file) Handle non-Org, non-HTML
---
hyperdrive-org-transclusion.el | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/hyperdrive-org-transclusion.el b/hyperdrive-org-transclusion.el
index 6c669862c5..d312ae274c 100644
--- a/hyperdrive-org-transclusion.el
+++ b/hyperdrive-org-transclusion.el
@@ -123,8 +123,14 @@ PLIST, COPY."
(t ; All other file types
(setf tc-type "others-hyper")))
(let* ((payload-without-type
- (org-transclusion-content-org-buffer-or-element
- nil plist))
+ (if (org-transclusion-type-is-org tc-type)
+ (org-transclusion-content-org-buffer-or-element
+ nil plist)
+ ;; NOTE: Leave payload buffer narrowed to response body.
+ (list :src-content (buffer-string)
+ :src-buf (current-buffer)
+ :src-beg (point-min)
+ :src-end (point-max))))
(payload
(append `(:tc-type ,tc-type) payload-without-type)))
(with-current-buffer target-buf
