summary refs log tree commit diff
diff options
context:
space:
mode:
authorArun Isaac2022-10-01 01:42:05 +0530
committerArun Isaac2022-10-01 01:42:05 +0530
commit637a7aac6877461b90a1906688ea840381a17809 (patch)
treea45da51c87abdaed78d8162c1dd7b09901e465fc
parenta44ee04169ef07861a4c2afa81d0c38caf32a383 (diff)
downloadksh-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.el6
-rw-r--r--ksh-scan2.el2
-rw-r--r--ksh-scan3.el2
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)