[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-real bcd3cb2c14 045/188: Refactoring
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-real bcd3cb2c14 045/188: Refactoring |
Date: |
Sun, 5 May 2024 22:55:51 -0400 (EDT) |
branch: externals/org-real
commit bcd3cb2c14c5d10f070469869bbf09936b57444d
Author: Amy Grinn <grinn.amy@gmail.com>
Commit: Amy Grinn <grinn.amy@gmail.com>
Refactoring
---
org-real.el | 18 ++++++++++--------
1 file changed, 10 insertions(+), 8 deletions(-)
diff --git a/org-real.el b/org-real.el
index 28df092331..f5d54176e9 100644
--- a/org-real.el
+++ b/org-real.el
@@ -345,7 +345,7 @@ ORIG is `org-insert-link', ARGS are the arguments passed to
it."
(append (if (slot-boundp collection :box) (list box))
(if (slot-boundp collection :next) (org-real--get-all next)))))
-(cl-defmethod org-real--add-to-list ((collection org-real-box-collection)
+(cl-defmethod org-real--push ((collection org-real-box-collection)
(box org-real-box))
"Add BOX to COLLECTION and return new COLLECTION."
(if (slot-boundp collection :box)
@@ -365,7 +365,7 @@ property and optionally a :rel property."
(base (org-real-box :name (plist-get base-container :name))))
(oset base :parent world)
(with-slots (children) world
- (setq children (org-real--add-to-list children base)))
+ (setq children (org-real--push children base)))
(if containers
(org-real--make-instance-helper containers world base))
world))
@@ -619,12 +619,14 @@ PREV must already existing in PARENT."
(if (and prev (member rel '("in" "on" "behind" "in front of")))
(progn
(oset box :parent prev)
- (oset prev :children (org-real--add-to-list (with-slots (children)
prev children) box))
+ (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)))
(oset box :parent parent)
- (oset parent :children (org-real--add-to-list (with-slots (children)
parent children) box))
+ (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)))))
@@ -758,9 +760,8 @@ of BOX."
(if (member rel '("in" "on" "behind" "in front of"))
(org-real--flex-add next match world)
(oset next :parent parent)
- (oset parent :children (org-real--add-to-list
- (with-slots (children) parent children)
- next)))
+ (with-slots (children) parent
+ (setq children (org-real--push children next))))
(org-real--add-matching next next world)))
next-boxes))))
@@ -795,7 +796,8 @@ that the width of WORLD is kept below 80 characters if
possible."
siblings)
(org-real-box :y-order -9999)))))
(oset box :parent parent)
- (oset parent :children (org-real--add-to-list (with-slots (children)
parent children) box))
+ (with-slots (children) parent
+ (setq children (org-real--push children box)))
(when (and last-sibling (not (with-slots (in-front) box in-front)))
(with-slots
((last-sibling-y y-order)
- [elpa] externals/org-real 02a0278e4e 177/188: Updated dependencies, (continued)
- [elpa] externals/org-real 02a0278e4e 177/188: Updated dependencies, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 6fa9bc2292 176/188: Updated contact details, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 4bfc97cc22 178/188: Remove org autoload, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 361728f6e7 179/188: Updated contact details, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 7f689a429d 180/188: Updated dependencies, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 0cb14b4619 181/188: Remove package linter, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 0aa3926d29 183/188: Updated url, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real b3d55b3a8f 186/188: Removed md5 target, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 50bae7669a 188/188: Updated copyright, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 5d384d04e4 010/188: Typo, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real bcd3cb2c14 045/188: Refactoring,
ELPA Syncer <=
- [elpa] externals/org-real b6df63b9c8 187/188: Updated version, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 6e70f678b7 056/188: Don't highlight children when following link, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 1d6e6054db 032/188: Linting, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 3a43ff3d2f 063/188: Satisfy elc compiler, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real b776aa7f67 064/188: Updated readme, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 902b7a6c08 068/188: Using infinity, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 36cdd58d63 070/188: Created buttons that link back to the location of the link, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real dbecf17555 075/188: Added ability to cycle children of a box, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 930333911f 080/188: Updated readme, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 00e4a4c595 096/188: Rotate locations of box when cycling, ELPA Syncer, 2024/05/05