From 1a0b623147bda3621241e74670545444c770f883 Mon Sep 17 00:00:00 2001
From: Grant Shangreaux <grant@unabridgedsoftware.com>
Date: Sat, 20 Aug 2022 12:55:00 -0500
Subject: Add: bepasty config

---
 shoshimacs.org | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

(limited to 'shoshimacs.org')

diff --git a/shoshimacs.org b/shoshimacs.org
index eef48d6..05c6e37 100644
--- a/shoshimacs.org
+++ b/shoshimacs.org
@@ -694,6 +694,35 @@ HTTP requests.
 
 an API token is stored in my ~.authinfo~ file.
 
+** paste.cicadas.surf
+
+#+begin_src emacs-lisp
+  (defun read-file-into-string (f)
+    (with-temp-buffer
+      (insert-file-contents f)
+      (buffer-string)))
+
+  (setq cicadas-paste-pw (read-file-into-string "~/.bepasty-key"))
+
+  (defun cicadas-paste-current-buffer () 
+    (interactive)
+    (let ((tmpfile
+	   (concat "/tmp/" (buffer-name))))
+      (write-region nil nil tmpfile)
+      (let ((url 
+	     (first (last (butlast 
+			   (split-string
+			    (shell-command-to-string
+			     (format "pastebinit -i '%s' -p %s -t '%s' -f text/plain"
+				     tmpfile
+				     cicadas-paste-pw
+				     (buffer-name)))
+			    "\n"))))))
+	(delete-file tmpfile)
+	(kill-new url)
+	(message "Pasted to %s (on kill ring)" url))))
+#+end_src
+
 * UI
 :PROPERTIES:
 :header-args:emacs-lisp: :noweb-ref user-interface :noweb-sep "\n\n" :results silent
-- 
cgit v1.2.3