[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/boxy 67c766d1d4 22/44: Removed boxy--boxes
From: |
ELPA Syncer |
Subject: |
[elpa] externals/boxy 67c766d1d4 22/44: Removed boxy--boxes |
Date: |
Sun, 5 May 2024 22:50:35 -0400 (EDT) |
branch: externals/boxy
commit 67c766d1d44d5f3ff0a499d1e798a16ec1759061
Author: Amy Grinn <grinn.amy@gmail.com>
Commit: Amy Grinn <grinn.amy@gmail.com>
Removed boxy--boxes
---
boxy.el | 35 +++++++++++++++--------------------
1 file changed, 15 insertions(+), 20 deletions(-)
diff --git a/boxy.el b/boxy.el
index b7a2e2de15..4b7d783f6b 100644
--- a/boxy.el
+++ b/boxy.el
@@ -219,9 +219,6 @@
(defvar-local boxy--world nil
"Current top-level box the buffer is displaying.")
-(defvar-local boxy--boxes '()
- "All boxes currently in a boxy diagram.")
-
(defvar-local boxy--header '()
"Current containers the buffer is displaying.")
@@ -362,12 +359,8 @@
(insert "\n")
(goto-char (point-min))))
-(defun boxy-mode-reset-boxes ()
- "Set `boxy--boxes' to be a list of all boxes in the current boxy diagram."
- (setq boxy--boxes (boxy--get-all boxy--world)))
-
(defun boxy-mode-recalculate-box-ring ()
- "Recalculate the position of all boxes in `boxy--boxes'."
+ "Recalculate the position of all boxes in `boxy--world'."
(setq boxy--box-ring
(seq-sort
#'<
@@ -377,23 +370,16 @@
#'boxy--get-position
(seq-filter
(lambda (box) (boxy-is-visible box t))
- boxy--boxes))))))
+ (boxy--get-all boxy--world)))))))
(defun boxy-mode-update-visibility ()
- "Update visibility of all boxes in `boxy--boxes'."
+ "Update visibility of all boxes in `boxy--world'."
(boxy--update-visibility boxy--world)
- (boxy-mode-reset-boxes)
(boxy--flex-adjust boxy--world boxy--world))
(defun boxy-mode-make-dirty ()
- "Clear all TOP LEFT WIDTH and HEIGHT coordinates from `boxy--boxes'."
- (mapc
- (lambda (box)
- (if (slot-boundp box :top) (slot-makeunbound box :top))
- (if (slot-boundp box :left) (slot-makeunbound box :left))
- (if (slot-boundp box :width) (slot-makeunbound box :width))
- (if (slot-boundp box :height) (slot-makeunbound box :height)))
- boxy--boxes))
+ "Clear all TOP LEFT WIDTH and HEIGHT coordinates from `boxy--world'."
+ (boxy--make-dirty boxy--world))
(defvar boxy-mode-map
(easy-mmode-define-keymap
@@ -1303,6 +1289,13 @@ BOX is the box the button is being made for."
;;;; Private class methods
+(defun boxy--make-dirty (box)
+ (if (slot-boundp box :top) (slot-makeunbound box :top))
+ (if (slot-boundp box :left) (slot-makeunbound box :left))
+ (if (slot-boundp box :width) (slot-makeunbound box :width))
+ (if (slot-boundp box :height) (slot-makeunbound box :height))
+ (mapc #'boxy--make-dirty (oref box children)))
+
(defun boxy--expand-box (box)
"Expand all siblings and children of BOX."
(with-slots (children hidden-children expand-children) box
@@ -1329,7 +1322,9 @@ BOX is the box the button is being made for."
(boxy--expand-box box))))
(defun boxy--update-visibility (box)
- "Update visibility of BOX based on `boxy--visibility'."
+ "Update visibility of BOX based on `boxy--visibility'.
+
+Also applies to children."
(with-slots (level children hidden-children expand-children) box
(if (not (boxy-is-visible box))
(if children (cl-rotatef children hidden-children))
- [elpa] externals/boxy 1b5ed6c758 17/44: Merge branch 'next' into 'main', (continued)
- [elpa] externals/boxy 1b5ed6c758 17/44: Merge branch 'next' into 'main', ELPA Syncer, 2024/05/05
- [elpa] externals/boxy 6f4b8bf597 20/44: Go to first marker first, then cycle, ELPA Syncer, 2024/05/05
- [elpa] externals/boxy 0509c51105 29/44: Collapse grandchildren when grandparent collapsed., ELPA Syncer, 2024/05/05
- [elpa] externals/boxy 10dfc2569d 31/44: Merge branch 'DamienCassou-main-patch-54220' into 'main', ELPA Syncer, 2024/05/05
- [elpa] externals/boxy a59a30e0ed 40/44: Update version, ELPA Syncer, 2024/05/05
- [elpa] externals/boxy 064d4c506c 43/44: Updated documentation, ELPA Syncer, 2024/05/05
- [elpa] externals/boxy e615bd21df 11/44: Reimplement (toggle-truncate-lines) to avoid message, ELPA Syncer, 2024/05/05
- [elpa] externals/boxy 65c66f9a73 24/44: Added more tooltip test cases, ELPA Syncer, 2024/05/05
- [elpa] externals/boxy c00c3ff64f 39/44: Fixes 'Warning: Unknown type: boxy-relationship', ELPA Syncer, 2024/05/05
- [elpa] externals/boxy e5c930dfd2 34/44: Added post-jump-hook slot, ELPA Syncer, 2024/05/05
- [elpa] externals/boxy 67c766d1d4 22/44: Removed boxy--boxes,
ELPA Syncer <=
- [elpa] externals/boxy b11a4e0146 23/44: Refactoring, ELPA Syncer, 2024/05/05
- [elpa] externals/boxy 3208a71661 25/44: Make world dirty after showing tooltip, ELPA Syncer, 2024/05/05
- [elpa] externals/boxy f69d74cf21 30/44: Updated eldev location, ELPA Syncer, 2024/05/05
- [elpa] externals/boxy 3661612a8f 32/44: Using org reveal after navigating to a box, ELPA Syncer, 2024/05/05
- [elpa] externals/boxy ef765dd8ea 35/44: Typo, ELPA Syncer, 2024/05/05
- [elpa] externals/boxy 49dcf6029f 37/44: Updated contact details, ELPA Syncer, 2024/05/05
- [elpa] externals/boxy ca3c2addc4 41/44: Updated contact details, ELPA Syncer, 2024/05/05
- [elpa] externals/boxy 24095a3501 44/44: Updated copyright, ELPA Syncer, 2024/05/05