branch: master
commit fd0901b4d48e09fce45d8b3d4180ece1e498e9a9
Author: Eric Abrahamsen <e...@ericabrahamsen.net>
Commit: Eric Abrahamsen <e...@ericabrahamsen.net>
[org-translate] Improve segmentation of subtree headings, bump 0.1.2
* packages/org-translate/org-translate.el (ogt-segment-project): This
was incorrectly inserting segmentation characters before heading
stars.
---
packages/org-translate/org-translate.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/packages/org-translate/org-translate.el
b/packages/org-translate/org-translate.el
index 588ab77..465b93a 100644
--- a/packages/org-translate/org-translate.el
+++ b/packages/org-translate/org-translate.el
@@ -2,7 +2,7 @@
;; Copyright (C) 2020 Free Software Foundation, Inc.
-;; Version: 0.1.1
+;; Version: 0.1.2
;; Package-Requires: ((emacs "25.1") (org "9.1"))
;; Author: Eric Abrahamsen <e...@ericabrahamsen.net>
@@ -610,8 +610,9 @@ the beginning of each segment."
(end (make-marker))
current)
(while (< (point) (point-max))
- (insert ogt-segmentation-character)
(setq current (org-element-at-point))
+ (unless (eql (org-element-type current) 'headline)
+ (insert ogt-segmentation-character))
(move-marker end (org-element-property :contents-end current))
;; TODO: Do segmentation in plain lists and tables.
(while (and (< (point) end)
@@ -622,7 +623,8 @@ the beginning of each segment."
((eql (org-element-type current) 'headline)
(skip-chars-forward "[:blank:]\\*")
(insert ogt-segmentation-character)
- (org-end-of-meta-data t))
+ (org-end-of-meta-data t)
+ (move-marker end (point)))
((null (eql (org-element-type current)
'paragraph))
(goto-char end))
