(load "~/.emacs")

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

(let* ((folder (format-time-string "%Y-%m-%d"))
       (n (buffer-name)))
  (mkdir (concat "~/Public/paste/" folder) 't)
  (write-region (buffer-string) nil
                (concat "~/Public/paste/"
                        folder
                        "/"
                        n))
  (font-lock-fontify-buffer)
  (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>"
               "Generated At "
               (current-time-string)
               " "
               (cadr (current-time-zone))
               "&nbsp;<a href=\"./"
               n
               "\">original</a>"
               "</p>"))
      (write-region (buffer-string)
                    nil
                    (concat "~/Public/paste/"
                            folder
                            "/"
                            n
                            ".html")))))

(kill-emacs)

Generated At Tue Dec 13 13:36:03 2022 PST original