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 https://github.com/jkitchin/ox-clip/commit/2fec80f54e67b98f93e306952eb9d15f62d05784 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!