14288
anaran
<string>html-helper-timestamp-hook example</string>
(setq html-helper-timestamp-hook
(lambda ()
;; The trailing four spaces cause html-helper-timestamp-end
;; to be indented correctly (kludge).
(let ((time (current-time-string))
(zone (nth 1 (current-time-zone))))
(insert " <meta http-equiv=\"Last-modified\" content=\""
time " " zone "\"/>\n")
(insert " <meta http-equiv=\"Expires\" content=\""
time " " zone "\"/>\n "))))
3342691262
#xemacs
1
micha--
<string>My try</string>
(setq html-helper-timestamp-hook
(lambda ()
;; The trailing four spaces cause html-helper-timestamp-end
;; to be indented correctly (kludge).
(let ((format-time-string "%d. %m. %Y")
(time (current-time-string)))
(insert " Letzte Änderung: "
time".")
)))
3342693475
#xemacs
2
micha--
<string>yet another try</string>
(setq format-time-string "%C")
(setq html-helper-timestamp-hook
(lambda ()
;; The trailing four spaces cause html-helper-timestamp-end
;; to be indented correctly (kludge).
(let (time (current-time-string))
(insert " Letzte Änderung: "
time".")
)))
3342694679
#xemacs
3
fledermaus
<string>corrected hook</string>
;; format-time-string is a function, not a variable
;; don't add hooks with setq, use add-hook
;; don't add lambdas to hooks as a general rule, it can get messy later.
(defun html-helper-deutsche-timestamp ()
(insert (format-time-string " Letzte Änderung: %d. %m. %Y")))
(add-hook 'html-helper-timestamp-hook
'html-helper-deutsche-timestamp)
3342694833
#xemacs