From da739d6e879f3ef445282e58ee155283d1f9f043 Mon Sep 17 00:00:00 2001
From: yosoyubik <yosoyubik@gmail.com>
Date: Wed, 10 Nov 2021 18:39:43 +0100
Subject: [PATCH] azimuth: add sponsorship scry

---
 pkg/arvo/app/azimuth.hoon |  1 +
 pkg/arvo/app/roller.hoon  | 11 +++++++++++
 2 files changed, 12 insertions(+)

diff --git a/pkg/arvo/app/azimuth.hoon b/pkg/arvo/app/azimuth.hoon
index 229bbf4b1e..792f1e5d29 100644
--- a/pkg/arvo/app/azimuth.hoon
+++ b/pkg/arvo/app/azimuth.hoon
@@ -185,6 +185,7 @@
         [%x %nas ~]      ``noun+!>(nas.state)
         [%x %dns ~]      ``noun+!>(dns.nas.state)
         [%x %own ~]      ``noun+!>(own.state)
+        [%x %spo ~]      ``noun+!>(spo.state)
         [%x %refresh ~]  ``atom+!>(refresh)
         [%x %point @ ~]  ``noun+(point i.t.t.path)
     ==
diff --git a/pkg/arvo/app/roller.hoon b/pkg/arvo/app/roller.hoon
index 14b9e12bce..4a3bd7202f 100644
--- a/pkg/arvo/app/roller.hoon
+++ b/pkg/arvo/app/roller.hoon
@@ -782,6 +782,16 @@
     (scot %da now.bowl)
     /own/noun
   ==
+::  +canonical-sponsors: current azimuth sponsorship
+::
+++  canonical-sponsors
+  .^  sponsors
+    %gx
+    (scot %p our.bowl)
+    %azimuth
+    (scot %da now.bowl)
+    /spo/noun
+  ==
 ::  +predicted-state
 ::
 ::    derives predicted state from applying pending & sending txs to
@@ -792,6 +802,7 @@
   ^-  (quip update _state)
   =:  pre  nas
       own  canonical-owners
+      spo  canonical-sponsors
     ==
   |^
   =^  [nes=_sending updates-1=(list update)]  state