remove historic mark-dashboard code

app/test.hoon

@@ -1,45 +1,9 @@
-|%
-++  results  (map mark (each vase tang))
-++  show-results
-  =,  format
-  |=  a/results  ^-  json
-  :-  %o
-  %-  ~(run by a)
-  |=  b/(each vase tang)
-  ?-  -.b
-    $&  (tape:enjs (text p.b))
-    $|  (tape:enjs (of-wall (wush 160 (flop p.b))))
-  ==
-++  wush
-  |=  {wid/@u tan/tang}  ^-  wall
-  (zing (turn tan |=(a/tank (wash 0^wid a))))
---
 ::
 =,  gall
 =,  ford
 =,  format
 |_  {bowl $~}
 ++  peek  _~
-++  peer-scry-x
-  |=  path
-  [[ost %exec /all-marks our `build-marks]~ +>]
-::
-++  made-all-marks
-  |=  {path @uvH a/gage}
-  :_  +>.$
-  ?>  ?=($tabl -.a)
-  =;  res/results
-    [ost %diff [%json (show-results res)]]~
-  %-  malt
-  %+  turn  p.a
-  |=  {k/gage v/gage}  ^-  {mark (each vase tang)}
-  :-  ?>(?=({$& $mark * @tas} k) q.q.p.k)
-  ?-  -.v
-    $tabl  !!
-    $&  [%& q.p.v]
-    $|  v
-  ==
-::
 ++  made-a-core
   |=  {a/spur @uvH b/gage}
   :_  +>.$
@@ -65,29 +29,9 @@
   :~  %tabl
     [[%core now-beak a] [%$ %cont !>(b)]]
   ==
-::   =;  res/results
-::     [ost %diff [%json (show-results res)]]~
-::   %-  malt
-::   %+  turn  p.a
-::   |=  {k/gage v/gage}  ^-  {mark (each vase tang)}
-::   :-  ?>(?=({$& $mark * @tas} k) q.q.p.k)
-::   ?-  -.v
-::     $tabl  !!
-::     $&  [%& q.p.v]
-::     $|  v
-::  ==
-::
-++  build-marks
-  ^-  {beak silk}
-  :-  now-beak
-  :-  %tabl
-  %+  turn  (weld list-marks list-sub-marks)
-  |=  {a/mark $~}  ^-  {silk silk}
-  :-  [%$ %mark !>(a)]
-  [%bunt a]
 ::
 ++  poke-noun
-  |=  a/path
+  |=  [%cores a=path]  ::TODO restore historical [%marks ~] handler
   :_  +>
   ?:  [dry=|]
     ~&((list-cores a) ~)
@@ -109,25 +53,4 @@
   [sup ^$]
 ::
 ++  now-beak  %_(byk r [%da now])
-++  list-marks
-  =,  space:userlib
-  =,  format
-  =+  .^(arch %cy (en-beam now-beak /mar))
-  %+  skim  ~(tap by dir)
-  |=  {a/mark $~}
-  ?=(^ (file (en-beam now-beak /hoon/[a]/mar)))
-::
-++  list-sub-marks
-  =,  space:userlib
-  =,  format
-  ^-  (list {mark $~})
-  %-  zing  ^-  (list (list {mark $~}))
-  =/  top  .^(arch %cy (en-beam now-beak /mar))
-  %+  turn  ~(tap by dir.top)
-  |=  {sub/knot $~}
-  =+  .^(arch %cy (en-beam now-beak /[sub]/mar))
-  %+  murn  ~(tap by dir)
-  |=  {a/mark $~}  ^-  (unit {mark $~})
-  ?~  (file (en-beam now-beak /hoon/[a]/[sub]/mar))  ~
-  `[(rap 3 sub '-' a ~) ~]
 --

web/mark-dashboard.hoon

@@ -1,9 +0,0 @@
-::
-::::  /hoon/mark-dashboard/web
-  ::
-/?    310
-;div.mini-module
-  ;script@"/~/at/lib/js/urb.js";
-  ;mark-dashboard;
-  ;script@"main.js";
-==

web/mark-dashboard/main.js

@@ -1,29 +0,0 @@
-TreeActions = window.tree.actions
-d = React.DOM
-
-TreeActions.registerComponent("mark-dashboard", React.createClass({
-  render: function(){ 
-    return d.ul({},
-      !this.state.data ? "loading..." :
-      _(this.state.data)
-        .map(function(result,mark){return {result:result, mark:mark}})
-        .sortBy('mark')
-        .map(function(x){
-           return d.li({key:x.mark},"%"+x.mark, "  ", 
-              (!/\n/.test(x.result) ? d.code({},x.result) : d.pre({},d.code({},x.result)))
-          )})
-        .value()
-  )},
-  getInitialState: function(){ return {data:null}},
-  componentDidMount: function(){
-    $this = this
-    
-    urb.bind("/scry/x/main",
-        {appl:"mark-dashboard"},
-        function(err, dat){
-          urb.drop("/scry/x/main", {appl:"mark-dashboard"})
-          $this.setState({data:dat.data})
-        }
-    )
-  }
-}))