From: tfheen <tfheen@8da78d58-1cd3-0310-bee5-d77bd1b3e8bf>
Date: Wed, 12 May 2004 21:24:56 +0000 (+0000)
Subject: Fix up changelog stuff
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=67ca08bb2d43534cbcb02302b555d31d922a898e;p=dotfiles

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 6514248..16c8148 100644
--- 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)))