Fix up changelog stuff

git-svn-id: file:///svn/tfheen/trunk/dotfiles@583 8da78d58-1cd3-0310-bee5-d77bd1b3e8bf

diff --git a/emacs b/emacs
index 65142485014b8ba97f604310d6bf30296682f3e1..16c81480bd17fe2db0d4b6ee9b22fa5647834c30 100644 (file)
--- a/emacs
+++ b/emacs
@@ -239,3 +239,24 @@
  (if (not window-system)
      (define-coding-system-alias 'iso-8859-15 'iso-8859-1)))
 
+(setq add-log-full-name "Tollef Fog Heen"
+      add-log-time-format 'tfheen-dpkg-changelog-time)
+
+(defun tfheen-dpkg-changelog-time ()
+  (let* ((time (decode-time))
+        (sec (first time))
+        (minute (second time))
+        (hour (third time))
+        (day (fourth time))
+        (month (fifth time))
+        (year (sixth time))
+        (dow (seventh time))
+        (dst (eighth time))
+        (zone (second (current-time-zone)))
+        (daynames '("Mon" "Tue" "Wed" "Thu" "Fri" "Sat" "Sun"))
+        (monthnames '("Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"))
+        (dayname nil)
+        (monthname nil))
+    (setq dayname (nth (- dow 1) daynames)
+          monthname (nth (- month 1) monthnames))
+    (format "%s %s %d %2d:%2d:%2d %s %d" dayname monthname day hour minute sec zone year)))