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

/* Imports from ontology */
[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"]
[event @"http://www.techquila.com/psi/events/#event"]
[participation @"http://www.techquila.com/psi/events/#participation"]
[date @"http://www.techquila.com/psi/temporal/#date"]
[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"]
[start @"http://www.techquila.com/psi/events/#start"]
[end   @"http://www.techquila.com/psi/events/#end"]
[performance @"http://www.techquila.com/psi/events/#performance"]
[audience @"http://www.techquila.com/psi/events/#audience"]
[performer @"http://www.techquila.com/psi/events/#performer"]
[discussion-event @"http://www.techquila.com/psi/events/#discussion"]
[interlocutor @"http://www.techquila.com/psi/events/#interlocutor"]
[place @"http://www.techquila.com/psi/events/#location"]
[lesson @"http://www.techquila.com/psi/events/#lesson"]
[pupil @"http://www.techquila.com/psi/events/#pupil"]
[master @"http://www.techquila.com/psi/events/#master"]
[event-subject @"http://www.techquila.com/psi/events/#event-subject"]
[subject @"http://www.techquila.com/psi/events/#subject"]
[during  @"http://www.techquila.com/psi/events/relationships/#during"]
[item    @"http://www.techquila.com/psi/pepys/#item"]
[work @"http://psi.ontopia.net/literature/#work"]
[composed-by @"http://psi.ontopia.net/music/#composed-by"]
[composer @"http://psi.ontopia.net/music/#composer"]
[opera @"http://psi.ontopia.net/music/#opera"]
[performed-work   @"http://www.techquila.com/psi/art/#performed-work"]
[description   @"http://www.techquila.com/psi/general/#description"]
[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"]
[roger-pepys  @"http://www.pepysdiary.com/p/247.php"]
[john-pepys @"http://www.pepysdiary.com/p/154.php"]
[robert-pepys @"http://www.pepysdiary.com/p/884.php"]
[charles-ii @"http://www.pepysdiary.com/p/344.php"]
[elizabeth-stuart @"http://www.pepysdiary.com/p/833.php"]
[theodore-goodgroome @"http://www.pepysdiary.com/p/2746.php"]
[robert-pepys-illness   @"http://www.techquila.com/psi/pepys/people/#robert-pepys-illness"]
[sir-edward-montagu  @"http://www.pepysdiary.com/p/112.php"]


/* Imports from places */
[westminster-hall @"http://www.pepysdiary.com/p/128.php"]
[seething-lane-house @"http://www.pepysdiary.com/p/1023.php"]
[pepys-farm  @"http://www.pepysdiary.com/p/1768.php"]

/* Imports from culture */
[voice   @"http://www.techquila.com/psi/pepys/subjects/#voice"]
[the-seige-of-rhodes-part-ii  @"http://www.techquila.com/psi/culture/#the-seige-of-rhodes-part-ii"]  
[davenants-opera   @"http://www.techquila.com/psi/culture/#davenants-opera"]


/* Today's date and diary entry */
[today : date = "Tuesday 2nd July 1661"; "16610702" / diary-entry
  @"http://www.techquila.com/psi/date-time/?gDateTime=1661-07-12"]
{today, diary-entry, "http://www.pepysdiary.com/archive/1661/07/02/index.php"}

/* Yesterday */
[yesterday : date @"http://www.techquila.com/psi/date-time/?gDateTime=1661-07-11"]

/* Reported from yesterday*/
[event-16610701-r1 : correspondence-event
  = "Samuel receives a letter from his father concerning his uncle's illness (1st July 1661)";"16610701-r1"]
occurs( event-16610701-r1 : event,
  yesterday : on )
participation ( event-16610701-r1 : event,
  samuel-pepys : recipient,
  seething-lane-house : recipient-address,
  john-pepys : sender,
  pepys-farm : sender-address,
  letter-16610701 : letter )
event-subject ( event-16610701-r1 : event,
  robert-pepys-illness : subject )
[letter-16610701 : letter = "A letter from John Pepys to Samuel (received 1st July 1661)"]
{robert-pepys-illness, description, [[(Robert Pepys) is by fits stupid and like a man that is drunk, and sometimes speechless.]]} / john-pepys letter-16610701

/* Event 1 : Visit Westminster Hall */
[event-16610702-01:visiting-event 
  = "Samuel visits Westminster Hall (2nd July 1661)"; "16610702-01"]
occurs(event-16610702-01 : event, today : on)
participation( event-16610702-01 : event,
  samuel-pepys : visitor,
  westminster-hall : place)

/* Event 2: Roger Pepys enquires about Samuel's father and uncle */
[event-16610702-02:discussion-event 
  = "Samuel's discussion with his cousin (2nd July 1661)";"16610702-02"]
occurs(event-16610702-02 : event, event-16610702-01 : during)
participation( event-16610702-02 : event,
  samuel-pepys : interlocutor,
  roger-pepys  : interlocutor)
event-subject( event-16610702-02 : event,
  john-pepys   : subject,
  robert-pepys : subject)

[event-16610702-03 : lesson 
  = "Samuel's singing lesson (2nd July 1661)"; "16610702-03"]
occurs(event-16610702-03 : event, today : on)
participation( event-16610702-03 : event,
  samuel-pepys : pupil,
  theodore-goodgroome : master,
  seething-lane-house : place )
event-subject ( event-16610702-03 : event, voice : subject)

[event-16610702-04 : performance 
  = "Performance of 'The Siege Of Rhodes, Part 2' (2nd July 1661)";"16610702-04"]
occurs(event-16610702-04 : event, today : on)
participation( event-16610702-04 : event,
  davenants-opera : performer )
performed-work ( event-16610702-04 : performance,
  the-seige-of-rhodes-part-ii : work )
participation( event-16610702-04 : event,
  samuel-pepys : audience )
participation( event-16610702-04 : event,
  charles-ii : audience )
participation( event-16610702-04 : event,
  elizabeth-stuart : audience )
{event-16610702-04,description,[[(It) indeed is very fine and magnificent, and well acted, all but the Eunuch, who was so much out that he was hissed off the stage.]]} / samuel-pepys

[event-16610702-05 : correspondence-event
  = "Samuel writes to Montagu (2nd July 1661)";"16610702-05"]
occurs( event-16610702-05 : event,
  today : on )
participation ( event-16610702-05 : event,
  samuel-pepys : sender,
  seething-lane-house : sender-address,
  sir-edward-montagu : recipient,
  letter-16610702 : letter )
[letter-16610702 : letter = "A letter from Samuel Pepys to Sir Edward Montagu (written 2nd July 1661)"]