Source

hm--html-menus / hm--date.el

Diff from to

File hm--date.el

 	(month (substring time-string 4 7))
 	(year (substring time-string 20 24)))
     (concat day "-" month "-" year)))
+
+(defun hm--date-time ()
+  "Returns the date & time (eg as \"day-month-year at hours:minutes\")
+The format can be changed by the variable `hm--html-log-date-format'."
+  (when (or (boundp 'hm--hmtl-include-time-after-date)
+	    (boundp 'hm--html-date-time-separator))
+    (warn 
+     "You are still using one or both of the no longer supported variables \n"
+     "`hm--hmtl-include-time-after-date' and `hm--html-date-time-separator'."
+     "You are now able to get the same effect by using the new variable\n"
+     "`hm--html-log-date-format'.\n\n."
+     "Type `M-x customize-variable hm--html-log-date-format', if you will\n"
+     "change the variable.\n\n"
+     "Don't forget to remove the old variables from your ~/.emacs or one\n"
+     "of your other emacs configuration files."))
+  (format-time-string hm--html-log-date-format (current-time)))
+
+;(defun hm--date-time ()
+;  "Returns the date & time as \"day-month-year xx hours:minutes\",
+;where xx is specified by the user variable hm--html-date-time-separator.
+;The time and date-time separator portion is only returned if the
+;user variable hm--hmtl-include-time-after-date is not nil."
+;  (let* ((time-string (current-time-string))
+; 	 (time (substring time-string 11 16))
+; 	 (day (substring time-string 8 10))
+; 	 (month (substring time-string 4 7))
+; 	 (year (substring time-string 20 24)))
+;    (if hm--hmtl-include-time-after-date
+; 	(concat day "-" month "-" year 
+; 		hm--html-date-time-separator time)
+;      (concat day "-" month "-" year))))