From ba605e77d9e3c2e66ed787c97a08dc6ec184772f Mon Sep 17 00:00:00 2001
From: Jambunathan K <kjambunathan@gmail.com>
Date: Thu, 15 Dec 2011 12:15:19 +0530
Subject: [PATCH] org-odt.el: Include author and date in the title

* lisp/org-odt.el (org-export-odt-default-org-styles-alist):
Add styles for title and subtitle.
(org-odt-format-toc): New.
(org-odt-format-preamble): New.  Users can redefine this to
customize what goes before the document body.  Currently it
outputs title, author and email, date and toc.
(org-odt-begin-document-body): Use `org-odt-format-preamble'.
(org-odt-format-date): Renamed from
`org-odt-iso-date-from-org-timestamp'.  Also added an
additional param for format string.
(org-odt-begin-annotation, org-odt-update-meta-file): Use
`org-odt-format-date'.

* etc/styles/OrgOdtStyles.xml (Title, OrgTitle, Subtitle)
(OrgSubtitle): New styles for formatting title.
---
 etc/styles/OrgOdtStyles.xml | 18 +++++++++-
 lisp/org-odt.el             | 81 ++++++++++++++++++++++++++++++++++++---------
 2 files changed, 83 insertions(+), 16 deletions(-)
 mode change 100644 => 100755 lisp/org-odt.el

diff --git a/etc/styles/OrgOdtStyles.xml b/etc/styles/OrgOdtStyles.xml
index 5ec868ac8..410b354ac 100644
--- a/etc/styles/OrgOdtStyles.xml
+++ b/etc/styles/OrgOdtStyles.xml
@@ -135,6 +135,22 @@
   <style:style style:name="Heading_20_1.title" style:display-name="Heading 1.title" style:family="paragraph" style:parent-style-name="Heading_20_1">
    <style:paragraph-properties fo:text-align="center" style:justify-single-word="false"/>
   </style:style>
+  <style:style style:name="Title" style:family="paragraph" style:parent-style-name="Heading" style:next-style-name="Subtitle" style:class="chapter">
+   <style:paragraph-properties fo:text-align="center" style:justify-single-word="false"/>
+   <style:text-properties fo:font-size="18pt" fo:font-weight="bold" style:font-size-asian="18pt" style:font-weight-asian="bold" style:font-size-complex="18pt" style:font-weight-complex="bold"/>
+  </style:style>
+  <style:style style:name="OrgTitle" style:family="paragraph" style:parent-style-name="Title">
+   <style:paragraph-properties fo:margin-top="0cm" fo:margin-bottom="0cm"/>
+   <style:text-properties fo:font-size="24pt"/>
+  </style:style>
+  <style:style style:name="Subtitle" style:family="paragraph" style:parent-style-name="Heading" style:next-style-name="Text_20_body" style:class="chapter">
+   <style:paragraph-properties fo:text-align="center" style:justify-single-word="false"/>
+   <style:text-properties fo:font-size="14pt" fo:font-style="italic" style:font-size-asian="14pt" style:font-style-asian="italic" style:font-size-complex="14pt" style:font-style-complex="italic"/>
+  </style:style>
+  <style:style style:name="OrgSubtitle" style:family="paragraph" style:parent-style-name="Subtitle">
+   <style:paragraph-properties fo:margin-top="0cm" fo:margin-bottom="0cm"/>
+   <style:text-properties fo:font-size="20pt"/>
+  </style:style>
   <style:style style:name="Text_20_body_20_indent" style:display-name="Text body indent" style:family="paragraph" style:parent-style-name="Text_20_body" style:class="text">
    <style:paragraph-properties fo:margin-left="0.499cm" fo:margin-right="0cm" fo:text-indent="0cm" style:auto-text-indent="false"/>
   </style:style>
@@ -277,7 +293,7 @@
   <style:style style:name="OrgTableHeadingCenter" style:family="paragraph" style:parent-style-name="OrgTableHeading">
     <style:paragraph-properties fo:text-align="center" style:justify-single-word="false"/>
   </style:style>
-  
+
   <style:style style:name="OrgTableContentsLeft" style:family="paragraph" style:parent-style-name="OrgTableContents">
     <style:paragraph-properties fo:text-align="left" style:justify-single-word="false"/>
   </style:style>
diff --git a/lisp/org-odt.el b/lisp/org-odt.el
old mode 100644
new mode 100755
index 2a1882cfe..d5be1e16a
--- a/lisp/org-odt.el
+++ b/lisp/org-odt.el
@@ -286,7 +286,8 @@ This variable is effective only if
 		  (center . "OrgCenter")
 		  (left . "OrgLeft")
 		  (right . "OrgRight")
-		  (title . "Heading_20_1.title")
+		  (title . "OrgTitle")
+		  (subtitle . "OrgSubtitle")
 		  (footnote . "Footnote")
 		  (src . "OrgSrcBlock")
 		  (illustration . "Illustration")
@@ -485,16 +486,64 @@ PUB-DIR is set, use this as the publishing directory."
 ;; Following variable is let bound when `org-do-lparse' is in
 ;; progress. See org-html.el.
 (defvar org-lparse-toc)
