Add Easter egg at the Dojo prompt.

pkg/arvo/app/dojo.hoon

@@ -66,6 +66,7 @@
       $~  [%ex *hoon]
       $%  [%ur p=@t]                                    ::  http GET request
           [%ge p=dojo-model]                            ::  generator
+          [%ee p=[=desk =term] q=(list dojo-source)]    ::  Easter egg
           [%te p=[=desk =term] q=(list dojo-source)]    ::  thread
           [%dv p=beak q=path]                           ::  core from source
           [%ex p=hoon]                                  ::  hoon expression
@@ -244,12 +245,17 @@
       ;~  pose
         ;~(plug (cold %ur lus) parse-url)
         ;~(plug (cold %ge lus) parse-model)
+        ;~(plug (cold %ee sig) parse-easter-egg)
         ;~(plug (cold %te hep) parse-thread (star ;~(pfix ace parse-source)))
         ;~(plug (cold %as pam) sym ;~(pfix ace parse-source))
         ;~(plug (cold %do cab) parse-hoon ;~(pfix ace parse-source))
         parse-value
       ==
   ::
+  ++  parse-easter-egg
+    %+  cook  |=(a=cord [p=[%base %egg] q=~])
+    (jest 'Urbit')
+  ::
   ++  parse-goal
     %+  cook  |=(a=goal a)
     ;~  pose
@@ -446,6 +452,7 @@
       |=  bul=dojo-build
       ^+  [bul +>]
       ?-    -.bul
+        %ee  [bul +>.$]
         %ex  [bul +>.$]
         %dv  [bul +>.$]
         %sa  [bul +>.$]
@@ -744,7 +751,7 @@
     =-  >[-]<
     =+  `[@ bil=dojo-build]`a
     |-  ^-  dy-shown
-    ?-  -.bil
+    ?+  -.bil  !!
       $?(%ur %dv %sa)  bil
       %ex  ?.  ?=([%cltr *] p.bil)  p.bil
                |-  ^-  hoon
@@ -991,6 +998,7 @@
           %ex  (dy-mere p.bil)
           %dv  (dy-sing hand+q.bil %a p.bil (snoc q.bil %hoon))
           %ge  (dy-run-generator (dy-cage p.p.p.bil) q.p.bil desk.q.p.p.bil)
+          %ee  (dy-wool-poke p.bil q.bil)  :: Easter egg
           %sa
         =/  has-mark  .?((get-fit:clay he-beak %mar p.bil))
         ?.  has-mark

pkg/arvo/ted/egg.hoon

@@ -0,0 +1,35 @@
+::  Easter egg output for "~Urbit"
+::
+::::  /hoon/egg/ted
+  ::
+/-  spider
+/+  strandio
+=,  strand=strand:spider
+^-  thread:spider
+|=  arg=vase
+|^
+  =/  m  (strand ,vase)
+  ^-  form:m
+  %-  %-  slog  :_  ~
+      urbit-logo
+  (pure:m !>(~))
+++  urbit-logo
+  :-  %leaf
+  ::  This image was generated using https://www.asciiart.eu/image-to-ascii
+  ::  with the "25 characters" setting.
+"""
+        ~~~~~~~~~
+     ~~~~~~~~~~~~~~~
+   ~~~~~         ~~~~~
+  ~~~               ~~~
+ ~~~                 ~~~
+ ~~     ~~~~     ~~   ~~
+ ~~   ~~~~~~~~~~~~~   ~~
+ ~~   ~~     ~~~~     ~~
+ ~~~                 ~~~
+  ~~~               ~~~
+   ~~~~          ~~~~~
+     ~~~~~~~~~~~~~~~
+        ~~~~~~~~~
+"""
+--