version 1.59, 2008/10/12 13:15:23
|
version 1.60, 2008/10/29 20:45:33
|
Line 270 Defer parse-line
|
Line 270 Defer parse-line
|
s" ]" link-suffix $+! |
s" ]" link-suffix $+! |
link-suffix $@ alt= ; |
link-suffix $@ alt= ; |
|
|
|
: replace.- ( addr u -- ) |
|
bounds ?DO I c@ '. = IF '- I c! THEN LOOP ; |
|
|
: get-icon ( addr u -- ) iconpath @ IF 2drop EXIT THEN |
: get-icon ( addr u -- ) iconpath @ IF 2drop EXIT THEN |
link-suffix $! s" .*" link-suffix $+! |
link-suffix $! link-suffix $@ replace.- |
|
s" .*" link-suffix $+! |
icon-prefix $@ open-dir IF drop EXIT THEN >r |
icon-prefix $@ open-dir IF drop EXIT THEN >r |
BEGIN |
BEGIN |
pad $100 r@ read-dir throw WHILE |
pad $100 r@ read-dir throw WHILE |
Line 731 Variable orig-date
|
Line 735 Variable orig-date
|
s" Mail|@/mail.gif" .img mail $@ mailto: mail-name $@ s" a" tagged |
s" Mail|@/mail.gif" .img mail $@ mailto: mail-name $@ s" a" tagged |
public-key @ IF |
public-key @ IF |
public-key $@ href= s" a" tag |
public-key $@ href= s" a" tag |
s" PGP key|-@/gpg.asc.gif" .img s" a" /tag |
s" PGP key|-@/gpg-asc.gif" .img s" a" /tag |
THEN |
THEN |
-envs ; |
-envs ; |
|
|