Re: quoting code blocks in Gnus without Org functions

[Ted Zlatanov <tzz@lifelogs.com>]

On Wed, 06 Apr 2011 16:45:58 +0200 Julien Danjou <julien@danjou.info> wrote: 

JD> What you want to do seems totally doable if we can have some information
JD> about which buffer comes the yank from. But I doubt this is the case.

Here's my attempt.  This works for ELisp code but not for others (the
`cond' needs to be extended obviously).  Am I on the right track?  Is
there a map of mode to "short name" that the highlight code uses?  Or
can it just take the `major-mode' as string in addition to the "short
name", since it uses that for fontification anyhow?

(It felt very meta to copy the function with the function itself :)

#+begin_src lisp
(defun tzz-copy-region-with-mode-property (beg end)
  (interactive "r")
  (let ((text (buffer-substring beg end))
        (mode major-mode))
    (with-temp-buffer
      (insert text)
      (goto-char (point-min))
      (insert "#+begin_src "
              (cond
               ((memq mode '(lisp-interaction-mode emacs-lisp-mode))
                "lisp")
               (t "text"))
              "\n")
      (goto-char (point-max))
      (insert "\n"
              "#+end_src"
              "\n")
      (copy-region-as-kill (point-min) (point-max)))))
#+end_src

Thanks
Ted