Copy source for reddit

thoom-emacs/modules/thoom-prog.el

@@ -15,3 +15,16 @@
 
 (use-package dockerfile-mode
   :ensure t)
+
+;; TODO - replace with https://github.com/sshaw/copy-as-format if necessary
+(defun copy-source-for-reddit ()
+  (interactive)
+  (let ((contents (buffer-substring (point) (mark))))
+    (with-temp-buffer
+      (insert contents)
+      (mark-whole-buffer)
+      (indent-rigidly (point) (mark) 4 t)
+      (mark-whole-buffer)
+      (kill-ring-save 0 0 t))))
+
+(keymap-global-set "C-c o r" #'copy-source-for-reddit)