From 6a052144968df9b441df53f6aa08cbb515ff2654 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 8 Jul 2022 18:42:43 -0400
Subject: Folded "default" documentation into regular definition documentation.

---
 stdlib/source/test/lux/documentation.lux | 57 +++++++++++++++-----------------
 1 file changed, 26 insertions(+), 31 deletions(-)

(limited to 'stdlib/source/test')

diff --git a/stdlib/source/test/lux/documentation.lux b/stdlib/source/test/lux/documentation.lux
index 0a306c771..4196ab09d 100644
--- a/stdlib/source/test/lux/documentation.lux
+++ b/stdlib/source/test/lux/documentation.lux
@@ -52,9 +52,8 @@
              (<| (_.covering /._)
                  (all _.and
                       (_.for [/.Definition]
-                             (all _.and
-                                  (_.coverage [/.default]
-                                    (case (`` (/.default (,, (template.symbol [.._] [g!default]))))
+                             (_.coverage [/.definition]
+                               (and (case (`` (/.definition (,, (template.symbol [.._] [g!default]))))
                                       (list definition)
                                       (and (|> definition
                                                (the /.#definition)
@@ -66,8 +65,7 @@
                                                not))
 
                                       _
-                                      false))
-                                  (_.coverage [/.definition]
+                                      false)
                                     (case ..definition
                                       (list documentation)
                                       (and (|> documentation
@@ -79,38 +77,35 @@
                                                (text.contains? 'definition_description')))
 
                                       _
-                                      false))
-                                  ))
+                                      false))))
                       (_.for [/.Module]
-                             (all _.and
-                                  (_.coverage [/.module /.markdown]
-                                    (let [sub (`` (/.module /._
-                                                            (,, (template.text ['sub_description']))
-                                                            []
-                                                            []))
-                                          super (`` (/.module .._
-                                                              (,, (template.text ['super_description']))
-                                                              [..definition]
-                                                              [sub]))]
-                                      (and (text.contains? (template.text ['sub_description'])
-                                                           (/.markdown sub))
-                                           (text.contains? (/.markdown sub)
-                                                           (/.markdown super))
-                                           (text.contains? (template.text ['super_description'])
-                                                           (/.markdown super))
-                                           (case ..definition
-                                             (list documentation)
-                                             (text.contains? (md.markdown (the /.#documentation documentation))
-                                                             (/.markdown super))
+                             (_.coverage [/.module /.markdown]
+                               (let [sub (`` (/.module /._
+                                                       (,, (template.text ['sub_description']))
+                                                       []
+                                                       []))
+                                     super (`` (/.module .._
+                                                         (,, (template.text ['super_description']))
+                                                         [..definition]
+                                                         [sub]))]
+                                 (and (text.contains? (template.text ['sub_description'])
+                                                      (/.markdown sub))
+                                      (text.contains? (/.markdown sub)
+                                                      (/.markdown super))
+                                      (text.contains? (template.text ['super_description'])
+                                                      (/.markdown super))
+                                      (case ..definition
+                                        (list documentation)
+                                        (text.contains? (md.markdown (the /.#documentation documentation))
+                                                        (/.markdown super))
 
-                                             _
-                                             false))))
-                                  ))
+                                        _
+                                        false)))))
                       (_.coverage [/.unqualified_symbol]
                         (`` (and (,, (with_template [<example>]
                                        [(macro_error <example>)]
                                        
-                                       [(/.default g!default)]
+                                       [(/.definition g!default)]
                                        [(/.definition g!default
                                           (,, (template.text ['definition_description'])))]
                                        [(/.module g!default
-- 
cgit v1.2.3