#MERGEMAP "pepys-diary-ontology.ltm" "ltm"
#MERGEMAP "pepys-diary-people.ltm" "ltm"
#MERGEMAP "pepys-diary-places.ltm" "ltm"
#MERGEMAP "pepys-diary-artifacts.ltm" "ltm"
#MERGEMAP "pepys-diary-culture.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"]
[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"]
[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"]
[during               @"http://www.techquila.com/psi/events/relationships/#during"]
[written-by           @"http://psi.ontopia.net/literature/#written-by"]
[writer               @"http://psi.ontopia.net/literature/#writer"]
[performance          @"http://www.techquila.com/psi/events/#performance"]
[audience             @"http://www.techquila.com/psi/events/#audience"]
[performed-work       @"http://www.techquila.com/psi/art/#performed-work"]
[work                 @"http://psi.ontopia.net/literature/#work"]
[play                 @"http://psi.ontopia.net/literature/#play"]
[correspondence-event @"http://www.techquila.com/psi/pepys/#correspondence-event"]
[correspondence-item  @"http://www.techquila.com/psi/pepys/#correspondence-item"]
[letter               @"http://www.techquila.com/psi/pepys/#letter"]
[recipient            @"http://www.techquila.com/psi/pepys/#recipient"]
[sender               @"http://www.techquila.com/psi/pepys/#sender"]
[sender-address       @"http://www.techquila.com/psi/pepys/#sender-address"]
[recipient-address    @"http://www.techquila.com/psi/pepys/#recipient-address"]


/* Imports from people */
[samuel-pepys        @"http://en.wikipedia.org/wiki/Samuel_Pepys"]
[elizabeth-pepys     @"http://www.pepysdiary.com/p/150.php"]
[william-wight       @"http://www.pepysdiary.com/p/911.php"]
[john-pepys          @"http://www.pepysdiary.com/p/154.php"]
[margaret-pepys      @"http://www.pepysdiary.com/p/282.php"]
[edith-bell          @"http://www.pepysdiary.com/p/1104.php"]
[mrs-ramsey          @"http://www.pepysdiary.com/p/2841.php"]
[henry-moore         @"http://www.pepysdiary.com/p/340.php"]
[richard-brome       @"http://www.theatrehistory.com/british/brome001.html"]
[margaret-pepys      @"http://www.pepysdiary.com/p/282.php"]



/* Imports from places */
[royal-exchange      @"http://www.pepysdiary.com/p/189.php"]
[theatre-royal       @"http://www.pepysdiary.com/p/1611.php"]
[seething-lane-house @"http://www.pepysdiary.com/p/1023.php"]
[brampton            @"http://www.techquila.com/psi/pepys/places/#brampton"]


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

/* Imports from culture */
[the-jovial-crew  @"http://www.techquila.com/psi/culture/#the-jovial-crew"]

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

/* The box */
[event-16610725-01 : correspondence-event
  = "Samuel receives a box of his uncle's papers (25th July 1661)"; "16610725-01"]
occurs (event-16610725-01 : event,
  today : on)
participation( event-16610725-01 : event,
  samuel-pepys : recipient,
  brampton : sender-address,
  seething-lane-house : recipient-address,
  robert-pepys-papers : correspondence-item )


/* To the Exchange */
[event-16610725-02 : visiting-event
  = "Samuel visits the Royal Exchange (25th July 1661)"; "16610725-02"]
occurs( event-16610725-02 : event,
  today : on )
participation(event-16610725-02 : event,
  samuel-pepys : visitor,
  royal-exchange : place)

/* Meets William Wight */
[event-16610725-03 : meeting-event 
  = "Samuel meets his uncle William Wight at the Exchange (25th July 1661)";"16610725-03"]
occurs(event-16610725-03 : event,
  event-16610725-02 : during)
participation(event-16610725-03 : event,
  samuel-pepys : participant,
  william-wight : participant)

[event-16610725-04 : discussion 
  = "Samuel discusses Robert Pepys' estate and his father with William Wight (25th July 1661)";"16610725-04"]
occurs(event-16610725-04 : event,
  event-16610725-02 : during)
participation( event-16610725-04 : event,
  samuel-pepys : interlocutor,
  william-wight : interlocutor)
event-subject( event-16610725-04 : event, robert-pepys-estate : subject)
event-subject( event-16610725-04 : event, john-pepys : subject)


/* Then to my mother's */
[event-16610725-05 : visiting-event
  = "Samuel visits his mother (25th July 1661)";"16610725-05"]
occurs( event-16610725-05 : event, today : on )
participation(event-16610725-05 : event,
  samuel-pepys : visitor,
  margaret-pepys : visited )

[event-16610725-06 : meeting-event
  = "Samuel encounters his wife, aunt and Mrs Ramsey at his mother's (25th July 1661)";"16610725-06"]
occurs (event-16610725-06 : event, event-16610725-05 : during)
participation(event-16610725-06 : event,
  samuel-pepys : participant,
  elizabeth-pepys : participant,
  edith-bell : participant,
  mrs-ramsey : participant,
  margaret-pepys : participant )

/* The theatre */
[event-16610725-08 : performance = "A performance of 'The Jovial Crew' (25th July 1661)";"16610725-08"]
occurs (event-16610725-08 : event, today : on)
participation(event-16610725-08 : event,
  theatre-royal : place,
  the-jovial-crew : performed-work )
participation( event-16610725-08 : event, 
  samuel-pepys : audience,
  henry-moore : audience )

/* Home */
[event-16610725-09 : travelling-event
  = "Samuel travels home (25th July 1661)"; "16610725-09"]
participation( event-16610725-09 : event,
  samuel-pepys : traveller )
occurs( event-16610725-09 : event,
  today : on )
route-taken( event-16610725-09 : journey,
  theatre-royal : route-start,
  seething-lane-house : route-end )

/* Writes to his father */
[event-16610725-10 : correspondence-event
  = "Samuel writes to his father (25th July 1661)"; "16610725-10"]
[letter-16610725-10 : letter = "Letter from Samuel to his father (25th July 1661)"]
occurs (event-16610725-10 : event,
  today : on)
participation( event-16610725-10 : event,
  samuel-pepys : sender,
  seething-lane-house : sender-address,
  john-pepys : recipient,
  letter-16610725-10 : correspondence-item )