branch: externals/org-transclusion
commit e508ea44188a76f5380f9e2f54eb74f2da33bbfd
Author: Noboru Ota <[email protected]>
Commit: Noboru Ota <[email protected]>
refactor: Remove old functions that were commented out
---
org-transclusion.el | 112 ----------------------------------------------------
1 file changed, 112 deletions(-)
diff --git a/org-transclusion.el b/org-transclusion.el
index 8745cb8f03..e7a14b4ef3 100644
--- a/org-transclusion.el
+++ b/org-transclusion.el
@@ -946,48 +946,6 @@ inserted when more than one space is inserted between
symbols."
;;-----------------------------------------------------------------------------
;;;; Add-at-point functions
-(defun org-transclusion-add-payload (payload link keyword-plist copy)
- "Insert transcluded content with error handling.
-
-PAYLOAD should be a plist according to the description in
-`org-transclusion-add-functions'. LINK should be an org-element
-context object for the link. KEYWORD-PLIST should contain the
-\"#+transclude:\" keywords for the transclusion at point. With
-non-nil COPY, copy the transcluded content into the buffer.
-
-This function is intended to be called from within
-`org-transclusion-add' as well as payload functions returned by
-hooks in `org-transclusion-add-functions'."
- (let ((tc-type (plist-get payload :tc-type))
- (src-buf (plist-get payload :src-buf))
- (src-beg (plist-get payload :src-beg))
- (src-end (plist-get payload :src-end))
- (src-content (plist-get payload :src-content)))
- (if (or (string= src-content "")
- (eq src-content nil))
- ;; Keep going with program when no content `org-transclusion-add-all'
- ;; should move to the next transclusion
- (prog1 nil
- (message
- "No content found with \"%s\". Check the link at point %d, line %d"
- (org-element-property :raw-link link) (point) (org-current-line)))
- (let ((beg (line-beginning-position))
- (end))
- (org-transclusion-with-inhibit-read-only
- (when (save-excursion
- (end-of-line) (insert-char ?\n)
- (org-transclusion-content-insert
- keyword-plist tc-type src-content
- src-buf src-beg src-end copy)
- (unless (eobp) (delete-char 1))
- (setq end (point))
- t)
- ;; `org-transclusion-keyword-remove' checks element at point is a
- ;; keyword or not
- (org-transclusion-keyword-remove)))
- (run-hook-with-args 'org-transclusion-after-add-functions beg end))
- t)))
-
(defun org-transclusion-add-target-marker (link)
(save-selected-window
;; Don't ever prompt to create a headline when transcluding.
@@ -1149,76 +1107,6 @@ current buffer."
;; Return t
t))
-;; (defun org-transclusion-content-insert (keyword-values type content sbuf
sbeg send copy)
-;; "Insert CONTENT at point and put source overlay in SBUF.
-;; Return t when successful.
-
-;; This function formats CONTENT with using one of the
-;; `org-transclusion-content-format-functions'; e.g. align a table
-;; for Org.
-
-;; This function is intended to be used within;; `org-transclusion-add'. All
the arguments should be
-;; obtained by one of the `org-transclusion-add-functions'.
-
-;; This function adds text properties required for Org-transclusion
-;; to the inserted content. It also puts an overlay to an
-;; appropriate region of the source buffer. They are constructed
-;; based on the following arguments:
-
-;; - KEYWORD-VALUES :: Property list of the value of transclusion keyword
-;; - TYPE :: Transclusion type; e.g. \"org-link\"
-;; - CONTENT :: Text content of the transclusion source to be inserted
-;; - SBUF :: Buffer of the transclusion source where CONTENT comes from
-;; - SBEG :: Begin point of CONTENT in SBUF
-;; - SEND :: End point of CONTENT in SBUF"
-;; (let* ((beg (point)) ;; before the text is inserted
-;; (end) ;; at the end of text content after inserting it
-;; (id (org-id-uuid))
-;; (tc-buffer (current-buffer))
-;; (ov-src (text-clone-make-overlay sbeg send sbuf)) ;; source-buffer
overlay
-;; (tc-pair ov-src)
-;; (content content)
-;; (current-level (or (org-current-level) 0)))
-;; (insert
-;; (run-hook-with-args-until-success
-;; 'org-transclusion-content-format-functions
-;; type content (plist-get keyword-values :current-indentation)))
-;; (setq end (point))
-;; (unless copy
-;; (add-text-properties
-;; beg end
-;; `( local-map ,org-transclusion-map
-;; read-only t
-;; front-sticky t
-;; ;; rear-nonticky seems better for
-;; ;; src-lines to add "#+result" after C-c
-;; ;; C-c
-;; rear-nonsticky t
-;; org-transclusion-id ,id
-;; org-transclusion-type ,type
-;; org-transclusion-pair ,tc-pair
-;; org-transclusion-orig-keyword ,keyword-values
-;; ;; TODO Fringe is not supported for terminal
-;; line-prefix ,(org-transclusion-propertize-transclusion)
-;; wrap-prefix ,(org-transclusion-propertize-transclusion)))
-;; ;; Put the transclusion overlay
-;; (let ((ov-tc (text-clone-make-overlay beg end)))
-;; (overlay-put ov-tc 'evaporate t)
-;; (overlay-put ov-tc 'face 'org-transclusion)
-;; (overlay-put ov-tc 'priority -60))
-;; ;; Put to the source overlay
-;; (overlay-put ov-src 'org-transclusion-by id)
-;; (overlay-put ov-src 'org-transclusion-buffer tc-buffer)
-;; (overlay-put ov-src 'evaporate t)
-;; (overlay-put ov-src 'face 'org-transclusion-source)
-;; (overlay-put ov-src 'line-prefix (org-transclusion-propertize-source))
-;; (overlay-put ov-src 'wrap-prefix (org-transclusion-propertize-source))
-;; (overlay-put ov-src 'priority -60)
-;; ;; TODO this should not be necessary, but it is at the moment
-;; ;; live-sync-enclosing-element fails without tc-pair on source overlay
-;; (overlay-put ov-src 'org-transclusion-pair tc-pair))
-;; t))
-
(defun org-transclusion-content-highest-org-headline ()
"Return the highest level as an integer of all the headlines in buffer.
Returns nil if there is no headline. Note that level 1 is the
