remove historic mark-dashboard code

This commit is contained in:
Anton Dyudin 2017-12-06 14:58:34 -08:00
parent c875c60f0c
commit 3da5f858eb
3 changed files with 1 additions and 116 deletions

View File

@ -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 =, gall
=, ford =, ford
=, format =, format
|_ {bowl $~} |_ {bowl $~}
++ peek _~ ++ 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 ++ made-a-core
|= {a/spur @uvH b/gage} |= {a/spur @uvH b/gage}
:_ +>.$ :_ +>.$
@ -65,29 +29,9 @@
:~ %tabl :~ %tabl
[[%core now-beak a] [%$ %cont !>(b)]] [[%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 ++ poke-noun
|= a/path |= [%cores a=path] ::TODO restore historical [%marks ~] handler
:_ +> :_ +>
?: [dry=|] ?: [dry=|]
~&((list-cores a) ~) ~&((list-cores a) ~)
@ -109,25 +53,4 @@
[sup ^$] [sup ^$]
:: ::
++ now-beak %_(byk r [%da now]) ++ 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 ~) ~]
-- --

View File

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

View File

@ -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})
}
)
}
}))