Skip to content

Instantly share code, notes, and snippets.

@sachac
Last active August 29, 2015 14:13
Show Gist options
  • Save sachac/e4e6efdb737fb6526ff2 to your computer and use it in GitHub Desktop.
Save sachac/e4e6efdb737fb6526ff2 to your computer and use it in GitHub Desktop.
(defun sacha/copy-code-as-org-block-and-gist (beg end)
(interactive "r")
(let ((filename (file-name-base))
(mode (symbol-name major-mode))
(contents
(if (use-region-p) (buffer-substring beg end) (buffer-string)))
(gist (if (use-region-p) (gist-region beg end) (gist-buffer))))
(kill-new
(format "\n[[%s][Gist: %s]]\n#+begin_src %s\n%s\n#+end_src\n"
(oref (oref gist :data) :html-url) filename
(replace-regexp-in-string "-mode$" "" mode)
contents))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment