[elpa] externals/taxy 95898bc 3/3: Fix: (taxy-magit-section) insert-object

[ELPA Syncer]

branch: externals/taxy
commit 95898bce4bb5d255d997d28a7ade989222ef689d
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@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