From 4d013573e1083a9220269bc6c3aaeb7a5768e67b Mon Sep 17 00:00:00 2001
From: Philip Monk <phil@pcmonk.me>
Date: Tue, 24 Mar 2020 17:24:19 -0700
Subject: [PATCH] clay: print changes on commit

---
 pkg/arvo/sys/vane/clay.hoon | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/pkg/arvo/sys/vane/clay.hoon b/pkg/arvo/sys/vane/clay.hoon
index 2aa270de0d..378401c629 100644
--- a/pkg/arvo/sys/vane/clay.hoon
+++ b/pkg/arvo/sys/vane/clay.hoon
@@ -2919,6 +2919,7 @@
     |=  [=tako =rang =ankh mim=(map path (unit mime))]
     |^
     ^+  ..park
+    =.  ..park  print
     =:  ank.dom  ankh
         let.dom  +(let.dom)
         hit.dom  (~(put by hit.dom) +(let.dom) tako)
@@ -2939,6 +2940,31 @@
           |=  pax=path
           [(slag len pax) (~(got by mim) pax)]
       ==
+    ::
+    ++  print
+      ^+  ..park
+      ~&  >  %print
+      ?~  hun
+        ..park
+      %-  emil
+      %+  turn  ~(tap by mim)
+      |=  [=path change=(unit mime)]
+      =/  car=@tD
+        ?~  change
+          '-'
+        ?:  (~(has by mim.dom) path)
+          ':'
+        '+'
+      =/  =tank
+        =/  pre=^path  ~[(scot %p our) syd (scot %ud +(let.dom))]
+        :+  %rose  ["/" "/" ~]
+        %+  turn  (weld pre path)
+        |=  a=cord
+        ^-  tank
+        ?:  ((sane %ta) a)
+          [%leaf (trip a)]
+        [%leaf (dash:us (trip a) '\'' ~)]
+      [u.hun %give %note car tank]
     --
   ::
   ::  Set permissions for a node.