Add: bepasty config

1 files changed, 25 insertions, 0 deletions

diff --git a/shoshimacs.el b/shoshimacs.el
index 54e0d84..43d3da9 100644
--- a/shoshimacs.el
+++ b/shoshimacs.el
@@ -173,6 +173,31 @@
 (package-install 'srht)
 (setq srht-username "shoshin")
 
+(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))))
+
 ;;; User Interface
 (when (display-graphic-p)
   (scroll-bar-mode -1)