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

/* Imports from core ontology */
[diary-entry @"http://www.techquila.com/psi/pepys/#diary-entry"]
[event @"http://www.techquila.com/psi/events/#event"]
[participation @"http://www.techquila.com/psi/events/#participation"]
[date @"http://www.techquila.com/psi/temporal/#date"]
[occurs @"http://www.techquila.com/psi/events/#occurs"]
[on @"http://www.techquila.com/psi/events/#date-time-of-occurrence"]
[visiting-event @"http://www.techquila.com/psi/events/#visiting-event"]
[visitor  @"http://www.techquila.com/psi/events/#visitor"]
[visited  @"http://www.techquila.com/psi/events/#visited"]
[place @"http://www.techquila.com/psi/events/#location"]
[travelling-event @"http://www.techquila.com/psi/events/#travelling"]
[route-taken @"http://www.techquila.com/psi/events/#route"]
[journey @"http://www.techquila.com/psi/events/#journey"]
[from @"http://www.techquila.com/psi/events/#route-start"]
[to   @"http://www.techquila.com/psi/events/#route-end"]
[traveller @"http://www.techquila.com/psi/events/#traveller"]
[discussion @"http://www.techquila.com/psi/events/#discussion"]
[interlocutor @"http://www.techquila.com/psi/events/#interlocutor"]
[start-after  @"http://www.techquila.com/psi/events/#start-after"]
[start-before @"http://www.techquila.com/psi/events/#start-before"]
[end-after  @"http://www.techquila.com/psi/events/#end-after"]
[end-before @"http://www.techquila.com/psi/events/#end-before"]
[event-subject @"http://www.techquila.com/psi/events/#event-subject"]
[subject @"http://www.techquila.com/psi/events/#subject"]
[news-event   @"http://www.techquila.com/psi/events/#news"]
[recipient   @"http://www.techquila.com/psi/pepys/#recipient"]

/* Imports from people */
[samuel-pepys @"http://en.wikipedia.org/wiki/Samuel_Pepys"]
[robert-pepys @"http://www.pepysdiary.com/p/884.php"]
[lewis-phillips @"http://www.pepysdiary.com/p/2785.php"]
[john-pepys  @"http://www.pepysdiary.com/p/154.php"]
[tom-trice   @"http://www.pepysdiary.com/p/2784.php"]
[description   @"http://www.techquila.com/psi/general/#description"]

/* Imports from places */
[brampton = "Brampton" @"http://www.techquila.com/psi/pepys/places/#brampton"]
[london @"http://www.techquila.com/psi/pepys/places/#london"]

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


/* Today's date and diary entry */
[today : date = "Saturday 13th July 1661"; "16610713" / diary-entry
  @"http://www.techquila.com/psi/date-time/?gDateTime=1661-07-23"]
{today, diary-entry, "http://www.pepysdiary.com/archive/1661/07/13/index.php"}
[entry-start  @"http://www.techquila.com/psi/date-time/?gDateTime=1661-07-18"]

[event-16610713-0 : news-event
  = "Samuel receives news that Tom Trice has raised objections to Robert Pepys' will (between 8-13 July 1661)";"16610713-0"]
occurs(event-16610713-0 : event,
  entry-start : start-after,
  today : start-before,
  entry-start : end-after,
  today : end-before)
participation (event-16610713-0 : event,
  samuel-pepys : recipient )
event-subject (event-16610713-0 : event,
  robert-pepys-estate : subject,
  tom-trice : subject )
{event-16610713-0,description,[[We had news of Tom Trices putting in a caveat against us on behalf of his mother, to whom my Uncle hath not given anything, and for good reason therein expressed.]] } / samuel-pepys

[event-16610713-1 : travelling-event
  = "Lewis Phillips travels from London to Brampton (between 8-13 July 1661)"]
occurs(event-16610713-1 : event,
  entry-start : start-after,
  today : start-before,
  entry-start : end-after,
  today : end-before)
participation(event-16610713-1 : event, lewis-phillips : traveller)
route-taken( event-16610713-1 : event, london : from, brampton : to)

[event-16610713-2 : discussion
  = "Samuel and John Pepys discuss Robert Pepys' estate with Mr. Phillips (between 8-13 July 1661)"]
occurs( event-16610713-2 : event,
	event-16610713-1 : start-after,
	today : end-before )
participation( event-16610713-2 : event,
	john-pepys : interlocutor,
	samuel-pepys : interlocutor,
	lewis-phillips : interlocutor)
event-subject( event-16610713-2 : event,
  robert-pepys-estate : subject)