Merge remote-tracking branches 'ohaitch/robots-back-in-eyre', 'Fang/oust', 'ohaitch/warn-pump-blocked', 'joemfb/moon-talk', 'yebyen/master', 'ohaitch/fix-login-css' and 'ray/repope-rep'

Reinstate robots.txt hardcoded into eyre hack
Add ++oust, arm to remove items from a list
Pump blocked printf for security driver requests
Allow moons to link to parent's talk
Rekey ~del for new crypto era
Use absolute path for login page CSS
Rekey ~rep for new crypto era
This commit is contained in:
Raymond Pasco 2016-08-26 17:03:08 -04:00
6 changed files with 23 additions and 15 deletions

View File

@ -1595,7 +1595,7 @@
?- p.cordon.shape
$black &
$green &
$brown =(her our.hid)
$brown (team our.hid her)
$white (~(has in q.cordon.shape) her)
==
::
@ -2195,7 +2195,7 @@
~? !=(src.hid our.hid) [%peer-talk-stranger src.hid]
:: ~& [%talk-peer src.hid ost.hid pax]
?: ?=({$sole *} pax)
?> =(our.hid src.hid)
?> (team our.hid src.hid)
~? (~(has by shells) ost.hid) [%talk-peer-replaced ost.hid pax]
ra-abet:(ra-console:ra src.hid t.pax)
:: ~& [%talk-peer-data ost.hid src.hid pax]

View File

@ -179,7 +179,7 @@
0w0 :: 34, ~lut, Tlon Investor 9
0w0 :: 35, ~sep, Tlon Investor 9
0w0 :: 36, ~pes, Jennifer Kollmer
0w2J.WSHlR.t5VHN.X8GKE.DB-yz :: 37, ~del, Kingdon Barrett (oldkey)
0w10.5s1K0.dv9NT.02fPe.PyDYa :: 37, ~del, Kingdon Barrett
0w1w.KF-J1.5I63F.khFyv.h0n4J :: 38, ~sul, John Burnham (oldkey)
0w3x.XaJbE.xaOn3.zXbaG.5xUiY :: 39, ~ped, Jeremy Wall (oldkey)
0w2.Mr2Id.SX8xI.MAs-j.5Y-1W :: 40, ~tem, Tlon Investor 10 (oldkey)
@ -392,7 +392,7 @@
0w28.bRVMq.Oi3tM.zOCNV.j00Yq :: 247, ~fyr, Anton Dyudin (oldkey)
0w0 :: 248, ~mur, Tlon
0w0 :: 249, ~tel, Tlon
0w3D.onYhb.3wvaz.62Ct8.nt3iJ :: 250, ~rep, Raymond Pasco (oldkey)
0w3w.V54nF.e9eNv.1fLkl.PiUo- :: 250, ~rep, Raymond Pasco
0w0 :: 251, ~teg, Tlon
0w0 :: 252, ~pec, Tlon
0w0 :: 253, ~nel, Tlon

View File

@ -553,8 +553,8 @@
;title:"{(trip a)}"
;script(type "text/javascript", src "//cdnjs.cloudflare.com/ajax/".
"libs/jquery/2.1.1/jquery.min.js");
;link(rel "stylesheet", href "/lib/css/fonts.css");
;link(rel "stylesheet", href "/lib/css/bootstrap.css");
;link(rel "stylesheet", href "/=home=/web/lib/css/fonts.css");
;link(rel "stylesheet", href "/=home=/web/lib/css/bootstrap.css");
==
;body:"*{b}"
==
@ -1104,7 +1104,13 @@
%^ resp 200 image+/png
favi
::
:: {$txt $robots $~} !!
{$txt $robots $~}
:- ~
%^ resp 200 text+/plain
%- role
:~ 'User-agent: *'
'Disallow: '
==
==
::
++ is-spur |(?~(q.pok & ((sane %ta) i.q.pok)))
@ -1753,7 +1759,9 @@
^+ abet
?~ cor
build
?. liv abet
?. liv
~& e+vi+pump-blocked+[dom ~(wyt in req)]
abet
=+ ole=~(top to req)
?~ ole abet
:: process hiss

View File

@ -728,6 +728,11 @@
$(a t.a)
[i=u.c t=$(a t.a)]
::
++ oust :: remove
~/ %oust
|* {{a/@ b/@} c/(list)}
(weld (scag a c) (slag (add a b) c))
::
++ reap :: replicate
~/ %reap
|* {a/@ b/*}

View File

@ -174,11 +174,8 @@
++ peer ::
|= pax/path =< se-abet
^+ +>
?. ?| =(our src) :: ourself
&(=(%duke (clan our)) =(our (sein src))) :: or our own yacht
== ::
~| [%drum-unauthorized our+our src+src] :: very simplistic
!!
~| [%drum-unauthorized our+our src+src] :: ourself
?> (team our src) :: or our own moon
se-view:(se-text "[{<src>}, driving {<our>}]")
::
++ poke-dill-belt ::

View File

@ -1,2 +0,0 @@
User-agent: *
Disallow: