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

/* Imports from ontology */
[date  @"http://www.techquila.com/psi/temporal/#date"]
[event  @"http://www.techquila.com/psi/events/#event"]
[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"]
[during  @"http://www.techquila.com/psi/events/relationships/#during"]
[start  @"http://www.techquila.com/psi/events/#start"]
[start-after  @"http://www.techquila.com/psi/events/#start-after"]
[start-before  @"http://www.techquila.com/psi/events/#start-before"]
[end  @"http://www.techquila.com/psi/events/#end"]
[end-after  @"http://www.techquila.com/psi/events/#end-after"]
[end-before  @"http://www.techquila.com/psi/events/#end-before"]
[participation  @"http://www.techquila.com/psi/events/#participation"]
[office-holding-event  @"http://www.techquila.com/psi/events/#office-holding"]
[office-holder  @"http://www.techquila.com/psi/events/#office-holder"]
[office-held  @"http://www.techquila.com/psi/events/#office-held"]
[office  @"http://www.techquila.com/psi/organisation/#office"]
[office-conferer @"http://www.techquila.com/psi/organisation/#office-conferer"]
[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"]
[route-start  @"http://www.techquila.com/psi/events/#route-start"]
[route-end  @"http://www.techquila.com/psi/events/#route-end"]
[traveller  @"http://www.techquila.com/psi/events/#traveller"]

/* Imports from people */
[samuel-pepys  @"http://en.wikipedia.org/wiki/Samuel_Pepys"]
[john-pepys  @"http://www.pepysdiary.com/p/154.php"]
[sir-robert-bernard  @"http://www.pepysdiary.com/p/555.php"]
[will-stankes @"http://www.pepysdiary.com/p/2809.php"]

/* Imports from places */
[pepys-farm  @"http://www.pepysdiary.com/p/1768.php"]
[sturtlow  @"http://www.pepysdiary.com/p/2822.php"]
[offord  @"http://www.pepysdiary.com/p/2811.php"]
[brampton  @"http://www.techquila.com/psi/pepys/places/#brampton"]
[huntingdon @"http://www.pepysdiary.com/p/1670.php"]

/* Today's date and diary entry */
[today : date = "Friday 19th July 1661"; "16610719" / diary-entry
  @"http://www.techquila.com/psi/date-time/?gDateTime=1661-07-29"]
{today, diary-entry, "http://www.pepysdiary.com/archive/1661/07/19/index.php"}
[entry-start : date = "Tuesday 16th July 1661"; "16610716" / diary-entry
  @"http://www.techquila.com/psi/date-time/?gDateTime=1661-07-26"]

[event-16610719-1 : office-holding-event = "Mr. Stankes, bailie for John and Samuel Pepys"; "16610719-1"]
[bailie-for-the-pepys : office = "Bailie at Brampton for John and Samuel Pepys"]
occurs( event-16610719-1 : event,
   entry-start : start-after,
   today : start-before )
participation( event-16610719-1 : event,
  will-stankes : office-holder,
  bailie-for-the-pepys : office-held,
  samuel-pepys : office-conferer,
  john-pepys   : office-conferer )

[event-16610719-2 : travelling-event = "John and Samuel Pepys travel from Brampton to Offord";"16610719-2"]
occurs( event-16610719-2 : event,
  entry-start : start-after,
  today : start-before,
  entry-start : end-after,
  today : end-before )
participation( event-16610719-2 : event,
  samuel-pepys : traveller,
  john-pepys : traveller )
route-taken( event-16610719-2 : journey,
  pepys-farm : route-start,
  offord : route-end )

[event-16610719-3 : travelling-event = "John and Samuel Pepys travel from Brampton to Sturtlow";"16610719-3"]
occurs( event-16610719-3 : event,
  entry-start : start-after,
  today : start-before,
  entry-start : end-after,
  today : end-before )
participation( event-16610719-3 : event,
  samuel-pepys : traveller,
  john-pepys : traveller )
route-taken( event-16610719-3 : journey,
  pepys-farm : route-start,
  sturtlow : route-end )

[event-16610719-4 : travelling-event = "Sir Robert Bernard travels to Brampton"; "16610719-4"]
occurs( event-16610719-4 : event,
   today : end-before)
participation( event-16610719-4 : event,
  sir-robert-bernard : traveller )
route-taken( event-16610719-4 : journey,
  huntingdon : route-end )