From 10733de39dd174f0de94138aef074e57462bed71 Mon Sep 17 00:00:00 2001
From: Joseph Bryan <joemfb@gmail.com>
Date: Wed, 4 Jan 2017 02:08:40 -0500
Subject: [PATCH] adds scry-desks feature to %clay (care %d)

    .^((set desk) %cd /===)
---
 sys/vane/clay.hoon | 23 ++++++++++++++++++-----
 sys/zuse.hoon      |  2 +-
 2 files changed, 19 insertions(+), 6 deletions(-)

diff --git a/sys/vane/clay.hoon b/sys/vane/clay.hoon
index 23fb4af59a..cf586b3ef7 100644
--- a/sys/vane/clay.hoon
+++ b/sys/vane/clay.hoon
@@ -44,12 +44,13 @@
 ::
 ::  Type of request.
 ::
-::  %u checks for existence, %v produces a ++dome of all desk data, %w with a
-::  time or label case gets the aeon at that case, %w with a number case is not
-::  recommended, %x gets file contents, %y gets a directory listing, and %z gets
-::  a recursive hash of the file contents and children.
+::  %d produces a set of desks, %u checks for existence, %v produces a ++dome of
+::  all desk data, %w with a time or label case gets the aeon at that case, %w
+::  with a number case is not recommended, %x gets file contents, %y gets a
+::  directory listing, and %z gets a recursive hash of the file contents and
+::  children.
 ::
-++  care  ?($u $v $w $x $y $z)
+:: ++  care  ?($d $u $v $w $x $y $z)
 ::
 ::  Keeps track of subscribers.
 ::
@@ -1393,6 +1394,9 @@
         (~(put by haw.u.ref) p.rav ~)
       ==
     ?-    p.p.u.rut
+        $d
+      ~|  %totally-temporary-error-please-replace-me
+      !!
         $u
       ~|  %im-thinkin-its-prolly-a-bad-idea-to-request-rang-over-the-network
       !!
@@ -2118,6 +2122,8 @@
     ++  read                                            ::    read:ze
       |=  mun/mood                                      ::  read at point
       ^-  (unit cage)
+      ?:  ?=($d p.mun)
+        ~&  %dead-d  ~
       ?:  ?=($v p.mun)
         [~ %dome !>(dom)]                               ::  dead code
       ?:  &(?=($w p.mun) !?=($ud -.q.mun))
@@ -2279,6 +2285,13 @@
       ^-  (unit (unit (each cage lobe)))
       ?:  &(?=($w p.mun) !?=($ud -.q.mun))              ::  NB only her speed
         ?^(r.mun [~ ~] [~ ~ %& %aeon !>(yon)])
+      ?:  ?=($d p.mun)
+        =+  rom=(~(get by fat.ruf) her)
+        ?~  rom
+          ~&(%null-rom-cd [~ ~])
+        ?^  r.mun
+          ~&(%no-cd-path [~ ~])
+        [~ ~ %& %noun !>(~(key by dos.u.rom))]
       ?:  ?=($u p.mun)
         (read-u yon r.mun)
       ?:  ?=($v p.mun)
diff --git a/sys/zuse.hoon b/sys/zuse.hoon
index f3dbf7470c..7aed9d83f3 100644
--- a/sys/zuse.hoon
+++ b/sys/zuse.hoon
@@ -326,7 +326,7 @@
     $%  {$delta p/lobe q/{p/mark q/lobe} r/page}        ::  delta on q
         {$direct p/lobe q/page}                         ::  immediate
     ==                                                  ::
-  ++  care  ?($u $v $w $x $y $z)                        ::  clay submode
+  ++  care  ?($d $u $v $w $x $y $z)                     ::  clay submode
   ++  case                                              ::  ship desk case spur
     $%  {$da p/@da}                                     ::  date
         {$tas p/@tas}                                   ::  label