View source with raw comments or as raw
    1:- module(dss_localview, []).    2:- use_module(cliopatria(hooks)).    3:- use_module(library(semweb/rdf_db)).    4:- use_module(library(http/html_write)).    5:- use_module(library(http/html_head)).    6
    7
    8cliopatria:list_resource(URI, _Options) -->
    9	{ rdf(_, schema:image, URI), !
   10	},
   11	html_requires(css('dss.css')),
   12	html(img([class(example), src(URI)])).
   13cliopatria:list_resource(URI, _Options) -->
   14	{ file_name_extension(_Base, Img, URI),
   15	  image_extension(Img)
   16	},
   17	html_requires(css('dss.css')),
   18	html([ h2([ 'Resource: ', a(href(URI), URI)]),
   19	       img([class(monsterrol), src(URI)])
   20	     ]).
   21cliopatria:list_resource(URI, _Options) -->
   22	{ atom_concat(Base, ':ocr', URI)
   23	},
   24	html_requires(css('dss.css')),
   25	html([ h2([ 'Resource: ', a(href(URI), URI)]),
   26	       iframe([class('kb-artikel'), src(Base)], [])
   27	     ]).
   28
   29image_extension(jpg).
   30image_extension(jpeg)