#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 from ontology */
[start-before     @"http://www.techquila.com/psi/events/#start-before"]
[event            @"http://www.techquila.com/psi/events/#event"]
[date             @"http://www.techquila.com/psi/temporal/#date"]
[diary-entry      @"http://www.techquila.com/psi/pepys/#diary-entry"]
[theft-event      @"http://www.techquila.com/psi/events/#theft"]
[place            @"http://www.techquila.com/psi/events/#location"]
[participant      @"http://www.techquila.com/psi/events/#participant"]
[discussion       @"http://www.techquila.com/psi/events/#discussion"]
[on               @"http://www.techquila.com/psi/events/#date-time-of-occurrence"]
[participation    @"http://www.techquila.com/psi/events/#participation"]
[interlocutor     @"http://www.techquila.com/psi/events/#interlocutor"]
[occurs           @"http://www.techquila.com/psi/events/#occurs"]
[event-subject    @"http://www.techquila.com/psi/events/#event-subject"]
[subject          @"http://www.techquila.com/psi/events/#subject"]
[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"]
[route-taken      @"http://www.techquila.com/psi/events/#route"]
[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"]
[boat             @"http://www.techquila.com/psi/events/#boat"]
[travelling-event @"http://www.techquila.com/psi/events/#travelling"]
[journey          @"http://www.techquila.com/psi/events/#journey"]
[meeting-event    @"http://www.techquila.com/psi/events/#meeting"]
[news-event   @"http://www.techquila.com/psi/events/#news"]
[recipient   @"http://www.techquila.com/psi/pepys/#recipient"]
[informant   @"http://www.techquila.com/psi/events/#informant"]
[working-event  @"http://www.techquila.com/psi/events/#working-event"]
[worker  @"http://www.techquila.com/psi/events/#worker"]
[description   @"http://www.techquila.com/psi/general/#description"]



/* Imports from people */
[samuel-pepys        @"http://en.wikipedia.org/wiki/Samuel_Pepys"]
[elizabeth-pepys     @"http://www.pepysdiary.com/p/150.php"]
[thomas-pepys-cousin @"http://www.pepysdiary.com/p/2541.php"]
[sir-george-lane     @"http://www.pepysdiary.com/p/2840.php"]
[lady-jemima-montagu @"http://www.pepysdiary.com/p/115.php"]


/* Imports from places */
[seething-lane-house   @"http://www.pepysdiary.com/p/1023.php"]
[whitehall-palace      @"http://www.pepysdiary.com/p/180.php"]
[the-wardrobe          @"http://www.pepysdiary.com/p/946.php"]
[navy-office           @"http://www.pepysdiary.com/p/483.php"]
[st-martins-lane-house @"http://www.techquila.com/psi/pepys/places/#st-martins-lane-house"]

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



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

/* The theft */
[event-16610724-01 : theft-event
  = "A theft of a silver tankard and a clock from the Pepys' house";"16610724-01"]
occurs(event-16610724-01 : event, today : start-before)
participation(event-16610724-01 : event, seething-lane-house : place)

/* Pepys' wife tells him of the theft */
[event-16610724-02 : news-event
  = "Elizabeth tells Samuel of a theft (24th July 1661)";"16610724-02"]
occurs(event-16610724-02 : event, today : on)
participation( event-16610724-02 : event,
  samuel-pepys : recipient,
  elizabeth-pepys : informant,
  seething-lane-house : place)
event-subject( event-16610724-02 : event, event-16610724-01 : subject)

/* My wife and I to Whitehall */
[event-16610724-03 : travelling-event
  = "Samuel and Elizabeth travel to Whitehall (24th July 1661)"; "16610724-03"]
participation( event-16610724-03 : event,
  samuel-pepys : traveller )
participation( event-16610724-03 : event,
  elizabeth-pepys : traveller )
occurs( event-16610724-03 : event,
  today : on)
route-taken( event-16610724-03 : journey,
  seething-lane-house : route-start,
  whitehall-palace : route-end)
method-of-travel( event-16610724-03 : journey,
  boat : method )

/* I to my cozen Thomas Pepys */
[event-16610724-04 : visiting-event
  = "Samuel visits his cousin Thomas Pepys (24th July 1661)"; "16610724-04"]
occurs(event-16610724-04 : event, today : on)
participation(event-16610724-04 : event,
  samuel-pepys : visitor,
  thomas-pepys-cousin : visited,
  st-martins-lane-house : place)

/* Discusses will */
[event-16610724-05 : discussion
  = "Samuel discusses his uncle's will with his cousin Thomas (24th July 1661)";"16610724-05"]
occurs(event-16610724-05 : event, today : on)
participation( event-16610724-05 : event,
  samuel-pepys : interlocutor,
  thomas-pepys-cousin : interlocutor )
event-subject( event-16610724-05 : event,
  robert-pepys-estate : subject )


/* Meets Sir G. Lane */
[event-16610724-06 : meeting-event
  = "Sir George Lane is encountered by Samuel and Thomas Pepys (24th July 1661)";"16610724-06"]
occurs(event-16610724-06 : event, today : on)
participation(event-16610724-06 : event,
  samuel-pepys : participant,
  thomas-pepys-cousin : participant,
  sir-george-lane : participant)

/* Discussion of the house */
[event-16610724-07 : discussion
  = "Samuel and Thomas discuss renting the house with Sir George Lane (24th July 1661)";"16610724-07"]
occurs(event-16610724-07 : event, today : on)
participation( event-16610724-07 : event,
  samuel-pepys : interlocutor,
  thomas-pepys-cousin : interlocutor,
  sir-george-lane : interlocutor )
event-subject( event-16610724-07 : event,
  st-martins-lane-house : subject )

/* To the Wardrobe */
[event-16610724-08 : travelling-event
  = "Samuel travels to the Wardrobe (24th July 1661)"; "16610724-08"]
participation( event-16610724-08 : event,
  samuel-pepys : traveller )
occurs( event-16610724-08 : event,
  today : on )
route-taken( event-16610724-08 : journey,
   st-martins-lane-house : route-start,
   the-wardrobe : route-end )

/* Visits Lady Jemima */
[event-16610724-09 : visiting-event
  = "Samuel visits Lady Jemima Montagu (24th July 1661)"; "16610724-09"]
occurs(event-16610724-09 : event, today : on)
participation(event-16610724-09 : event,
  samuel-pepys : visitor,
  lady-jemima-montagu : visited)
{lady-jemima-montagu,description,[[My Lady (...) doth show my wife and me the greatest favour in the world - in which I take great content.]]} / samuel-pepys event-16610724-09

/* Home by water */
[event-16610724-10 : travelling-event
  = "Samuel travels home (24th July 1661)"; "16610724-10"]
participation( event-16610724-10 : event,
  samuel-pepys : traveller )
occurs( event-16610724-10 : event,
  today : on )
route-taken( event-16610724-10 : journey,
  seething-lane-house : route-end )
method-of-travel( event-16610724-10 : journey,
  boat : method )

/* To the office */
[event-16610724-11 : working-event
  = "Samuel works at the Navy Office (24th July 1661)"; "16610724-11"]
participation( event-16610724-11 : event,
  samuel-pepys : worker )
occurs( event-16610724-11 : event,
  today : on )

/* Home again */
[event-16610724-12 : travelling-event
  = "Samuel travels home again (24th July 1661)"; "16610724-12"]
participation( event-16610724-12 : event,
  samuel-pepys : traveller )
occurs( event-16610724-12 : event,
  today : on )
route-taken( event-16610724-12 : journey,
  seething-lane-house : route-end,
  navy-office : route-start )

[event-16610724-13 : news-event
  = "Samuel hears that his servant has also lost property in the theft (24th July 1661)";"16610724-13"]
occurs(event-16610724-13 : event, today : on)
participation( event-16610724-13 : event,
  samuel-pepys : recipient,
  seething-lane-house : place)
event-subject( event-16610724-13 : event, event-16610724-01 : subject)