[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-real 1bf5d4b789 014/188: Standardized pretty printi
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-real 1bf5d4b789 014/188: Standardized pretty printing for org-real-world and opening a link |
Date: |
Sun, 5 May 2024 22:55:49 -0400 (EDT) |
branch: externals/org-real
commit 1bf5d4b78902d6a17b71cce6057956e8b46796e6
Author: Amy Grinn <grinn.amy@gmail.com>
Commit: Amy Grinn <grinn.amy@gmail.com>
Standardized pretty printing for org-real-world and opening a link
---
org-real.el | 22 +++++++++++-----------
1 file changed, 11 insertions(+), 11 deletions(-)
diff --git a/org-real.el b/org-real.el
index d08e9cc6e1..ff858f1c68 100644
--- a/org-real.el
+++ b/org-real.el
@@ -339,14 +339,10 @@ that the width of WORLD is kept below 80 characters if
possible."
(defun org-real-world ()
"View all real links in the current buffer."
(interactive)
- (let* ((box (org-real--merge (mapcar 'org-real--create-box
(org-real--parse-buffer))))
- (width (org-real--get-width box))
- (height (org-real--get-height box)))
- (with-current-buffer-window "Org Real" nil nil
- (dotimes (_ height) (insert (concat (make-string width ?\s) "\n")))
- (org-real--draw box 0)
- (toggle-truncate-lines t)
- (special-mode))))
+ (org-real--pp
+ (org-real--merge
+ (mapcar 'org-real--create-box
+ (org-real--parse-buffer)))))
;;;; `org-insert-link' configuration
@@ -457,16 +453,20 @@ describing where BOX is."
(height (org-real--get-height box))
(inhibit-read-only t)
(buffer (get-buffer-create "Org Real")))
- (display-buffer buffer 'display-buffer-pop-up-window)
(with-current-buffer buffer
(erase-buffer)
(goto-line 0)
(toggle-truncate-lines t)
(if containers (org-real--pp-text containers))
- (let ((offset (line-number-at-pos)))
+ (let ((offset (- (line-number-at-pos)
+ (cdr org-real--margin)
+ (* 2 (cdr org-real--padding)))))
(dotimes (_ (+ top height)) (insert (concat (make-string width ?\s)
"\n")))
(org-real--draw box offset)
- (special-mode)))))
+ (special-mode)))
+ (display-buffer buffer `(display-buffer-pop-up-window
+ (window-width . 80)
+ (window-height . ,height)))))
(defun org-real--pp-text (containers)
- [elpa] externals/org-real 326502dcb6 057/188: Renamed org-real-include-children to org-real-include-context, (continued)
- [elpa] externals/org-real 326502dcb6 057/188: Renamed org-real-include-children to org-real-include-context, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real ecb6ab83f8 065/188: Merge branch 'next' into 'main', ELPA Syncer, 2024/05/05
- [elpa] externals/org-real bf5bb1b5a3 076/188: Added ability to collapse and expand boxes, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 31ad92ec6f 073/188: Bump version, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real cf813c2309 086/188: Added document container to org-real-headlines, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 65d594f81a 083/188: Added test framework, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 3234a332f8 089/188: Show diffs if test failed, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real c4213cffec 093/188: Merge branch 'next' into 'main', ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 30658462e8 005/188: org-real--merge and org-real-world, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 163b943bdb 022/188: get-width compares children with margins included, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 1bf5d4b789 014/188: Standardized pretty printing for org-real-world and opening a link,
ELPA Syncer <=
- [elpa] externals/org-real f07defce45 027/188: Added apply function for rearranging other links, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 35bd2ffb8b 040/188: Merge into single file, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 7aa02cbfc5 042/188: v0.1.0, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 92759a5a63 035/188: Satisfying ELC compiler, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 5b072b22fc 059/188: Requirements before patches, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 1cdf75a535 061/188: More edge cases, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 5aa1d48508 072/188: Updated documentation, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 498121ff24 082/188: Satisfying elc compiler, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real dde9cd1475 085/188: Updated readme, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real f4f131351a 094/188: Added expansion slots to speed up initial rendering, ELPA Syncer, 2024/05/05