From c885215684a4f791c3974d3e32c590731643828f Mon Sep 17 00:00:00 2001
From: Michael Olson <mwolson@gnu.org>
Date: Thu, 7 Jul 2005 19:14:38 +0000
Subject: [PATCH] Hack on muse-blosxom timestamps somewhat.

* lisp/muse-blosxom.el (muse-blosxom-markup-date-directive): Make this
  actually do something useful.  This should have a different name,
  really.
  ("blosxom-html", "blosxom-xhtml"): Call
  `muse-blosxom-markup-date-directive' after publishing each entry.

git-archimport-id: mwolson@gnu.org--2005/muse--main--1.0--patch-103
---
 ChangeLog            | 18 ++++++++++++++++++
 lisp/muse-blosxom.el | 19 +++++++++----------
 2 files changed, 27 insertions(+), 10 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index f39cb38..1385b97 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,24 @@
 # arch-tag: automatic-ChangeLog--mwolson@gnu.org--2005/muse--main--1.0
 #
 
+2005-07-07 19:14:38 GMT	Michael Olson <mwolson@gnu.org>	patch-103
+
+    Summary:
+      Hack on muse-blosxom timestamps somewhat.
+    Revision:
+      muse--main--1.0--patch-103
+
+    * lisp/muse-blosxom.el (muse-blosxom-markup-date-directive): Make this
+      actually do something useful.  This should have a different name,
+      really.
+      ("blosxom-html", "blosxom-xhtml"): Call
+      `muse-blosxom-markup-date-directive' after publishing each entry.
+    
+
+    modified files:
+     ChangeLog lisp/muse-blosxom.el
+
+
 2005-07-07 06:27:02 GMT	Michael Olson <mwolson@gnu.org>	patch-102
 
     Summary:
diff --git a/lisp/muse-blosxom.el b/lisp/muse-blosxom.el
index c3be699..4605b79 100644
--- a/lisp/muse-blosxom.el
+++ b/lisp/muse-blosxom.el
@@ -138,19 +138,16 @@ See `muse-blosxom' for more information."
   :type '(choice string file)
   :group 'muse-blosxom)
 
-;; Maintain (published-file . date) alist
+;; Maintain (published-file . date) alist, which will later be written
+;; to a timestamps file; not implemented yet.
 
 (defvar muse-blosxom-page-date-alist nil)
 
-;; This isn't really used for anything, but it may be someday
 (defun muse-blosxom-markup-date-directive ()
   "Add a date entry to `muse-blosxom-page-date-alist' for this page."
-  (let ((date (match-string 1)))
-    (save-match-data
-      (add-to-list
-       'muse-blosxom-page-date-alist
-       `(,muse-publishing-current-file . ,date))))
-  "")
+  (add-to-list
+   'muse-blosxom-page-date-alist
+   `(,muse-publishing-current-file . ,(muse-publishing-directive "date"))))
 
 ;; Enter a new blog entry
 
@@ -240,12 +237,14 @@ For an example of the use of this function, see
   (muse-derive-style "blosxom-html" "html"
                      :suffix    'muse-blosxom-extension
                      :header    'muse-blosxom-header
-                     :footer    'muse-blosxom-footer)
+                     :footer    'muse-blosxom-footer
+                     :after     'muse-blosxom-markup-date-directive)
 
   (muse-derive-style "blosxom-xhtml" "xhtml"
                      :suffix    'muse-blosxom-extension
                      :header    'muse-blosxom-header
-                     :footer    'muse-blosxom-footer))
+                     :footer    'muse-blosxom-footer
+                     :after     'muse-blosxom-markup-date-directive))
 
 (provide 'muse-blosxom)
 
-- 
2.11.4.GIT