Added single Hall action for creating, permitting, and sourcing DM station. Thanks Isaac

app/hall.hoon

@@ -165,6 +165,7 @@
       --
   =|  mos/(list move)
   |=  old/(unit states)
+  ~&  old
   ^-  (quip move _..prep)
   ?~  old
     %-  pre-bake
@@ -190,11 +191,17 @@
     ++  prep-config
       |=  cof/config-0
       ^-  config
-      %=  cof
-          src
+      =.  src.cof
         %-  ~(gas in *(set source))
         (murn ~(tap in src.cof) prep-source)
+      :*  src.cof
+          cap.cof
+          tag.cof
+          fit.cof
+          con.cof
+          0
       ==
+
     ::
     ++  prep-source
       |=  src/source-0
@@ -422,6 +429,7 @@
         $delete  (action-delete +.act)
         $usage   (action-usage +.act)
         $read    (action-read +.act)
+        $newdm   (action-newdm +.act)
         ::  messaging
         $convey  (action-convey +.act)
         $phrase  (action-phrase +.act)
@@ -481,6 +489,7 @@
       ::
       |=  {nom/name des/cord typ/security}
       ^+  ..ta-action
+      ~&  nom
       ?.  (~(has in stories) nom)
         %^  impact  nom  %new
         :*  [[[our.bol nom] ~] ~ ~]
@@ -545,6 +554,8 @@
       ::
       |=  {nom/name sub/? srs/(set source)}
       =+  soy=(~(get by stories) nom)
+      ~&  nom
+      ~&  srs
       ?~  soy
         (ta-evil (crip "no story {(trip nom)}"))
       so-done:(~(so-sources so nom ~ u.soy) sub srs)
@@ -567,6 +578,44 @@
         (ta-evil (crip "no story {(trip nom)}"))
       so-done:(~(so-read so nom ~ u.soy) red)
     ::
+    ++  action-newdm
+      :>  copy all behavior of create, permit, and source in that order
+      ::
+      |=  {sis/(set ship)}
+      ~&  sis
+      =/  nom/name
+      %^  rsh  3  1
+      %+  roll
+        %+  sort  (weld ~(tap in sis) [our.bol ~])
+        |=  [a=ship b=ship]
+        ^-  ?
+        (lth a b)
+      |=  {p/ship nam/name}
+      ^-  @tas
+      (crip "{(trip `@t`nam)}.{(slag 1 (trip (scot %p p)))}")
+      =/  dels/(list delta)
+      :~
+      :*
+          %story
+          %inbox
+          %follow
+          &
+          [[[our.bol nom] ~] ~ ~]
+      ==
+      :*
+          %story
+          nom
+          %new
+          [[[our.bol nom] ~] ~ ~]
+          'dm'
+          ~
+          *filter
+          [%village (~(put in sis) our.bol)]
+          0
+      ==
+      ==
+      (ta-deltas dels)
+    ::
     :>  #  %messaging
     +|
     ++  action-convey

mar/hall/action.hoon

@@ -24,6 +24,7 @@
         source+(ot nom+so sub+bo srs+(as sorc) ~)
         read+(ot nom+so red+ni ~)
         usage+(ot nom+so add+bo tas+(as so) ~)
+        newdm+(ot sis+(as (su fed:ag)) ~)
         ::
         convey+(ar thot)
         phrase+(ot aud+audi ses+(ar spec:dejs:hall-json) ~)
@@ -57,6 +58,7 @@
       $source  ~[nom+s+nom.act sub+b+sub.act srs+(sa srs.act sorc)]
       $read    ~[nom+s+nom.act red+(numb red.act)]
       $usage   ~[nom+s+nom.act add+b+add.act tas+(sa tas.act cord:enjs)]
+      $newdm   ~[sis+(sa sis.act ship)]
       ::
       $phrase  ~[aud+(audi aud.act) ses+a+(turn ses.act spec:enjs)]
       ::

sur/hall.hoon

@@ -147,6 +147,7 @@
       {$permit nom/name inv/? sis/(set ship)}           :<  invite/banish
       {$source nom/name sub/? srs/(set source)}         :<  un/sub to/from src
       {$read nom/name red/@ud}                          :<  change read message
+      {$newdm sis/(set ship)}
       {$usage nom/name add/? tas/tags}                  :<  add/rem usage tags
       ::  messaging                                     ::
       {$convey tos/(list thought)}                      :<  post exact