From 9412a94ea9e5fadc5056b36d5d390b69eb3b88af Mon Sep 17 00:00:00 2001 From: Sigilante Date: Mon, 29 Jul 2024 16:16:13 -0500 Subject: [PATCH 1/3] WIP add conversion arms --- pkg/base-dev/mar/tang.hoon | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/pkg/base-dev/mar/tang.hoon b/pkg/base-dev/mar/tang.hoon index 9fdd314c0..1059af4e0 100644 --- a/pkg/base-dev/mar/tang.hoon +++ b/pkg/base-dev/mar/tang.hoon @@ -16,10 +16,15 @@ %& a+p.result %| a+[a+[%s '[[output rendering error]]']~]~ == + ++ txt + ^- wain + %+ turn tan + |=(=tank (crip ~(ram re tank))) -- ++ grab :: convert from |% ++ noun (list ^tank) :: clam from %noun ++ tank |=(a=^tank [a]~) + ++ txt |=(wain (turn tank)) -- -- From 73fbb7d1c4d4a2ecb9fc1fb5dd5e28b391349c04 Mon Sep 17 00:00:00 2001 From: Sigilante Date: Tue, 30 Jul 2024 09:55:09 -0500 Subject: [PATCH 2/3] Add txt/tang conversion. --- pkg/base-dev/mar/tang.hoon | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkg/base-dev/mar/tang.hoon b/pkg/base-dev/mar/tang.hoon index 1059af4e0..6d8b5d982 100644 --- a/pkg/base-dev/mar/tang.hoon +++ b/pkg/base-dev/mar/tang.hoon @@ -25,6 +25,6 @@ |% ++ noun (list ^tank) :: clam from %noun ++ tank |=(a=^tank [a]~) - ++ txt |=(wain (turn tank)) + ++ txt |=(=wain (turn wain tank)) -- -- From 70c493b7632d4825239237b516f2b8ed952e976b Mon Sep 17 00:00:00 2001 From: Sigilante Date: Wed, 31 Jul 2024 10:37:43 -0500 Subject: [PATCH 3/3] Flop order. --- pkg/base-dev/mar/tang.hoon | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pkg/base-dev/mar/tang.hoon b/pkg/base-dev/mar/tang.hoon index 6d8b5d982..6db1ceae8 100644 --- a/pkg/base-dev/mar/tang.hoon +++ b/pkg/base-dev/mar/tang.hoon @@ -18,13 +18,13 @@ == ++ txt ^- wain - %+ turn tan + %+ turn (flop tan) |=(=tank (crip ~(ram re tank))) -- ++ grab :: convert from |% ++ noun (list ^tank) :: clam from %noun ++ tank |=(a=^tank [a]~) - ++ txt |=(=wain (turn wain tank)) + ++ txt |=(=wain (flop (turn wain tank))) -- --