#MERGEMAP "pepys-diary-ontology.ltm" "ltm"
#MERGEMAP "pepys-diary-people.ltm" "ltm"
#MERGEMAP "pepys-diary-places.ltm" "ltm"
#MERGEMAP "pepys-diary-artifacts.ltm" "ltm"

/* Imports form core ontology */
[event @"http://www.techquila.com/psi/events/#event"]
[participation @"http://www.techquila.com/psi/events/#participation"]
[date @"http://www.techquila.com/psi/temporal/#date"]
[date-time @"http://www.techquila.com/psi/temporal/#date-time"]
[diary-entry @"http://www.techquila.com/psi/pepys/#diary-entry"]
[occurs @"http://www.techquila.com/psi/events/#occurs"]
[on @"http://www.techquila.com/psi/events/#date-time-of-occurrence"]
[funeral @"http://www.techquila.com/psi/events/#funeral"]
[deceased @"http://www.techquila.com/psi/events/#deceased"]
[mourner @"http://www.techquila.com/psi/events/#mourner"]
[priest  @"http://www.techquila.com/psi/events/#priest"]
[event-subject   @"http://www.techquila.com/psi/events/#event-subject"]
[subject   @"http://www.techquila.com/psi/events/#subject"]
[description   @"http://www.techquila.com/psi/general/#description"]
[participant   @"http://www.techquila.com/psi/events/#participant"]

/* Imports from people */
[samuel-pepys @"http://en.wikipedia.org/wiki/Samuel_Pepys"]
[robert-pepys @"http://www.pepysdiary.com/p/884.php"]
[john-pepys   @"http://www.pepysdiary.com/p/154.php"]
[mr-taylor @"http://www.pepysdiary.com/p/2768.php"]
[mr-turner @"http://www.pepysdiary.com/p/1592.php"]

/* Imports from artifacts */
[robert-pepys-estate   @"http://www.techquila.com/psi/pepys/subjects/#robert-pepys-estate"]


/* Today's date and diary entry */
[today : date = "Sunday 7th July 1661"; "16610707" / diary-entry
  @"http://www.techquila.com/psi/date-time/?gDateTime=1661-07-17"]
{today, diary-entry, "http://www.pepysdiary.com/archive/1661/07/07/index.php"}

[event-16610707-00 : event = "Samuel and his father read Robert Pepys' will (7th July 1661)";"16610707-00"]
occurs(event-16610707-00 : event, today : on)
participation( event-16610707-00 : event,
  john-pepys : participant,
  samuel-pepys : participant )
event-subject (robert-pepys-estate : subject, 
  event-16610707-00 : event )
{robert-pepys-estate,description,[[He gives me nothing at present till my father's death, or at least very little, yet I am glad to see he hath done so well for us all - and well to the rest of his kindred.]] } / samuel-pepys event-16610707-00


[event-16610707-01 : funeral = "Funeral of Robert Pepys (7th July 1661)";"16610707-01"]
occurs(event-16610707-01 : event, today : on)
participation( event-16610707-01 : event,
  robert-pepys : deceased,
  samuel-pepys : mourner, 
  john-pepys   : mourner,
  mr-taylor    : priest,
  mr-turner    : priest )