Home Explore Help
Sign In
swf-projects
/
cl-genealogy
2
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Browse Source

Started with some dummy data

Samuel W. Flint 10 years ago
parent
0e4731cd6c
commit
41f9a14d73
2 changed files with 10 additions and 5 deletions
Split View Show Diff Stats
  1. 6 1
      routes.lisp
  2. 4 4
      view-person.httmpl

+ 6 - 1
routes.lisp
View File 

@@ -95,7 +95,12 @@
 
                 (:dt (:a :href (str (genurl 'view/divorce)) "View Divorce"))
 
                 (:dd "Select and view divorce record.")))))
 
 (define-route view/person ("view/person")
 
-  (person-page :nav (generate-nav :main)))
 
+  (person-page :nav (generate-nav :main)
 
+               :name "John Smith"
 
+               :birth-date "2 September 1965"
 
+               :death-date "Current"
 
+               :father "Fred Smith"
 
+               :mother "Jane Doe"))
 
 (define-route view/birth ("view/birth"))
 
 (define-route view/marriage ("view/marriage"))
 
 (define-route view/death ("view/death"))

+ 4 - 4
view-person.httmpl
View File 

@@ -1,6 +1,6 @@
 
 <html>
 
     <head>
 
-        <title><!-- TMPL_VAR name --></title>
 
+        <title>Viewing <!-- TMPL_VAR name --></title>
 
         <link rel='StyleSheet' href='/main.css' />
 
         <script src='/main.js'></script>
 
     </head>
 
@@ -38,12 +38,12 @@
 
         </div>
 
         <div class='main-content'>
 
             <h1><!-- TMPL_VAR name --></h1>
 
-            <h3><!-- TMPL_VAR birth-date --> &mdash; <!-- death-date --></h3>
 
+            <h3><!-- TMPL_VAR birth-date --> &mdash; <!-- TMPL_VAR death-date --></h3>
 
             <br />
 
             <h3>Parents:</h3>
 
             <ul>
 
-                <li>Father: <!-- TMPL_VAR father --></li>
 
-                <li>Mother: <!-- TMPL_VAR mother --></li>
 
+                <li><b>Father:</b> <!-- TMPL_VAR father --></li>
 
+                <li><b>Mother:</b> <!-- TMPL_VAR mother --></li>
 
             </ul>
 
             <br />
 
             <h3>Marriage Records:</h3>