option to export more than the visible region

[VladimirAlexiev]

https://github.com/jkitchin/ox-clip/blob/master/ox-clip.el#L388:
ox-clip-formatted-copy uses the following org-export-to-buffer options:

	       (buf (org-export-to-buffer 'html "*Formatted Copy*" nil nil t t))

• subtreep = nil
• visible-only = t

This means that to copy a subtree, I need to:

• org-mark-subtree (C-c @)
• org-cycle (TAB) until the subtree is visible
• ox-clip-formatted-copy (in my case C-S-M-w)

Please:

• Could you add a function ox-clip-formatted-copy-subtree to do that, even if not all of the subtree is visible?
• Or maybe a parameter ox-clip-only-visible to control the value visible-only when invoking org-export-to-buffer? I think I like this variant better since it is natural to use org-mark-subtree (C-c @) if I want to copy it or formatted-copy it.

Thanks!

[jkitchin]

In 2fec80f I added a prefix arg to the function that will mark the subtree, and make it copy all content I think. I guess this is the most sensible default. WDYT?

[VladimirAlexiev]

• I like your commit, but added a few comments to streamline it
• In the meantime, I made an alternative fix that introduces an option.

diff --git a/ox-clip.el b/ox-clip.el
index 72dd176..0f7e9a9 100644
--- a/ox-clip.el
+++ b/ox-clip.el
@@ -60,6 +60,13 @@
   :group 'org)
 
 
+(defcustom ox-clip-only-visible nil
+  "Whether to export only visible org-mode elements or also hidden subtrees.
+Use t and the command org-mark-subtree (C-c @) to copy a whole subtree."
+  :group 'ox-clip
+  :type 'boolean)
+
+
 (defcustom ox-clip-w32-cmd
   (format "python %s"
 	  (expand-file-name
@@ -385,7 +392,7 @@ R1 and R2 define the selected region."
   (if (equal major-mode 'org-mode)
       (save-window-excursion
         (let* ((org-html-with-latex 'dvipng)
-	       (buf (org-export-to-buffer 'html "*Formatted Copy*" nil nil t t))
+	       (buf (org-export-to-buffer 'html "*Formatted Copy*" nil nil ox-clip-only-visible t))
                (html (with-current-buffer buf (buffer-string))))
           (cond
            ((eq system-type 'windows-nt)

I think I like your fix better. Cheers!