Browse Source

Did some stuff for ahnentafels

Samuel W. Flint 8 years ago
parent
commit
0df9fca13e
1 changed files with 11 additions and 1 deletions
  1. 11 1
      cl-genealogy.org

+ 11 - 1
cl-genealogy.org

@@ -354,7 +354,7 @@ As LambdaLite is schemaless, the following attributes can be mixed in to other t
 :END:
 
 #+Caption: Ahnentafel Numbering
-#+Name: ahnentafel-numbers
+#+Name: ahnentafel-numbering
 #+BEGIN_SRC lisp
   (defun generate-ahnentafel-numbers (starting-person number-of-generations)
     (let ((ahnentafel-list (cons (cons 1 starting-person) nil)))
@@ -510,6 +510,16 @@ As LambdaLite is schemaless, the following attributes can be mixed in to other t
 :CREATED:  <2016-01-06 Wed 14:14>
 :END:
 
+#+Caption: Put together Ahnentafel
+#+Name: ahnentafel-final
+#+BEGIN_SRC lisp :tangle "ahnentafel.lisp"
+  (in-package #:cl-genealogy)
+
+  <<ahnentafel-numbering>>
+  <<format-ahnentafel-record>>
+  <<output-ahnentafel>>
+#+END_SRC
+
 ** TODO Gedcom Parsing
 :PROPERTIES:
 :CREATED:  <2016-01-06 Wed 14:14>