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

/* Imports from the 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"]
[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"]
[purchase-price @"http://www.techquila.com/psi/pepys/#purchase-price"]
[dining-event @"http://www.techquila.com/psi/events/#dining-event"]
[host @"http://www.techquila.com/psi/events/#host"]
[guest @"http://www.techquila.com/psi/events/#guest"]
[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"]
[working-event @"http://www.techquila.com/psi/events/#working-event"]
[worker @"http://www.techquila.com/psi/events/#worker"]

/* Imports from culture */
[voice   @"http://www.techquila.com/psi/pepys/subjects/#voice"]

/* Imports from places */
[london  @"http://www.techquila.com/psi/pepys/places/#london"]
[seething-lane-house   @"http://www.pepysdiary.com/p/1023.php"]
[navy-office  @"http://www.pepysdiary.com/p/483.php"]


/* Imports from people */
[samuel-pepys @"http://en.wikipedia.org/wiki/Samuel_Pepys"]
[theodore-goodgroome = "Theodore Goodgroome"
  @"http://www.pepysdiary.com/p/2746.php"]

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

/* Event #1 : Samuel visits the city */
[event-16610701-01 : visiting-event 
  = "Samuel visits the city to purchase items for the house. (1st July 1661)";
    "16610701-01"]
occurs(event-16610701-01 : event, today : on)
participation(event-16610701-01 : event,
  samuel-pepys : visitor,
  london : place)

/* Event 2: Purchase of a chest of drawers */
[event-16610701-02 : purchasing-event = "Samuel buys a chest of drawers (1st July 1661)"; "16610701-02"]
occurs(event-16610701-02 : event, event-16610701-01 : during)
participation(event-16610701-02 : event, samuel-pepys : purchaser, chest-of-drawers : purchased)
[chest-of-drawers : item = "A 'fair chest of drawers'"]
{chest-of-drawers, purchase-price, [[ 33s. ]]}

/* Event 3: Purchase of an gown */
[event-16610701-03 : purchasing-event = "Samuel buys an indian gown (1st July 1661)"; "16610701-03"]
occurs(event-16610701-03 : event, event-16610701-01 : during)
participation(event-16610701-03 : event, samuel-pepys : purchaser, indian-gown : purchased)
[indian-gown : item = "An Indian gown"]
{indian-gown, purchase-price, [[ 32s. ]]}

/* Event 4: Dining with Theodore Goodgroome */
[event-16610701-04 : dining-event = "Samuel dines with Theodore Goodgroome (1st July 1661)"; "16610701-04"]
occurs( event-16610701-04 : event, today : on)
participation( event-16610701-04 : event,
  samuel-pepys : host,
  theodore-goodgroome : guest,
  seething-lane-house:place)

/* Event 5 : Singing lesson with Theodore Goodgroome */
[event-16610701-05 : lesson 
  = "Samuel takes a singing lesson. (1st July 1661)"; "16610701-05"]
occurs( event-16610701-05 : event, today : on)
participation( event-16610701-05 : event,
  samuel-pepys : pupil,
  theodore-goodgroome : master,
  seething-lane-house : place)
event-subject(event-16610701-05 : event, voice : subject)

/* Event 6 : Samuel works at the office */
[event-16610701-06 : working-event = "Samuel works at the Navy Office (1st July 1661)";"16610701-06"]
occurs(event-16610701-06 : event,
  today : on)
participation(event-16610701-06 : event,
  samuel-pepys : worker,
  navy-office : place )