@@ -2182,6 +2182,24 @@ (when (boundp 'x-select-request-type)
   (setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING)))
 #+END_SRC
 
+*** Copy formatted code
+
+#+BEGIN_SRC emacs-lisp
+(bind-key* "C-c w" (define-prefix-command 'copy-as-map))
+(use-package copy-as-format
+  :bind (("C-c C-w" . copy-as-format)
+         :map copy-as-map
+         ("b" . copy-as-format-bitbucket)
+         ("g" . copy-as-format-github)
+         ("h" . copy-as-format-hipchat)
+         ("w" . copy-as-format-html)
+         ("j" . copy-as-format-jira)
+         ("m" . copy-as-format-markdown)
+         ("s" . copy-as-format-slack)))
+#+END_SRC
+
+**
+
 ** Selection
 
 I’m quite used to deleting text by selecting it and typing.  Emacs has