1:- module(login_static, []).

Convenience method that creates a standard set of static file servers

/

    5:- use_module(library(http/html_head)).    6:- use_module(library(http/http_files)).    7:- use_module(library(http/http_dispatch)).    8
    9:- multifile http:location/3.   10:- dynamic   http:location/3.   11
   12http:location(js, '/js', []).
   13http:location(img, '/icons', []).
   14http:location(css, '/css', []).
   15
   16user:file_search_path(js, '../prolog/web/js').
   17user:file_search_path(css, '../prolog/web/css').
   18user:file_search_path(img, '../prolog/web/icons').
   19
   20:- http_handler(js(.), http_reply_from_files(js(.), []), [prefix]).   21:- http_handler(css(.), http_reply_from_files(css(.), []), [prefix]).   22:- http_handler(img(.), http_reply_from_files(img(.), []), [prefix]).