| |
|
| Variable css-file |
Variable css-file |
| Variable content |
Variable content |
| Variable lang |
Variable _lang |
| |
Variable _favicon |
| |
|
| : lang@ ( -- addr u ) |
: lang@ ( -- addr u ) |
| lang @ IF lang $@ ELSE s" en" THEN ; |
_lang @ IF _lang $@ ELSE s" en" THEN ; |
| : .css ( -- ) |
: .css ( -- ) |
| css-file @ IF css-file $@len IF |
css-file @ IF css-file $@len IF |
| s" StyleSheet" s" rel" opt |
s" StyleSheet" s" rel" opt |
| s" Content-Type" s" http-equiv" opt |
s" Content-Type" s" http-equiv" opt |
| content $@ s" content" opt |
content $@ s" content" opt |
| s" meta" tag/ cr .css |
s" meta" tag/ cr .css |
| |
_favicon @ IF |
| |
s" shortcut icon" s" rel" opt |
| |
_favicon $@ href= |
| |
s" image/x-icon" s" type" opt |
| |
s" link" tag/ cr THEN |
| s" title" tagged cr |
s" title" tagged cr |
| -env ; |
-env ; |
| |
|
| : icons |
: icons |
| bl sword icon-prefix $! ; |
bl sword icon-prefix $! ; |
| : lang |
: lang |
| bl sword lang $! ; |
bl sword _lang $! ; |
| |
: favicon |
| |
bl sword _favicon $! ; |
| : expands '# sword expand-prefix $! bl sword expand-postfix $! ; |
: expands '# sword expand-prefix $! bl sword expand-postfix $! ; |
| |
|
| icons icons |
icons icons |
