1 (load "~/.emacs")
 2 
 3 (find-file (pop command-line-args-left))
 4 
 5 (let* ((folder (format-time-string "%Y-%m-%d"))
 6        (n (buffer-name)))
 7   (mkdir (concat "~/Public/paste/" folder) 't)
 8   (write-region (buffer-string) nil
 9                 (concat "~/Public/paste/"
10                         folder
11                         "/"
12                         n))
13   (font-lock-fontify-buffer)
14   (rectangle-number-lines (point-min) (point-max) 1)
15   (with-current-buffer (htmlize-buffer)
16     (let ((b (generate-new-buffer (generate-new-buffer-name "paste"))))
17       (copy-to-buffer b (point-min) (point-max))
18       (switch-to-buffer b)
19       (goto-char (point-min))
20       (search-forward "</pre>")
21       (insert (concat
22                "<p>"
23                "Generated At "
24                (format-time-string "%Y-%m-%dT%H:%M:%S%z")
25                "&nbsp;<a class=\"keyword\" href=\"./"
26                n
27                "\">original</a>"
28                "</p>"))
29       (write-region (buffer-string)
30                     nil
31                     (concat "~/Public/paste/"
32                             folder
33                             "/"
34                             n
35                             ".html"))))
36 
37   (append-to-file (concat "https://downey.family/p/"
38                         folder
39                         "/"
40                         n
41                         ".html"
42                         "\n")
43                   nil
44                   "/dev/stdout"))
45 
46 (kill-emacs)
47 

Generated At 2023-09-28T15:59:16-0700 original