(find-file (pop command-line-args-left))

(let* ((folder (buffer-string))
       (n (buffer-name)))
  (with-current-buffer (htmlize-buffer)
    (let ((b (generate-new-buffer (generate-new-buffer-name "paste"))))
      (copy-to-buffer b (point-min) (point-max))
      (switch-to-buffer b)
      (goto-char (point-min))
      (search-forward "</pre>")
      (insert (concat
               "<p>"
               "Generate At "
               (current-time-string)
               " "
               (cadr (current-time-zone))
               (format-time-string "%Y-%m-%d")
               "</p>"))
      (write-region (buffer-string) nil "/dev/stdout" 'append))))

(kill-emacs)

Generate At Tue Dec 13 13:16:56 2022 PST2022-12-13