[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-real b32309c 056/160: Don't highlight children when
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-real b32309c 056/160: Don't highlight children when following link |
Date: |
Wed, 6 Oct 2021 16:58:14 -0400 (EDT) |
branch: externals/org-real
commit b32309c27f240b7828698c6035c6ccfe1ae3ddab
Author: Tyler Grinn <tylergrinn@gmail.com>
Commit: Tyler Grinn <tylergrinn@gmail.com>
Don't highlight children when following link
---
org-real.el | 23 +++++++++++++++--------
1 file changed, 15 insertions(+), 8 deletions(-)
diff --git a/org-real.el b/org-real.el
index 51df8b2..52f335b 100644
--- a/org-real.el
+++ b/org-real.el
@@ -171,7 +171,7 @@ describing where BOX is."
(let* ((primary-name (plist-get (car (reverse containers)) :name))
(children (mapcar
(lambda (containers)
- (org-real--make-instance 'org-real-box containers))
+ (org-real--make-instance 'org-real-box containers
t))
(seq-filter
(lambda (containers)
(setq containers (reverse containers))
@@ -413,7 +413,9 @@ ORIG is `org-insert-link', ARGS are the arguments passed to
it."
(oset collection :box box)
collection))
-(cl-defmethod org-real--make-instance ((_ (subclass org-real-box)) containers)
+(cl-defmethod org-real--make-instance ((_ (subclass org-real-box))
+ containers
+ &optional skip-primary)
"Create an instance of `org-real-box' from CONTAINERS.
CONTAINERS is a list of plists containing at least a :name
@@ -425,7 +427,8 @@ property and optionally a :rel property."
(with-slots (children) world
(setq children (org-real--push children base)))
(if containers
- (org-real--make-instance-helper containers world base))
+ (org-real--make-instance-helper containers world base skip-primary)
+ (unless skip-primary (oset box :primary t)))
world))
(cl-defmethod org-real--merge (boxes)
@@ -667,10 +670,14 @@ If INCLUDE-ON-TOP is non-nil, also include height on top
of box."
;;;; Private class methods
-(cl-defmethod org-real--make-instance-helper (containers parent (prev
org-real-box))
+(cl-defmethod org-real--make-instance-helper (containers
+ parent
+ (prev org-real-box)
+ &optional skip-primary)
"Help create a 3D representation of CONTAINERS.
PREV must already existing in PARENT."
+ (message "Skip primary? %s" skip-primary)
(let* ((container (pop containers))
(rel (plist-get container :rel))
(box (org-real-box :name (plist-get container :name))))
@@ -737,14 +744,14 @@ PREV must already existing in PARENT."
(with-slots (children) prev
(setq children (org-real--push children box)))
(if containers
- (org-real--make-instance-helper containers prev box)
- (oset box :primary t)))
+ (org-real--make-instance-helper containers prev box skip-primary)
+ (unless skip-primary (oset box :primary t))))
(oset box :parent parent)
(with-slots (children) parent
(setq children (org-real--push children box)))
(if containers
- (org-real--make-instance-helper containers parent box)
- (oset box :primary t)))))
+ (org-real--make-instance-helper containers parent box skip-primary)
+ (unless skip-primary (oset box :primary t))))))
(cl-defmethod org-real--make-dirty (box)
"Clear all TOP LEFT WIDTH and HEIGHT coordinates from BOX and its children."
- [elpa] externals/org-real 7f89820 094/160: Added expansion slots to speed up initial rendering, (continued)
- [elpa] externals/org-real 7f89820 094/160: Added expansion slots to speed up initial rendering, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real f3b5fc7 099/160: More edge cases, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real 009dd3e 107/160: Added popup library, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real 9554940 135/160: Typo in jumping to rel box, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real 878480b 134/160: Merge branch 'main' into next, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real 26ade6a 136/160: Bump version, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real 44e82f9 120/160: Added calculate functionality to is-visible, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real c916d88 142/160: Draw selected box last, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real 3618967 137/160: Merge branch 'next' into 'main', ELPA Syncer, 2021/10/06
- [elpa] externals/org-real f933ebc 055/160: More edge cases, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real b32309c 056/160: Don't highlight children when following link,
ELPA Syncer <=
- [elpa] externals/org-real 52f3d15 063/160: Satisfy elc compiler, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real cbadc3a 065/160: Merge branch 'next' into 'main', ELPA Syncer, 2021/10/06
- [elpa] externals/org-real c32c714 074/160: Org real headlines takes over current window, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real 4e903f9 090/160: Draw without canvas: no more whitespace around box diagram, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real 61eea2d 091/160: Auto-fill description when inserting link, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real 35c3857 106/160: Added metadata slot, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real e9f758a 102/160: Fully expand siblings when toggling global visibility, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real 7d5574d 126/160: Adding margin and padding tests, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real da816c2 122/160: Merge branch 'next' into 'main', ELPA Syncer, 2021/10/06
- [elpa] externals/org-real b4373e7 123/160: Only flex adjusting necessary boxes, ELPA Syncer, 2021/10/06