+(defun org-odt-format-toc ()
+  (if (not org-lparse-toc) "" (concat  "\n" org-lparse-toc "\n")))
+
+(defun org-odt-format-preamble (opt-plist)
+  (let* ((title (plist-get opt-plist :title))
+	 (author (plist-get opt-plist :author))
+	 (date (plist-get opt-plist :date))
+	 (iso-date (org-odt-format-date date))
+	 (date (org-odt-format-date date "%d %b %Y"))
+	 (email (plist-get opt-plist :email)))
+    (concat
+     ;; title
+     (when title
+       (concat
+	(org-odt-format-stylized-paragraph
+	 'title (org-odt-format-tags
+		 '("<text:title>" . "</text:title>") title))
+	;; separator
+	"<text:p text:style-name=\"OrgTitle\"/>"))
+
+     (cond
+      ((and author (not email))
+       ;; author only
+       (concat
+	(org-odt-format-stylized-paragraph
+	 'subtitle
+	 (org-odt-format-tags
+	  '("<text:initial-creator>" . "</text:initial-creator>")
+	  author))
+	;; separator
+	"<text:p text:style-name=\"OrgSubtitle\"/>"))
+      ((and author email)
+       ;; author and email
+       (concat
+	(org-odt-format-stylized-paragraph
+	 'subtitle
+	 (org-odt-format-link
+	  (org-odt-format-tags
+	   '("<text:initial-creator>" . "</text:initial-creator>")
+	   author) (concat "mailto:" email)))
+	;; separator
+	"<text:p text:style-name=\"OrgSubtitle\"/>")))
+     ;; date
+     (when date
+       (concat
+	(org-odt-format-stylized-paragraph
+	 'subtitle
+	 (org-odt-format-tags
+	  '("<text:date style:data-style-name=\"%s\" text:date-value=\"%s\">"
+	    . "</text:date>") date "N75" iso-date))
+	;; separator
+	"<text:p text:style-name=\"OrgSubtitle\"/>"))
+     ;; toc
+     (org-odt-format-toc))))
+
 (defun org-odt-begin-document-body (opt-plist)
   (org-odt-begin-office-body)
-  (let ((title (plist-get opt-plist :title)))
-    (when title
-      (insert
-       (org-odt-format-stylized-paragraph 'title title))))
-
-  ;; insert toc
-  (when org-lparse-toc
-    (insert "\n" org-lparse-toc "\n")))
+  (insert (org-odt-format-preamble opt-plist)))
 
 (defvar org-lparse-body-only)		; let bound during org-do-lparse
 (defvar org-lparse-to-buffer)		; let bound during org-do-lparse
@@ -553,7 +602,7 @@ PUB-DIR is set, use this as the publishing directory."
   (when (setq author (or author (plist-get org-lparse-opt-plist :author)))
     (org-odt-format-tags '("<dc:creator>" . "</dc:creator>") author)))
 
-(defun org-odt-iso-date-from-org-timestamp (&optional org-ts)
+(defun org-odt-format-date (&optional org-ts fmt)
   (save-match-data
     (let* ((time
 	    (and (stringp org-ts)
@@ -561,8 +610,11 @@ PUB-DIR is set, use this as the publishing directory."
 		 (apply 'encode-time
 			(org-fix-decoded-time
 			 (org-parse-time-string (match-string 0 org-ts) t)))))
-	   (date (format-time-string "%Y-%m-%dT%H:%M:%S%z" time)))
-      (format "%s:%s" (substring date 0 -2) (substring date -2)))))
+	   date)
+      (cond
+       (fmt (format-time-string fmt time))
+       (t (setq date (format-time-string "%Y-%m-%dT%H:%M:%S%z" time))
+	  (format "%s:%s" (substring date 0 -2) (substring date -2)))))))
 
 (defun org-odt-begin-annotation (&optional author date)
   (org-lparse-insert-tag "<office:annotation>")
@@ -570,7 +622,7 @@ PUB-DIR is set, use this as the publishing directory."
     (insert author))
   (insert (org-odt-format-tags
 	   '("<dc:date>" . "</dc:date>")
-	   (org-odt-iso-date-from-org-timestamp
+	   (org-odt-format-date
 	    (or date (plist-get org-lparse-opt-plist :date)))))
   (org-lparse-begin-paragraph))
 
@@ -2002,8 +2054,7 @@ visually."
       (insert "\n</manifest:manifest>"))))
 
 (defun org-odt-update-meta-file (opt-plist)
-  (let ((date (org-odt-iso-date-from-org-timestamp
-	       (plist-get opt-plist :date)))
+  (let ((date (org-odt-format-date (plist-get opt-plist :date)))
 	(author (or (plist-get opt-plist :author) ""))
 	(email (plist-get opt-plist :email))
 	(keywords (plist-get opt-plist :keywords))
-- 
2.11.4.GIT