1:- module(mud_specific, [
2 style/1]).
7:- use_module(library(http/html_write)). 8:- use_module(library(http/html_head)).
Style may be
name(X)
- X is the name of the style used by user:head and
user:body
map - if present, display a gridded map area
map_grid_size(X,Y)
- map "squares" are this size in pixels
map_display(+Semantics, -TermerizedHTML)
blank(-TermerizedHTML)
contents of the td field if there is no
semantic content or map_display fails34style(name(startrek)). 35style(map). 36style(map_grid_size(32, 32)). 37style(map_display(wall, 'W' )). 38style(map_display(floor, '.' )). 39 40:- multifile user:head/4, user:body/4.
this predicate is REQUIRED if style is not logicmoo
48userhead(startrek, Head) -->
49 html(head([
50 title('Star Trek'),
51 Head
52 ])).
this predicate is REQUIRED if style is not logicmoo
60userbody(startrek, Body) -->
61 html(body([
62 h1('Star Trek'),
63 div(ftID(content), Body)
64 ]))
Code specific to this particular MOO's web presence
*/