Browse Source

Added marriage record tracking

Samuel W. Flint 8 years ago
parent
commit
cdb3054d25
1 changed files with 21 additions and 2 deletions
  1. 21 2
      cl-genealogy.org

+ 21 - 2
cl-genealogy.org

@@ -26,7 +26,7 @@
 #+TOC: headlines 3
 #+TOC: listings
 
-* WORKING Data Storage [4/8]
+* WORKING Data Storage [5/8]
 :PROPERTIES:
 :CREATED:  <2016-01-06 Wed 13:14>
 :END:
@@ -163,11 +163,30 @@ Furthermore, to be as complete as possible, you need to be able to store and que
     :/death-location #'stringp)
 #+END_SRC
 
-** TODO Marriages
+** DONE Marriages
 :PROPERTIES:
 :CREATED:  <2016-01-06 Wed 13:17>
 :END:
 
+Further, to be able to keep track of relationships (and thus families), you need to be able to track marriages.  This entails keeping track of the following information:
+
+ - Marriage ID :: ID used to track the marriage within this system.
+ - Husband :: ID of the husband in the marriage.
+ - Wife :: ID of the wife in the marriage.
+ - Wedding Date :: Date the marriage was considered to have started.
+ - End Date :: Date the marriage ended (Divorce, death, annulment).
+
+#+Caption: Marriage Table
+#+Name: marriage-table
+#+BEGIN_SRC lisp
+  (defattributes
+    :/marriage-id (unique-in-column :marriages :/marriage-id integer)
+    :/husband (in-table-column :people :/person-id)
+    :/wife (in-table-column :people :/person-id)
+    :/wedding-date #'stringp
+    :/end-date #'stringp)
+#+END_SRC
+
 ** TODO Divorces
 :PROPERTIES:
 :CREATED:  <2016-01-06 Wed 13:17>