branch: externals/taxy
commit 95898bce4bb5d255d997d28a7ade989222ef689d
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Fix: (taxy-magit-section) insert-object
---
README.org | 4 +++-
taxy-magit-section.el | 8 ++++----
taxy.info | 55 +++++++++++++++++++++++++++++++--------------------
3 files changed, 41 insertions(+), 26 deletions(-)
diff --git a/README.org b/README.org
index db55acd..1537329 100644
--- a/README.org
+++ b/README.org
@@ -717,7 +717,9 @@ Note that =taxy-magit-section.el= is not installed with the
=taxy= package by de
** 0.2-pre
-Nothing new yet.
+*** Fixes
+
++ ~taxy-magit-section~'s ~insert-object~ function.
** 0.1
diff --git a/taxy-magit-section.el b/taxy-magit-section.el
index d7c51b4..1bbf81f 100644
--- a/taxy-magit-section.el
+++ b/taxy-magit-section.el
@@ -59,7 +59,7 @@ descendant taxys; if `last', insert them after descendants."
(let* ((depth 0)
(magit-section-set-visibility-hook (cons
#'taxy-magit-section-visibility magit-section-set-visibility-hook)))
(cl-labels ((insert-object
- (object &optional (format-fn (lambda (o) (format "%s" o))))
+ (object format-fn)
(magit-insert-section (magit-section object)
(magit-insert-section-body
(insert (make-string (+ 2 (* depth
taxy-magit-section-indent)) ? )
@@ -69,7 +69,8 @@ descendant taxys; if `last', insert them after descendants."
(taxy) (let ((magit-section-set-visibility-hook
magit-section-set-visibility-hook)
(format-fn (cl-typecase taxy
(taxy-magit-section
- (taxy-magit-section-format-fn
taxy)))))
+ (taxy-magit-section-format-fn
taxy))
+ (t (lambda (o) (format "%s" o))))))
(cl-typecase taxy
(taxy-magit-section
(when (taxy-magit-section-visibility-fn taxy)
@@ -86,8 +87,7 @@ descendant taxys; if `last', insert them after descendants."
(magit-insert-section-body
(when (eq 'first objects)
(dolist (object (taxy-objects taxy))
- (insert-object object format-fn))
- (mapc #'insert-object (taxy-objects taxy)))
+ (insert-object object format-fn)))
(cl-incf depth)
(mapc #'insert-taxy (taxy-taxys taxy))
(cl-decf depth)
diff --git a/taxy.info b/taxy.info
index 5ee9a5c..a21f37e 100644
--- a/taxy.info
+++ b/taxy.info
@@ -50,7 +50,9 @@ Changelog
* 0.2-pre: 02-pre.
* 0.1: 01.
+0.2-pre
+* Fixes::
Development
@@ -810,7 +812,17 @@ File: README.info, Node: 02-pre, Next: 01, Up: Changelog
4.1 0.2-pre
===========
-Nothing new yet.
+* Menu:
+
+* Fixes::
+
+
+File: README.info, Node: Fixes, Up: 02-pre
+
+4.1.1 Fixes
+-----------
+
+ • ‘taxy-magit-section’’s ‘insert-object’ function.
File: README.info, Node: 01, Prev: 02-pre, Up: Changelog
@@ -867,26 +879,27 @@ GPLv3
Tag Table:
Node: Top218
-Node: Examples1347
-Node: Numbery (starting basically)1666
-Node: Lettery (filling incrementally)7425
-Node: Sporty (understanding completely)9874
-Node: Applications16353
-Node: Installation16753
-Node: Usage17054
-Node: Dynamic taxys19175
-Node: Multi-level dynamic taxys21593
-Node: Reusable taxys23756
-Node: Threading macros27925
-Node: Modifying filled taxys28464
-Node: Magit section29557
-Node: Changelog30158
-Node: 02-pre30308
-Node: 0130414
-Node: Development30517
-Node: Copyright assignment30723
-Node: Credits31322
-Node: License31512
+Node: Examples1365
+Node: Numbery (starting basically)1684
+Node: Lettery (filling incrementally)7443
+Node: Sporty (understanding completely)9892
+Node: Applications16371
+Node: Installation16771
+Node: Usage17072
+Node: Dynamic taxys19193
+Node: Multi-level dynamic taxys21611
+Node: Reusable taxys23774
+Node: Threading macros27943
+Node: Modifying filled taxys28482
+Node: Magit section29575
+Node: Changelog30176
+Node: 02-pre30326
+Node: Fixes30434
+Node: 0130574
+Node: Development30677
+Node: Copyright assignment30883
+Node: Credits31482
+Node: License31672
End Tag Table
