diff options
| -rw-r--r-- | ksh-report.el | 6 | ||||
| -rw-r--r-- | ksh-scan2.el | 2 | ||||
| -rw-r--r-- | ksh-scan3.el | 2 |
3 files changed, 6 insertions, 4 deletions
diff --git a/ksh-report.el b/ksh-report.el index 1fc23b5..0cd2815 100644 --- a/ksh-report.el +++ b/ksh-report.el @@ -38,10 +38,11 @@ } " percentile param-name param param-age)) -(defun insert-biometry (readings) +(defun insert-biometry (caption readings) (princ "#+BEGIN_EXPORT latex\n") (princ "\\begin{figure}\n") (princ "\\centering\n") + (princ (format "\\caption*{%s}" caption)) (seq-do (lambda (reading) (princ (apply 'biometry-subfloat (seq-map 'get-field reading)))) @@ -62,7 +63,8 @@ '(("TITLE" . "Kuzhanthai Sanjeevi Hospital") ("AUTHOR" . "Dr. Serene Isaac, MD, DGO, DNB"))) (seq-do 'ksh-forms-org-latex-header - (list (latex-use-package "fullpage") + (list (latex-use-package "caption") + (latex-use-package "fullpage") (latex-use-package "nopageno") (latex-use-package "datetime" "ddmmyyyy") (latex-use-package "subfig") diff --git a/ksh-scan2.el b/ksh-scan2.el index 6a5dc74..cdfe74b 100644 --- a/ksh-scan2.el +++ b/ksh-scan2.el @@ -138,8 +138,8 @@ ("Umbilical cord" . ,survey-umbilical-cord) ("Fetal activity" . ,survey-fetal-activity) ("Cardiac activity" . ,survey-cardiac-activity))) - (princ "* Fetal Biometry\n") (insert-biometry + "Fetal Biometry" `(("BPD" ,biometry-bpd ,biometry-bpd-age ,biometry-bpd-percentile) ("HC" ,biometry-hc ,biometry-hc-age ,biometry-hc-percentile) ("AC" ,biometry-ac ,biometry-ac-age ,biometry-ac-percentile) diff --git a/ksh-scan3.el b/ksh-scan3.el index e607a2d..71506e8 100644 --- a/ksh-scan3.el +++ b/ksh-scan3.el @@ -107,8 +107,8 @@ ("Fetal activity" . ,survey-fetal-activity) ("Cardiac activity" . ,survey-cardiac-activity) ("Fetal heart rate" . ,survey-fetal-heart-rate))) - (princ "* Fetal Biometry\n") (insert-biometry + "Fetal Biometry" `(("BPD" ,biometry-bpd ,biometry-bpd-age ,biometry-bpd-percentile) ("HC" ,biometry-hc ,biometry-hc-age ,biometry-hc-percentile) ("AC" ,biometry-ac ,biometry-ac-age ,biometry-ac-percentile) |