mmo-ref/tinymux
1
0
Fork 0
mirror of https://github.com/brazilofmux/tinymux synced 2026-08-13 00:23:11 -04:00
Code Issues Projects Releases Packages Wiki Activity

Add support for colorized names to plook.

Browse source
This commit is contained in:
brazilofmux 2010-07-31 08:55:25 -07:00
parent 0660a1e488
commit 7946be6d93
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
sgp/PLACES-SGP.txt
View file

@ -143,9 +143,9 @@
&PLACE_LOOK Places_global_object=itemize(iter(%0,moniker(itext()),,|),|)
&DO_PLOOK Places_global_object=$plook: @pemit %#=[setq(0,edit(get(%l/PLACENUMS),|,))][fold(PLOOK_FOLD_FN,rest(lnum(add(get(%l/PLACESMAX),1))),-----)]%rNo place [space(3)] [setq(3,setdiff(setinter(lcon(%l),lwho()),r(0)))][rjust([words(r(3))] at no places,15)] [space(3)] [setq(4,sort(iter(r(3),name(##),,|),a,|,|))][ljust(mid(extract(r(4),1,1,|),0,14),14)] [ljust(mid(extract(r(4),2,1,|),0,14),14)] [ljust(mid(extract(r(4),3,1,|),0,14),14)][switch(gt(words(r(4),|),3),1,ulocal(NAME_3COL_FN,extract(r(4),4,3999,|)))]%r-----
&DO_PLOOK Places_global_object=$plook: @pemit %#=[setq(0,edit(get(%l/PLACENUMS),|,))][fold(PLOOK_FOLD_FN,rest(lnum(add(get(%l/PLACESMAX),1))),-----)]%rNo place [space(3)] [setq(3,setdiff(setinter(lcon(%l),lwho()),r(0)))][rjust([words(r(3))] at no places,15)] [space(3)] [setq(4,sort(iter(r(3),moniker(##),,|),a,|,|))][ljust(mid(extract(r(4),1,1,|),0,14),14)] [ljust(mid(extract(r(4),2,1,|),0,14),14)] [ljust(mid(extract(r(4),3,1,|),0,14),14)][switch(gt(words(r(4),|),3),1,ulocal(NAME_3COL_FN,extract(r(4),4,3999,|)))]%r-----
&PLOOK_FOLD_FN Places_global_object=%0%r[setq(1,extract(get(%l/PLACENUMS),%1,1,|))]Place #[ljust(%1,5)] [rjust([sub(ulocal(GETINFO,%l,%1,CURPLACES),words(r(1)))] empty places,15)] [space(3)] [setq(2,sort(iter(r(1),name(##),,|),a,|,|))][ljust(mid(extract(r(2),1,1,|),0,14),14)] [ljust(mid(extract(r(2),2,1,|),0,14),14)] [ljust(mid(extract(r(2),3,1,|),0,14),14)][switch(gt(words(r(2),|),3),1,ulocal(NAME_3COL_FN,extract(r(2),4,3999,|)))]
&PLOOK_FOLD_FN Places_global_object=%0%r[setq(1,extract(get(%l/PLACENUMS),%1,1,|))]Place #[ljust(%1,5)] [rjust([sub(ulocal(GETINFO,%l,%1,CURPLACES),words(r(1)))] empty places,15)] [space(3)] [setq(2,sort(iter(r(1),moniker(##),,|),a,|,|))][ljust(mid(extract(r(2),1,1,|),0,14),14)] [ljust(mid(extract(r(2),2,1,|),0,14),14)] [ljust(mid(extract(r(2),3,1,|),0,14),14)][switch(gt(words(r(2),|),3),1,ulocal(NAME_3COL_FN,extract(r(2),4,3999,|)))]
&NAME_3COL_FN Places_global_object=[fold(NAME_3AUX_FN,rest(%0,|),%r[space(33)][ljust(mid(first(%0,|),0,14),15)],|)]