1:- module(conf_swish, []).    2:- use_module(cliopatria(hooks)).

    7:- multifile
    8	user:file_search_path/2,
    9	swish_config:config/2.   10
   11% tell SWISH where to find its parts.   The last clause allows adding an
   12% =examples=  directory  in  the  main   directory  holding  application
   13% specific examples.
   14
   15user:file_search_path(swish_web, web(.)).
   16user:file_search_path(example,   cpacks(swish/examples)).
   17user:file_search_path(example,	 examples).
   18
   19% Allows users to extend the Examples menu by ticking the Example
   20% checkbox.
   21swish_config:config(community_examples,   true).
   22swish_config:config(chat_spam_protection, false).
   23
   24% Load swish.  You need this.
   25:- use_module(applications(swish)).   26% Load the authentication hook. When loaded, ClioPatria users with admin
   27% rights can use SWISH without sandboxing security
   28:- use_module(library(swish/cp_authenticate)).   29% Enable user profile management
   30:- use_module(library(swish/plugin/profile)).   31% Enable notifications
   32:- use_module(library(swish/plugin/notify)).   33% Enable logging of SWISH queries and sources if HTTP logging is enabled
   34:- use_module(library(swish/logging)).   35% Make side-effect-free RDF predicates safe
   36:- if(exists_source(library(semweb/rdf_sandbox))).   37:- use_module(library(semweb/rdf_sandbox)).   38:- endif.   39% Make the R interface available.
   40% make sure Rserve runs in a good sandbox or only allow for
   41% authenticated access.  See https://github.com/JanWielemaker/rserve-sandbox
   42:- if(exists_source(library(r/r_call))).   43:- use_module(user:library(swish/r_swish)).   44:- use_module(library(r/r_sandbox)).   45:- endif.   46
   47% Uncomment this to make Captitalised words _atoms_.  Variables must
   48% be written as _var.  Requires SWI-Prolog 7.3.27.
   49%:- set_prolog_flag(swish:var_prefix, true).

 cliopatria:menu_item(-Item, -Label) is nondet

Add SWISH to the Query menu.

   55cliopatria:menu_item(300=query/swish, 'SWISH Prolog shell')