Re: Bug: Export dispatcher scrolling with hidden top [9.3.6 (9.3.6-17-g389288-elpaplus @ /home/gustavo/.emacs.d/elpa/org-plus-contrib-20200224/)]

[Gustavo Barros <gusbrs.2016@gmail.com>]

Hi All,

this is a friendly ping on this export dispatcher regression.
(Considering 
https://lists.gnu.org/archive/html/emacs-orgmode/2020-06/msg00038.html).

I just re-tested it now and the recipe provided in the report still 
generates the issue in the current weekly build.

Of course, if anyone is already onto it, please disregard the ping.

Best,
Gustavo.

On Sat, Feb 29 2020, Gustavo Barros wrote:

> Hi All,
>
> The export dispatcher scrolling seems to interact unfavorably general 
> Emacs
> scroll option "scroll-margin", in particular, setting it a positive 
> displaces
> the dispatcher upwards, eventually hiding completely the options 
> section at
> the top, even when there is space in the frame/window to fit the whole
> dispatcher. You can scroll back to it, but it seems both inconvenient 
> and hard
> to find if one does not know "it should be there".
>
> I hope the following minimal example is reproducible by you.  But it 
> might not
> be, given the interaction with frame size, results may well depend on 
> things
> which are not controlled.  Besides, even though I managed to come up 
> with this
> reproducible (to me) example, I'm still not sure I grasp properly the
> interactions involved.  So, in case you cannot reproduce, I can 
> provide
> further info as requested.
>
> Start "emacs -Q" and do some setup:
>
> #+begin_src emacs-lisp
> (package-initialize)
> (add-to-list 'default-frame-alist '(height . 42))
> (setq scroll-margin 3)
> #+end_src
>
> Find an Org file in other frame with "C-x 5 f". Run 
> org-export-dispatch ("C-c
> C-e"), and see that the top of the dispatcher is not visible.
>
> Best,
> Gustavo.
>
>
> Emacs  : GNU Emacs 26.3 (build 1, x86_64-pc-linux-gnu, GTK+ Version 
> 3.22.30)
> of 2019-11-11
> Package: Org mode version 9.3.6 (9.3.6-17-g389288-elpaplus @
> /home/gustavo/.emacs.d/elpa/org-plus-contrib-20200224/)
>
> current state:
> ==============
> (setq
> org-src-mode-hook '(org-src-babel-configure-edit-buffer
> 		     org-src-mode-configure-edit-buffer)
> org-link-shell-confirm-function 'yes-or-no-p
> org-metadown-hook '(org-babel-pop-to-session-maybe)
> org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
> org-html-format-inlinetask-function
> 'org-html-format-inlinetask-default-function
> org-odt-format-headline-function 
> 'org-odt-format-headline-default-function
> org-ascii-format-inlinetask-function 
> 'org-ascii-format-inlinetask-default
> org-mode-hook '(#[0 "\300\301\302\303\304$\207"
> 		   [add-hook change-major-mode-hook org-show-all append
> 		   local]
> 		   5]
> 		 #[0 "\300\301\302\303\304$\207"
> 		   [add-hook change-major-mode-hook
> 		   org-babel-show-result-all
> 		    append local]
> 		   5]
> 		 org-babel-result-hide-spec org-babel-hide-all-hashes
> 		 org-eldoc-load)
> org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME 
> CONTENTS)"]
> org-archive-hook '(org-attach-archive-delete-maybe)
> org-confirm-elisp-link-function 'yes-or-no-p
> org-agenda-before-write-hook '(org-agenda-add-entry-text)
> org-metaup-hook '(org-babel-load-in-session-maybe)
> org-bibtex-headline-format-function #[257 "\300\236A\207" [:title] 3 
> "\n\n(fn
> ENTRY)"]
> org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ 
> CONTENTS)"]
> org-babel-pre-tangle-hook '(save-buffer)
> org-tab-first-hook '(org-babel-hide-result-toggle-maybe
> 		      org-babel-header-arg-expand)
> org-ascii-format-drawer-function #[771 "\207" [] 4 "\n\n(fn NAME 
> CONTENTS
> WIDTH)"]
> org-src-lang-modes '(("arduino" . arduino) ("redis" . redis) ("php" 
> . php)
> 		      ("C" . c) ("C++" . c++) ("asymptote" . asy)
> 		      ("bash" . sh) ("beamer" . latex) ("calc"
> 		      . fundamental)
> 		      ("cpp" . c++) ("ditaa" . artist) ("dot"
> 		      . fundamental)
> 		      ("elisp" . emacs-lisp) ("ocaml" . tuareg)
> 		      ("screen" . shell-script) ("shell" . sh)
> 		      ("sqlite" . sql))
> org-occur-hook '(org-first-headline-recenter)
> org-cycle-hook '(org-cycle-hide-archived-subtrees 
> org-cycle-show-empty-lines
> 		  org-optimize-window-after-visibility-change)
> org-speed-command-hook '(org-speed-command-activate
> 			  org-babel-speed-command-activate)
> org-odt-format-inlinetask-function
> 'org-odt-format-inlinetask-default-function
> org-confirm-shell-link-function 'yes-or-no-p
> org-link-parameters '(("attachment" :follow org-attach-open-link 
> :export
> 			org-attach-export-link :complete
> 			org-attach-complete-link)
> 		       ("id" :follow org-id-open)
> 		       ("eww" :follow eww :store org-eww-store-link)
> 		       ("rmail" :follow org-rmail-open :store
> 			org-rmail-store-link)
> 		       ("mhe" :follow org-mhe-open :store
> 		       org-mhe-store-link)
> 		       ("irc" :follow org-irc-visit :store
> 		       org-irc-store-link
> 			:export org-irc-export)
> 		       ("info" :follow org-info-open :export
> 		       org-info-export
> 			:store org-info-store-link)
> 		       ("gnus" :follow org-gnus-open :store
> 			org-gnus-store-link)
> 		       ("docview" :follow org-docview-open :export
> 			org-docview-export :store
> 			org-docview-store-link)
> 		       ("bibtex" :follow org-bibtex-open :store
> 			org-bibtex-store-link)
> 		       ("bbdb" :follow org-bbdb-open :export
> 		       org-bbdb-export
> 			:complete org-bbdb-complete-link :store
> 			org-bbdb-store-link)
> 		       ("w3m" :store org-w3m-store-link)
> 		       ("elfeed" :follow elfeed-link-open :store
> 			elfeed-link-store-link)
> 		       ("file+sys") ("file+emacs")
> 		       ("shell" :follow org-link--open-shell)
> 		       ("news" :follow
> 			#[257 "\301\300\302Q!\207" ["news" browse-url
>                          ":"] 5
> 			  "\n\n(fn URL)"]
> 			)
> 		       ("mailto" :follow
> 			#[257 "\301\300\302Q!\207" ["mailto" browse-url
>                          ":"]
> 			  5 "\n\n(fn URL)"]
> 			)
> 		       ("https" :follow
> 			#[257 "\301\300\302Q!\207" ["https" browse-url
>                          ":"]
> 			  5 "\n\n(fn URL)"]
> 			)
> 		       ("http" :follow
> 			#[257 "\301\300\302Q!\207" ["http" browse-url
>                          ":"] 5
> 			  "\n\n(fn URL)"]
> 			)
> 		       ("ftp" :follow
> 			#[257 "\301\300\302Q!\207" ["ftp" browse-url
>                          ":"] 5
> 			  "\n\n(fn URL)"]
> 			)
> 		       ("help" :follow org-link--open-help)
> 		       ("file" :complete org-link-complete-file)
> 		       ("elisp" :follow org-link--open-elisp)
> 		       ("doi" :follow org-link--open-doi))
> org-latex-format-headline-function
> 'org-latex-format-headline-default-function
> org-link-elisp-confirm-function 'yes-or-no-p
> org-latex-format-inlinetask-function
> 'org-latex-format-inlinetask-default-function
> org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME 
> CONTENTS)"]
> org-html-format-headline-function 
> 'org-html-format-headline-default-function
> )