#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"]
[participation @"http://www.techquila.com/psi/events/#participation"]
[dining-event  @"http://www.techquila.com/psi/events/#dining-event"]
[guest  @"http://www.techquila.com/psi/events/#guest"]
[host   @"http://www.techquila.com/psi/events/#host"]
[diner  @"http://www.techquila.com/psi/events/#diner"]
[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"]
[description   @"http://www.techquila.com/psi/general/#description"]

[place = "Event Location"
  @"http://www.techquila.com/psi/events/#location"]

/* Imports from people */
[robert-barnwell @"http://www.pepysdiary.com/p/1091.php"]
[samuel-pepys  @"http://en.wikipedia.org/wiki/Samuel_Pepys"]
[john-pepys    @"http://www.pepysdiary.com/p/154.php"]
[elizabeth-pepys  @"http://www.pepysdiary.com/p/150.php"]


/* Imports from places */
[portholme @"http://www.techquila.com/psi/pepys/places/#portholme"]
[hinchingbroke @"http://www.pepysdiary.com/p/104.php"]
[pepys-farm    @"http://www.pepysdiary.com/p/1768.php"]

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

[event-16610714-1 : dining-event = "Robert Barnwell dines with Elizabeth and Samuel Pepys (14th July 1661)"; "16610714-1"]
occurs(event-16610714-1 : event, today : on)
participation( event-16610714-1 : event,
  samuel-pepys : diner,
  elizabeth-pepys : diner,
  robert-barnwell : guest,
  pepys-farm : place )

[event-16610714-2 : visiting-event = "John and Samuel Pepys walk around Portholme (14th July 1661)"; "16610714-2"]
occurs(event-16610714-2 : event, today : on)
participation( event-16610714-2 : event,
  samuel-pepys : visitor,
  john-pepys   : visitor,
  portholme    : place)

[event-16610714-3 : visiting-event = "John and Samuel Pepys visit Hinchingbroke (14th July 1661)";"16610714-3"]
occurs(event-16610714-3 : event, today : on)
participation( event-16610714-3 : event,
  samuel-pepys : visitor,
  john-pepys   : visitor,
  hinchingbroke : place)
{hinchingbroke,description,[[(It is) now all in dirt because of My Lord's building, which will make it very magnificent.]]} / samuel-pepys event-16610714-3