From bcd0f5d31a549df5f670c0ca91cb6c61f19e57b3 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 31 Dec 2020 13:07:28 +0530
Subject: Deprecate plural functions.

* ksh-report-header.el (make-report-header): Use
ksh-forms-org-keyword, ksh-forms-org-latex-header.
* ksh-forms-improved.el (org-keywords, org-latex-headers): Delete
functions.
---
 ksh-forms-improved.el |  3 ---
 ksh-report-header.el  | 38 +++++++++++++++++++-------------------
 2 files changed, 19 insertions(+), 22 deletions(-)

diff --git a/ksh-forms-improved.el b/ksh-forms-improved.el
index e46af85..31c5dfd 100644
--- a/ksh-forms-improved.el
+++ b/ksh-forms-improved.el
@@ -75,9 +75,6 @@
 (defun ksh-forms-org-latex-header (header)
   (ksh-forms-org-keyword (cons "LATEX_HEADER" header)))
 
-(setfun org-keywords (mapped 'mapc 'ksh-forms-org-keyword))
-(setfun org-latex-headers (mapped 'mapc 'ksh-forms-org-latex-header))
-
 (defun forms-print ()
   (interactive)
   (find-file (org-to-pdf (funcall form-to-org))))
diff --git a/ksh-report-header.el b/ksh-report-header.el
index 1177662..0fc912a 100644
--- a/ksh-report-header.el
+++ b/ksh-report-header.el
@@ -4,22 +4,22 @@
     (format "\\usepackage{%s}" package)))
 
 (defun make-report-header (title)
-  (org-keywords
-   '(("TITLE" . "Kuzhanthai Sanjeevi Hospital")
-     ("AUTHOR" . "Dr. Serene Isaac, MD, DGO, DNB")))
-  (org-latex-headers
-   (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}")))
+  (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}")))
-- 
cgit v1.2.3