From dda05bca0956af5e5b3875c4cc36e61aa04772e4 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 12 Sep 2021 00:07:08 -0400
Subject: Made the "#" character great again!

---
 stdlib/source/program/aedifex/format.lux | 60 ++++++++++++++++----------------
 1 file changed, 30 insertions(+), 30 deletions(-)

(limited to 'stdlib/source/program/aedifex/format.lux')

diff --git a/stdlib/source/program/aedifex/format.lux b/stdlib/source/program/aedifex/format.lux
index 5f7669366..95b4bf30a 100644
--- a/stdlib/source/program/aedifex/format.lux
+++ b/stdlib/source/program/aedifex/format.lux
@@ -26,10 +26,10 @@
   (`' [#name (~ (code.text name))
        #url (~ (code.text url))
        #type (~ (case type
-                  #/.Repo
+                  {/.#Repo}
                   (' "repo")
 
-                  #/.Manual
+                  {/.#Manual}
                   (' "manual")))]))
 
 (def: (organization [name url])
@@ -40,11 +40,11 @@
 (def: (developer [name url organization])
   (Format /.Developer)
   (case organization
-    #.None
+    {.#None}
     (`' [#name (~ (code.text name))
          #url (~ (code.text url))])
 
-    {#.Some value}
+    {.#Some value}
     (`' [#name (~ (code.text name))
          #url (~ (code.text url))
          #organization (~ (..organization value))])))
@@ -72,17 +72,17 @@
   (All (_ a)
     (-> Text (Maybe a) (Format a) Aggregate Aggregate))
   (case value
-    #.None
+    {.#None}
     aggregate
 
-    {#.Some value}
+    {.#Some value}
     (dictionary.has field (format value) aggregate)))
 
 (def: (on_list field value format aggregate)
   (All (_ a)
     (-> Text (List a) (Format a) Aggregate Aggregate))
   (case value
-    #.End
+    {.#End}
     aggregate
 
     value
@@ -110,13 +110,13 @@
 (def: (info value)
   (Format /.Info)
   (|> ..empty
-      (..on_maybe "url" (value@ #/.url value) code.text)
-      (..on_maybe "scm" (value@ #/.scm value) code.text)
-      (..on_maybe "description" (value@ #/.description value) code.text)
-      (..on_list "licenses" (value@ #/.licenses value) ..license)
-      (..on_maybe "organization" (value@ #/.organization value) ..organization)
-      (..on_list "developers" (value@ #/.developers value) ..developer)
-      (..on_list "contributors" (value@ #/.contributors value) ..contributor)
+      (..on_maybe "url" (value@ /.#url value) code.text)
+      (..on_maybe "scm" (value@ /.#scm value) code.text)
+      (..on_maybe "description" (value@ /.#description value) code.text)
+      (..on_list "licenses" (value@ /.#licenses value) ..license)
+      (..on_maybe "organization" (value@ /.#organization value) ..organization)
+      (..on_list "developers" (value@ /.#developers value) ..developer)
+      (..on_list "contributors" (value@ /.#contributors value) ..contributor)
       ..aggregate))
 
 (def: (artifact' [group name version])
@@ -144,25 +144,25 @@
 (def: (profile value)
   (Format /.Profile)
   (`` (|> ..empty
-          (..on_list "parents" (value@ #/.parents value) code.text)
-          (..on_maybe "identity" (value@ #/.identity value) ..artifact)
-          (..on_maybe "info" (value@ #/.info value) ..info)
-          (..on_set "repositories" (value@ #/.repositories value) code.text)
-          (..on_set "dependencies" (value@ #/.dependencies value) ..dependency)
-          (dictionary.has "compiler" (..dependency (value@ #/.compiler value)))
-          (..on_set "sources" (value@ #/.sources value) code.text)
-          (dictionary.has "target" (code.text (value@ #/.target value)))
-          (..on_maybe "program" (value@ #/.program value) code.text)
-          (..on_maybe "test" (value@ #/.test value) code.text)
-          (..on_dictionary "deploy_repositories" (value@ #/.deploy_repositories value) code.text code.text)
+          (..on_list "parents" (value@ /.#parents value) code.text)
+          (..on_maybe "identity" (value@ /.#identity value) ..artifact)
+          (..on_maybe "info" (value@ /.#info value) ..info)
+          (..on_set "repositories" (value@ /.#repositories value) code.text)
+          (..on_set "dependencies" (value@ /.#dependencies value) ..dependency)
+          (dictionary.has "compiler" (..dependency (value@ /.#compiler value)))
+          (..on_set "sources" (value@ /.#sources value) code.text)
+          (dictionary.has "target" (code.text (value@ /.#target value)))
+          (..on_maybe "program" (value@ /.#program value) code.text)
+          (..on_maybe "test" (value@ /.#test value) code.text)
+          (..on_dictionary "deploy_repositories" (value@ /.#deploy_repositories value) code.text code.text)
           (~~ (template [<tag>]
                 [(dictionary.has (template.text [<tag>]) (..runtime (value@ <tag> value)))]
 
-                [#/.java]
-                [#/.js]
-                [#/.python]
-                [#/.lua]
-                [#/.ruby]))
+                [/.#java]
+                [/.#js]
+                [/.#python]
+                [/.#lua]
+                [/.#ruby]))
           ..aggregate)))
 
 (def: .public project
-- 
cgit v1.2.3