[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-real eb796dd 149/160: Regression: primary boxes sho
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-real eb796dd 149/160: Regression: primary boxes should be highlighted |
Date: |
Wed, 6 Oct 2021 16:58:35 -0400 (EDT) |
branch: externals/org-real
commit eb796ddd5bc731b9e1abfd1ff269b29a4bca2e6f
Author: Tyler Grinn <tylergrinn@gmail.com>
Commit: Tyler Grinn <tylergrinn@gmail.com>
Regression: primary boxes should be highlighted
---
org-real.el | 21 ++++++++++++++-------
1 file changed, 14 insertions(+), 7 deletions(-)
diff --git a/org-real.el b/org-real.el
index 381daa3..7490908 100644
--- a/org-real.el
+++ b/org-real.el
@@ -406,7 +406,7 @@ diagram."
(org-real--parse-buffer)))
(context-boxes (mapcar
(lambda (containers)
- (org-real--make-instance 'boxy-box
containers))
+ (org-real--make-instance 'boxy-box containers
t))
container-matrix)))
(mapc
(lambda (context) (boxy-merge-into context box))
@@ -522,17 +522,23 @@ ORIG is `org-insert-link', ARGS are the arguments passed
to it."
;;;; Boxy box implementation
-(cl-defmethod org-real--make-instance ((_ (subclass boxy-box)) containers)
+(cl-defmethod org-real--make-instance ((_ (subclass boxy-box))
+ containers
+ &optional skip-primary)
"Create a `boxy-box' from CONTAINERS."
(let ((world (boxy-box
:margin-x org-real-margin-x
:margin-y org-real-margin-y
:padding-x org-real-padding-x
:padding-y org-real-padding-y)))
- (org-real--add-container containers world)
+ (org-real--add-container containers world skip-primary)
world))
-(cl-defmethod org-real--add-container (containers (prev boxy-box) &optional
force-visible)
+(cl-defmethod org-real--add-container (containers
+ (prev boxy-box)
+ &optional
+ skip-primary
+ force-visible)
"Add the first container from CONTAINERS to PREV.
If FORCE-VISIBLE, force the child to be visible regardless of its
@@ -547,17 +553,18 @@ level."
(tooltip (concat "The " name verb rel " the " rel-name ".")))
(oset box :tooltip (boxy-fill-tooltip tooltip))
(oset box :rel rel))
- (when containers
+ (if (not containers)
+ (unless skip-primary (oset box :primary t))
(let ((next-rel (plist-get (car containers) :rel)))
(cond
((member next-rel boxy-children-relationships)
(object-add-to-list box :expand-children
`(lambda (box)
- (org-real--add-container ',containers box))))
+ (org-real--add-container ',containers box
,skip-primary))))
((member next-rel boxy-sibling-relationships)
(object-add-to-list box :expand-siblings
`(lambda (box)
- (org-real--add-container ',containers box
t)))))))
+ (org-real--add-container ',containers box
,skip-primary t)))))))
(boxy-add-next box prev force-visible)))
(cl-defmethod org-real--add-headline (headline
- [elpa] externals/org-real 61eea2d 091/160: Auto-fill description when inserting link, (continued)
- [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
- [elpa] externals/org-real c5fc5a2 127/160: Merge branch 'next' into 'main', ELPA Syncer, 2021/10/06
- [elpa] externals/org-real 58989c3 121/160: Use cartesian distance for cycle up/down, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real e4abd0e 118/160: Reworked flexible layout, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real 93cb91e 133/160: Linting/elc, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real eb796dd 149/160: Regression: primary boxes should be highlighted,
ELPA Syncer <=
- [elpa] externals/org-real 9ab2ad0 158/160: Merge branch 'next' into 'main', ELPA Syncer, 2021/10/06
- [elpa] externals/org-real d5ca314 146/160: Merge branch 'next' into 'main', ELPA Syncer, 2021/10/06
- [elpa] externals/org-real dab4fc9 154/160: Updated readme, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real 497ea6c 152/160: Added license, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real 2ee4b19 006/160: More edge cases, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real 8b3b5c2 005/160: org-real--merge and org-real-world, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real 883497d 009/160: Use .el file instead of .tar in release job, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real e039322 012/160: Add new line after pp text, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real d557262 011/160: Switched to before and after advice for advising `org-insert-link', ELPA Syncer, 2021/10/06
- [elpa] externals/org-real 1fa4417 015/160: Updated README, ELPA Syncer, 2021/10/06