[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-transclusion 980a0fc9b4 1/9: Allow live sync on org
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-transclusion 980a0fc9b4 1/9: Allow live sync on org-blocks -- experimental |
Date: |
Wed, 29 Mar 2023 16:59:08 -0400 (EDT) |
branch: externals/org-transclusion
commit 980a0fc9b47147fc2e3a5a0e371e97f7206574be
Author: Benjamin Cherry <ben@devcarbon.com>
Commit: Benjamin Cherry <ben@devcarbon.com>
Allow live sync on org-blocks -- experimental
---
org-transclusion-src-lines.el | 4 ++--
org-transclusion.el | 38 ++++++++++++++++++++++++--------------
2 files changed, 26 insertions(+), 16 deletions(-)
diff --git a/org-transclusion-src-lines.el b/org-transclusion-src-lines.el
index 71938cda82..a3def5e16b 100644
--- a/org-transclusion-src-lines.el
+++ b/org-transclusion-src-lines.el
@@ -259,8 +259,8 @@ This function uses TYPE to identify relevant files; it's
meant
for non-Org text files including program source files."
(when (org-transclusion-src-lines-p type)
;; Let's not allow live-sync when source is transcluded into a source
block.
- (when (string= "src" type)
- (user-error "No live sync for src-code block"))
+ ;; (when (string= "src" type)
+ ;; (user-error "No live sync for src-code block"))
(org-transclusion-live-sync-buffers-others-default nil)))
(provide 'org-transclusion-src-lines)
diff --git a/org-transclusion.el b/org-transclusion.el
index 2678bdbde3..9e56714a8b 100644
--- a/org-transclusion.el
+++ b/org-transclusion.el
@@ -680,7 +680,10 @@ a couple of org-transclusion specific keybindings; namely:
(user-error
(concat
"No live-sync can be started. "
- "Lengths of transclusion and source are not identical"))
+ "Lengths of transclusion and source are not identical"
+ (format " - tc: [%s] src: [%s]"
+ (- (overlay-end tc-ov) (overlay-start tc-ov))
+ (- (overlay-end src-ov) (overlay-start src-ov)))))
nil) ; return nil
(org-transclusion-live-sync-modify-overlays
(text-clone-set-overlays src-ov tc-ov))
@@ -1637,9 +1640,16 @@ This function is for non-Org text files."
(overlay-start tc-pair)
(overlay-end tc-pair)
(overlay-buffer tc-pair)))
- (tc-ov (text-clone-make-overlay
- (get-text-property (point) 'org-transclusion-beg-mkr)
- (get-text-property (point) 'org-transclusion-end-mkr))))
+ (tc-ov-beg-mkr (get-text-property (point)
'org-transclusion-beg-mkr))
+ (tc-ov-end-mkr (get-text-property (point)
'org-transclusion-end-mkr))
+ (tc-ov (if (org-in-src-block-p)
+ (with-current-buffer (marker-buffer tc-ov-beg-mkr)
+ (save-mark-and-excursion
+ (org-babel-mark-block)
+ (text-clone-make-overlay (region-beginning)
+ (1- (region-end)))))
+ (text-clone-make-overlay tc-ov-end-mkr
+ tc-ov-end-mkr))))
(cons src-ov tc-ov)))
;;-----------------------------------------------------------------------------
@@ -1658,16 +1668,16 @@ ensure the settings revert to the user's setting prior
to
;; Ensure this happens only once until deactivation
(unless (memq 'org-transclusion-type yank-excluded-properties)
(let ((excluded-props))
- ;; Return t if 'wrap-prefix is already in `yank-excluded-properties'
- ;; if not push to elm the list
- ;; wrap-prefix, etc.
- (dolist (sym org-transclusion-yank-excluded-properties)
- (if (memq sym yank-excluded-properties)
- (push sym org-transclusion-yank-remember-user-excluded-props)
- ;; Avoid duplicate
- (push sym excluded-props)))
- (setq yank-excluded-properties
- (append yank-excluded-properties excluded-props)))))
+ ;; Return t if 'wrap-prefix is already in `yank-excluded-properties'
+ ;; if not push to elm the list
+ ;; wrap-prefix, etc.
+ (dolist (sym org-transclusion-yank-excluded-properties)
+ (if (memq sym yank-excluded-properties)
+ (push sym org-transclusion-yank-remember-user-excluded-props)
+ ;; Avoid duplicate
+ (push sym excluded-props)))
+ (setq yank-excluded-properties
+ (append yank-excluded-properties excluded-props)))))
(defun org-transclusion-yank-excluded-properties-remove ()
"Remove transclusion-specific text props from `yank-excluded-properties'.
- [elpa] externals/org-transclusion updated (ff722826ce -> 2e77e341c6), ELPA Syncer, 2023/03/29
- [elpa] externals/org-transclusion 9060dcf712 3/9: Adapt to magic enter., ELPA Syncer, 2023/03/29
- [elpa] externals/org-transclusion 980a0fc9b4 1/9: Allow live sync on org-blocks -- experimental,
ELPA Syncer <=
- [elpa] externals/org-transclusion 076b2a4597 7/9: doc: update manual for the new feature for live-sync org src block, ELPA Syncer, 2023/03/29
- [elpa] externals/org-transclusion 67c9bfbeeb 2/9: Augment only needed for magical enter in thing-at-point branch., ELPA Syncer, 2023/03/29
- [elpa] externals/org-transclusion 2d0502f6bd 4/9: Typo., ELPA Syncer, 2023/03/29
- [elpa] externals/org-transclusion 4fb11ac23b 5/9: feat: suggestion for live-sync-buffers-src-lines, ELPA Syncer, 2023/03/29
- [elpa] externals/org-transclusion 2e77e341c6 9/9: doc: mention the live-sync to be in the next stable rel for ELPA, ELPA Syncer, 2023/03/29
- [elpa] externals/org-transclusion ee816482df 8/9: Merge pull request #178 and #176 for feature--org-block-live-sync, ELPA Syncer, 2023/03/29
- [elpa] externals/org-transclusion 2751fbc7d0 6/9: refactor: remove unused let variable, ELPA Syncer, 2023/03/29