#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"]
[date-time  @"http://www.techquila.com/psi/temporal/#date-time"]
[event  @"http://www.techquila.com/psi/events/#event"]
[participant  @"http://www.techquila.com/psi/events/#participant"]
[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"]
[meeting-event  @"http://www.techquila.com/psi/events/#meeting"]
[purchasing-event  @"http://www.techquila.com/psi/events/#purchasing-event"]
[purchaser  @"http://www.techquila.com/psi/events/#purchaser"]
[purchased  @"http://www.techquila.com/psi/events/#purchased"]
[dining-event  @"http://www.techquila.com/psi/events/#dining-event"]
[diner  @"http://www.techquila.com/psi/events/#diner"]
[drinking @"http://www.techquila.com/psi/events/#drinking-event"]
[drinker  @"http://www.techquila.com/psi/events/#drinker"]
[participation  @"http://www.techquila.com/psi/events/#participation"]
[place  @"http://www.techquila.com/psi/events/#location"]
[purchase-price  @"http://www.techquila.com/psi/pepys/#purchase-price"]
[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"]
[method-of-travel  @"http://www.techquila.com/psi/events/#method-of-travel"]
[method  @"http://www.techquila.com/psi/events/#method"]
[horseback @"http://www.techquila.com/psi/events/#horseback"]
[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"]
[item  @"http://www.techquila.com/psi/pepys/#item"]

/* Imports from people */
[samuel-pepys  @"http://en.wikipedia.org/wiki/Samuel_Pepys"]
[mr-looker     @"http://www.pepysdiary.com/p/2839.php"]
[jemima-montagu @"http://www.pepysdiary.com/p/115.php"]
[thomas-fenner @"http://www.pepysdiary.com/p/749.php"]
[margaret-pepys @"http://www.pepysdiary.com/p/282.php"]

/* Imports from places */
[pepys-farm  @"http://www.pepysdiary.com/p/1768.php"]
[hatfield    @"http://www.pepysdiary.com/p/2837.php"]
[bigglesworth @"http://www.techquila.com/psi/pepys/places/#bigglesworth"]
[hatfield-vineyard @"http://www.techquila.com/psi/pepys/places/#hatfield-house-vineyard"]
[smithfield @"http://www.pepysdiary.com/p/2595.php"]
[seething-lane @"http://www.pepysdiary.com/p/1023.php"]
[salisbury-arms @"http://www.techquila.com/psi/pepys/places/#salisbury-arms"]

/* Today's date and diary entry */
[today : date = "Monday 22nd July 1661";"16610722" / diary-entry
  @"http://www.techquila.com/psi/date-time/?gDateTime=1661-08-01"]
{today, diary-entry, "http://www.pepysdiary.com/archive/1661/07/22/index.php"}

[event-16610722-1 : travelling-event
  = "Samuel travels from Brampton to Hatfield (22nd July 1661)"; "16610722-1"]
[today-3am : date-time = "3am, Monday 22nd July 1661";"16610722 03:00:00"
  @"http://www.techquila.com/psi/date-time/?gDateTime=1661-07-02T03:00:00Z"]
[today-4am : date-time = "4am, Monday 22nd July 1661";"16610722 04:00:00"
  @"http://www.techquila.com/psi/date-time/?gDateTime=1661-07-02T03:00:00Z"]
[today-midday : date-time = "Midday, Monday 22nd July 1661";"16610722 12:00:00"
  @"http://www.techquila.com/psi/date-time/?gDateTime=1661-07-02T12:00:00Z"]
participation( event-16610722-1 : event,
  samuel-pepys : traveller )
occurs( event-16610722-1 : event,
  today-3am : start-after,
  today-4am : start-before,
  today-midday : end-before )
route-taken( event-16610722-1 : journey,
  pepys-farm : route-start,
  salisbury-arms : route-end)
method-of-travel( event-16610722-1 : journey,
  horseback : method )

[event-16610722-2 : purchasing-event
  = "Samuel buys a pair of wool stockings (22nd July 1661)";"16610722-2"]
occurs( event-16610722-2 : event,
  event-16610722-1 : during )
participation( event-16610722-2 : event,
  samuel-pepys : purchaser,
  woollen-stockings : purchased,
  bigglesworth : place )
[woollen-stockings : item = "Woollen stockings"]

[event-16610722-3 : dining-event
  = "Samuel dines at the Salisbury Arms (22nd July 1661)";"16610722-3"]
occurs(event-16610722-3 : event,
  today : on,
  event-16610722-1 : start-after )
participation( event-16610722-3 : event,
  samuel-pepys : diner,
  salisbury-arms : place )

[event-16610722-4 : meeting-event =
  "Samuel meets Mr. Looker at the vineyard at Hatfield House (22nd July 1661)"]
occurs(event-16610722-4 : event,
  today : on )
participation( event-16610722-4 : event,
  samuel-pepys : participant,
  mr-looker : participant,
  hatfield-vineyard : place )

[event-16610722-5 : drinking =
  "Samuel drinks with Mr. Looker at the Salisbury Arms (22nd July 1661)";
  "16610722-5"]
occurs(event-16610722-5 : event,
  today : on)
participation( event-16610722-5 : event,
  samuel-pepys : drinker,
  mr-looker : drinker,
  salisbury-arms : place )

[event-16610722-6 : travelling-event = 
  "Samuel and Mr. Looker travel to London (22nd July 1661)";
  "16610722-6"]
occurs(event-16610722-6 : event, today : on)
participation( event-16610722-6 : event, 
  samuel-pepys : traveller,
  mr-looker : traveller )
route-taken( event-16610722-6 : event,
  salisbury-arms : route-start,
  smithfield : route-end )
method-of-travel( event-16610722-6 : journey,
  horseback : method )

[event-16610722-7 : visiting-event = 
  "Samuel visits Thomas Fenner (22nd July 1661)";"16610722-7"]
occurs(event-16610722-7 : event, today : on)
participation( event-16610722-7 : event,
  samuel-pepys : visitor,
  thomas-fenner : visited )

[event-16610722-8 : visiting-event = 
  "Samuel visits his mother (22nd July 1661)";"16610722-8"]
occurs(event-16610722-8 : event, today : on)
participation( event-16610722-8 : event,
  samuel-pepys : visitor,
  margaret-pepys : visited )

[event-16610722-9 : visiting-event = 
  "Samuel visits Jemima Montagu (22nd July 1661)";"16610722-9"]
occurs(event-16610722-9 : event, today : on)
participation( event-16610722-9 : event,
  samuel-pepys : visitor,
  jemima-montagu : visited )

[event-16610722-A : travelling-event = 
  "Samuel returns home (22nd July 1661)";"16610722-A"]
occurs(event-16610722-A : event, today : on)
participation( event-16610722-A : event,
  samuel-pepys : traveller )
route-taken( event-16610722-A : event,
  seething-lane : route-end )