diff options
| -rw-r--r-- | ksh-forms-improved.el | 3 | ||||
| -rw-r--r-- | 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}"))) |