treaty: add desk permissions check

desk/app/treaty.hoon

@@ -78,6 +78,8 @@
       =/  =treaty  (treaty-from-docket:cc desk docket)
       =.  sovereign  (~(put by sovereign) desk treaty)
       :_  this
+      ?^  vips.treaty
+        [warp give]:so
       [publish warp give]:so
     ::
         %del
@@ -271,7 +273,21 @@
   |=  [=desk =docket:docket]
   =+  .^(=cass:clay %cw (scry:io desk /desk/docket))
   =+  .^(hash=@uv %cz (scry:io desk ~))
-  [our.bowl desk da+da.cass hash docket]
+  =-  [our.bowl desk - da+da.cass hash docket]
+  =,  clay
+  =/  perms  .^([r=dict w=dict] %cp (scry:io desk /))
+  =/  =_who:*real  who.rul.r.perms
+  =+   mod=mod.rul.r.perms
+  ?:  ?=(%black mod)  ~
+  =-  ?~  -  (sy ~[our.bowl])  -
+  ^-  crew
+  =;    crews
+    ?~  ships=p.who  crews
+    (~(uni in `crew`ships) crews)
+  ^-  crew
+  %+  roll  ~(val by q.who)
+  |=  [=crew all=crew]
+  (~(uni in all) crew)
 ::  +al: Side effects for allies
 ++  al
   |_  =ship

desk/lib/treaty.hoon

@@ -16,9 +16,17 @@
     %-  pairs
     :~  ship+s+(scot %p ship.t)
         desk+s+desk.t
+        vips+(vips `crew:clay`vips.t)
         cass+(case case.t)
         hash+s+(scot %uv hash.t)
     ==
+  ++  vips
+    |=  v=crew:clay
+    :-  %a
+    %+  turn  ~(tap in v)
+    |=  =^ship
+    ^-  json
+    s+(scot %p ship)
   ::
   ++  case
     |=  c=^case

desk/sur/treaty.hoon

@@ -8,7 +8,7 @@
   ::    Includes the docket itself, plus provenance generated by clay
   ::
   +$  treaty
-    [=ship =desk =case hash=@uv =docket:docket]
+    [=ship =desk vips=crew:clay =case hash=@uv =docket:docket]
   ::
   ::  $update:treaty: Diff of treaty state
   ::

ui/src/components/AppInfo.tsx

@@ -82,6 +82,7 @@ export const AppInfo: FC<AppInfoProps> = ({
   }, [publisher, desk]);
 
   const installing = installStatus === 'installing';
+  const buttonText = treaty?.vips && treaty.vips.includes(window.ship) ? 'VIP' : 'Get App';
 
   if (!docket) {
     // TODO: maybe replace spinner with skeletons
@@ -103,12 +104,21 @@ export const AppInfo: FC<AppInfoProps> = ({
               href={getAppHref(docket.href)}
               target="_blank"
               rel="noreferrer"
-              onClick={() => addRecentApp(docket.desk)}
-            >
+              onClick={() => addRecentApp(docket.desk)}>
               Open App
             </PillButton>
           )}
-          {installStatus !== 'installed' && (
+          {(treaty?.vips && treaty?.vips.length > 0) && (
+            <PillButton
+              variant="secondary"
+              as="a"
+              href={getAppHref(docket.href)}
+              target="_blank"
+              rel="noreferrer">
+                Not Listed
+            </PillButton>
+          ) ||
+          installStatus !== 'installed' && (
             <Dialog.Root>
               <DialogTrigger asChild>
                 <PillButton variant="alt-primary" disabled={installing}>
@@ -117,9 +127,7 @@ export const AppInfo: FC<AppInfoProps> = ({
                       <Spinner />
                       <span className="sr-only">Installing...</span>
                     </>
-                  ) : (
-                    'Get App'
-                  )}
+                  ) : buttonText}
                 </PillButton>
               </DialogTrigger>
               <Dialog.Portal>

ui/src/gear/docket/types.ts

@@ -50,6 +50,7 @@ export interface SuspendChad {
 export interface Treaty extends Docket {
   ship: string;
   desk: string;
+  vips: [ship: string];
   cass: Cass;
   hash: string;
 }