diff options
| author | Arun Isaac | 2022-10-01 01:42:05 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-10-01 01:42:05 +0530 |
| commit | 637a7aac6877461b90a1906688ea840381a17809 (patch) | |
| tree | a45da51c87abdaed78d8162c1dd7b09901e465fc | |
| parent | a44ee04169ef07861a4c2afa81d0c38caf32a383 (diff) | |
| download | ksh-reports-637a7aac6877461b90a1906688ea840381a17809.tar.gz ksh-reports-637a7aac6877461b90a1906688ea840381a17809.tar.lz ksh-reports-637a7aac6877461b90a1906688ea840381a17809.zip | |
Make biometry readings a standalone figure not part of a section.
* ksh-report.el (insert-biometry): Accept caption argument.
(make-report-header): Import latex caption package.
* ksh-scan2.el (form-to-org): Pass caption argument to
insert-biometry.
* ksh-scan3.el (form-to-org): Pass caption argument to
insert-biometry.
| -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) |