[elpa] externals/embark d88478b45f: Generalize copy as markdown (previously only available for links)

[ELPA Syncer]

branch: externals/embark
commit d88478b45f2d589339334dc8d40b07bce28aab0e
Author: Omar Antolín <omar.antolin@gmail.com>
Commit: Omar Antolín <omar.antolin@gmail.com>

    Generalize copy as markdown (previously only available for links)
---
 embark-org.el | 26 ++++++++++++++++++++------
 1 file changed, 20 insertions(+), 6 deletions(-)

diff --git a/embark-org.el b/embark-org.el
index 1d065cbb86..a474c47c8e 100644
--- a/embark-org.el
+++ b/embark-org.el
@@ -119,6 +119,22 @@
 
 (add-to-list 'embark-target-finders 'embark-org-target-element-context)
 
+;;; Custom Org actions
+
+(defun embark-org-copy-as-markdown (start end)
+  "Export the region from START to END to markdown and save on the kill-ring."
+  (interactive "r")
+  (kill-new
+   (let (org-export-with-toc)
+     (string-trim
+      (org-export-string-as (buffer-substring-no-properties start end) 'md 
t))))
+  (deactivate-mark))
+
+(add-to-list 'embark-pre-action-hooks
+             '(embark-org-copy-as-markdown embark--mark-target))
+
+(define-key embark-region-map "M" #'embark-org-copy-as-markdown) ; good idea?
+
 ;;; Tables
 
 (defun embark-org-target-table ()
@@ -256,8 +272,6 @@ what part or in what format the link is copied."
 (embark-org-define-link-copier in-full full " in full")
 (embark-org-define-link-copier description description "'s description")
 (embark-org-define-link-copier target target "'s target")
-(embark-org-define-link-copier
- as-markdown (format "[%s](%s)" description target) "as Markdown")
 
 (fset 'embark-org-copy-link-inner-target 'kill-new)
 (put 'embark-org-copy-link-inner-target 'function-documentation
@@ -273,22 +287,22 @@ For URLs the inner part is the whole target including the 
'http:'
 or 'https:' prefix.  For any other type of link the inner part is
 also the whole target.")
 
-(embark-define-keymap embark-org-copy-map
+(embark-define-keymap embark-org-link-copy-map
   "Keymap for different ways to copy Org links to the kill-ring."
   :parent nil
   ("w" embark-org-copy-link-in-full)
   ("d" embark-org-copy-link-description)
   ("t" embark-org-copy-link-target)
   ("i" embark-org-copy-link-inner-target)
-  ("m" embark-org-copy-link-as-markdown))
+  ("m" embark-org-copy-as-markdown))
 
-(fset 'embark-org-copy-map embark-org-copy-map)
+(fset 'embark-org-link-copy-map embark-org-link-copy-map)
 
 (embark-define-keymap embark-org-link-map
   "Keymap for actions on Org links"
   ("RET" org-open-at-point)
   ("'" org-insert-link)
-  ("w" 'embark-org-copy-map))
+  ("w" 'embark-org-link-copy-map))
 
 ;; The reason for this is left as an exercise to the reader.
 ;; Solution: Na ryvfc gnetrg znl cebzcg gur hfre sbe fbzrguvat!