Move diary file into user-init-directory

[syinit] / 15-supercite-sy.el

diff --git a/15-supercite-sy.el b/15-supercite-sy.el
index 2fcbe6e..4072bfe 100644 (file)
--- a/15-supercite-sy.el
+++ b/15-supercite-sy.el
@@ -5,7 +5,7 @@
 ;;     Author: Steve Youngs <steve@sxemacs.org>
 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
 ;;    Created: <2007-12-02>
-;; Time-stamp: <Friday Aug 16, 2013 14:15:30 steve>
+;; Time-stamp: <Saturday Aug 17, 2013 11:29:15 steve>
 ;;   Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
 ;;   HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/15-supercite-sy.html>
 ;;   Git Repo: git clone http://git.sxemacs.org/syinit
@@ -59,6 +59,15 @@
 (require 'supercite)
 (require 'time-date)
 
+;; There is a screw-up in the Gnus autoloads that prevents this from
+;; being autoloaded
+(defun time-to-seconds (time)
+  "Convert time value TIME to a floating point number."
+  (with-decoded-time-value ((high low micro pico type time))
+                          (+ (* 1.0 high 65536)
+                             low
+                             (/ (+ (* micro 1e6) pico) 1e12))))
+
 (defun sy-september-citation-line ()
   (let ((sc-mumble "")
        (whofrom (sc-whofrom)))