diff options
author | Arun Isaac | 2020-12-31 13:45:36 +0530 |
---|---|---|
committer | Arun Isaac | 2020-12-31 15:07:21 +0530 |
commit | 79da3ff61ffb5d3c825c37002115639ffdd0789f (patch) | |
tree | 571c89ed56c73266658b2af880649e5653d7acc8 /ksh-report.el | |
parent | c986de298d9ae631c5c70bc66aa4c327f38e6c88 (diff) | |
download | ksh-reports-79da3ff61ffb5d3c825c37002115639ffdd0789f.tar.gz ksh-reports-79da3ff61ffb5d3c825c37002115639ffdd0789f.tar.lz ksh-reports-79da3ff61ffb5d3c825c37002115639ffdd0789f.zip |
Combine biometry and report into single file.
* ksh-report-header.el, ksh-biometry.el: Combine into ksh-report.el.
* ksh-scan2.el, ksh-scan3.el: Require ksh-report instead of loading
ksh-report-header.el and ksh-biometry.el.
Diffstat (limited to 'ksh-report.el')
-rw-r--r-- | ksh-report.el | 71 |
1 files changed, 71 insertions, 0 deletions
diff --git a/ksh-report.el b/ksh-report.el new file mode 100644 index 0000000..4d6d4e8 --- /dev/null +++ b/ksh-report.el @@ -0,0 +1,71 @@ +(require 'seq) + +(defun draw-biometry (param-name param param-age percentile) + (let ((temp-script-file (make-temp-script + (format "%s %s" param-name param) + param-age (string-to-number percentile)))) + (message "Drawing %s..." temp-script-file) + (shell-command + (format "asy -f pdf -o %s %s" (file-name-directory temp-script-file) temp-script-file)) + (delete-file temp-script-file) + (format "%s.pdf" temp-script-file))) + +(defun make-temp-script (param param-age percentile) + (let ((temp-script-file (make-temp-file "biometry"))) + (with-temp-file temp-script-file + (insert "include \"biometry\";\n") + (insert (format + "draw_biometry(\"%s\", \"%s\", %d);" + param param-age percentile))) + temp-script-file)) + +(defun insert-biometry (readings) + (princ + (format "[[%s]]\n" + (crop-pdf + (combine-pdfs + (mapcar (lambda (reading) + (apply 'draw-biometry + (mapcar 'get-field reading))) readings)))))) + +(defun combine-pdfs (pdfs) + (let ((temp-combination (make-temp-file "pdfjam" nil ".pdf"))) + (apply 'call-process "pdfjam" nil nil nil + "--nup" "4x1" + "--outfile" temp-combination pdfs) + (mapc 'delete-file pdfs) + temp-combination)) + +(defun crop-pdf (pdf) + (message "Cropping %s..." pdf) + (let ((output-pdf (format "%s-crop.pdf" (file-name-sans-extension pdf)))) + (shell-command (format "pdfcrop %s %s" pdf output-pdf)) + (delete-file pdf) output-pdf)) + +(defun latex-use-package (package &optional arguments) + (if arguments + (format "\\usepackage[%s]{%s}" arguments package) + (format "\\usepackage{%s}" package))) + +(defun make-report-header (title) + (seq-do 'ksh-forms-org-keyword + '(("TITLE" . "Kuzhanthai Sanjeevi Hospital") + ("AUTHOR" . "Dr. Serene Isaac, MD, DGO, DNB"))) + (seq-do 'ksh-forms-org-latex-header + (list (latex-use-package "fullpage") + (latex-use-package "nopageno") + (latex-use-package "datetime" "ddmmyyyy") + "\\renewcommand{\\dateseparator}{-}" + "\\setlength{\\parindent}{0cm}" + (latex-use-package "titlesec" "tiny") + (latex-use-package "wasysym") + (latex-use-package "titling") + ,(format "\\pretitle{\\hrule \\begin{center} {\\Large \\textbf{%s}} \\par \\small \\sc}" title) + "\\posttitle{\\par 17, Jawahar Street, Ramavarmapuram, Nagercoil - 629001 \\par \\phone \\, 223374 \\end{center}}" + "\\preauthor{}" + "\\postauthor{\\par Obstetrician and Gynaecologist}" + "\\predate{\\hfill \\textbf{Date: }}" + "\\date{\\today}" + "\\postdate{\\vspace{1em} \\hrule \\par}"))) + +(provide 'ksh-report) |