Como exibir um buffer de ajuda / tamanho de quadro completo da janela (não em tela cheia)

Às vezes, quero exibir informações no estilo de buffer da Ajuda, portanto, tenho usado códigos como este:

(with-help-window (help-buffer)
  (princ "Type q to exit this help buffer.\n\n")
  (princ result))

Isso funciona bem, mas a janela de ajuda usa apenas metade do meu quadro. Normalmente, divido minha moldura horizontalmente, para dar duas janelas altas. O buffer de ajuda exibido usa uma das duas janelas.

Prefiro usar o quadro inteiro em alguns casos, para exibir mais informações e reduzir o número de vezes que preciso percorrer as informações exibidas. O problema a ser resolvido é como usar temporariamente o quadro inteiro para a with-help-windowchamada e restaurar automaticamente os tamanhos dos buffers / janelas originais quando digito "q" na janela de ajuda.

Como posso alcançar melhor esse objetivo? Acho que estou procurando algo assim:

(with-FULL-FRAME-help-window (help-buffer)
   ...)

Examinei o modo vencedor, marcadores, salvando layouts em registros, os vários (display-buffer ...)métodos (e poderosos, mas complexos) . A maioria deles parece um pouco fora do alvo para minha intenção desejada, porque eles tendem a corrigir / restaurar um layout após uma operação de exibição de quadro completo. E parece-me que muitos deles exigem que eu restaure manualmente meu layout de janela (o que eu preferiria não fazer).

Gostaria de saber se alguém já ouviu falar de uma maneira de resolver isso simplesmente. Espero algo simples como essas possíveis abordagens, onde eu possa substituir algo com um quadro let ...

(let ((help-window-width-display-option fullwidth))
  (with-help-window (help-buffer)
    ...))

Ou esse tipo de abordagem, que ainda não sei fazer, e que parece um pouco difícil / complicado para o meu nível de habilidade atual.

(let ((save original configuration somehow)
  (delete-other-windows)
  (with-help-window (help-buffer)
     ...)
  ;; somehow, when I type "q" in the help buffer
  ;; - catch that action in code after the buffer is killed
  ;; - and restore the original window configuration
  )

Parece-me que o principal problema para resolver é como restaurar automaticamente a configuração original da janela quando digito "q" no buffer temporário do modo de ajuda. obrigado

Exemplo # 1 : O atalho de teclado qno help-modebuffer vem do special-mode-mapque é incorporado ao help-mode-map. O valor padrão é quit-window, que oferece apenas quatro (4) ações possíveis: " De acordo com as informações armazenadas no quit-restoreparâmetro da janela do WINDOW (1) exclua o WINDOW e seu quadro, (2) exclua o WINDOW, (3) restaure o buffer exibido anteriormente no WINDOW ou (4) faça com que o WINDOW exiba outro buffer que não o atual. Se não for nulo, redefina o quit-restoreparâmetro para nulo. "[Consulte a string de documentos: M-x describe-function RET quit-window RET]

Aqui está um resumo do que este exemplo faz:

• Deixe vincular a variável help-window-selectpara tque a *Help*janela seja selecionada.

• Deixe-vincular a configuração atual da janela a uma variável temporária chamada config.

• Gere a *Help*janela.

• Armazene a configuração da janela anterior - config- em uma variável local chamada my-stored-win-config.

• Crie uma atribuição de chave local para a letra à qqual está vinculada my-restore-win-config. [Esta tarefa local supera / oculta a tarefa anterior de quit-window.]

• Exclua outras janelas.

• Pressione a letra qpara restaurar a configuração anterior da janela e interrompa o *Help*buffer.

(defvar my-stored-win-config nil)
(make-variable-buffer-local 'my-stored-win-config)

(defun my-restore-win-config ()
  (interactive)
  (when my-stored-win-config
    (set-window-configuration my-stored-win-config)
    (kill-buffer "*Help*")))

O fragmento a seguir é um exemplo de uso, mas não é uma função interativa completa. Pode ser avaliado no *scratch*buffer para vê-lo em ação.

(let ((help-window-select t)
      (config (current-window-configuration)))
  (with-help-window (help-buffer)
    (princ "Type q to kill this *Help* buffer and restore prior window configuration."))
  (with-current-buffer "*Help*"
    (setq my-stored-win-config config)
    (local-set-key "q" 'my-restore-win-config))
  (delete-other-windows))

Exemplo 2 :

Aqui está uma macro independente que faz tudo como o exemplo acima, que lida com três situações possíveis relacionadas aos valores de gancho existentes - por exemplo nil, símbolo ou lista de símbolos.

(defmacro help-window-full-frame (buffer-name &rest body)
"Doc-string."
  (declare (indent 1) (debug t))
  `(progn
    (set-marker help-window-point-marker nil)
      (let* (
          (help-window-select t)
          (foo
            (lambda ()
              (set (make-local-variable 'window-configuration)
                (current-window-configuration))
              (local-set-key "q"
                (lambda ()
                  (interactive)
                  (when window-configuration
                    ;; Record the `current-buffer' before it gets buried.
                    (let ((cb (current-buffer)))
                      (set-window-configuration window-configuration)
                      (kill-buffer cb)))))))
          ;; Preserve the original hook values by let-binding them in advance.
          ;; Otherwise, `add-to-list' would alter the global value.
          (temp-buffer-window-setup-hook temp-buffer-window-setup-hook)
          (temp-buffer-window-show-hook temp-buffer-window-show-hook)
          (temp-buffer-window-setup-hook
            (cond
              ((null temp-buffer-window-setup-hook)
                (list 'help-mode-setup foo))
              ((and
                  (not (null temp-buffer-window-setup-hook))
                  (listp temp-buffer-window-setup-hook))
                (add-to-list 'temp-buffer-window-setup-hook foo)
                (add-to-list 'temp-buffer-window-setup-hook 'help-mode-setup))
              ((and
                  (not (null temp-buffer-window-setup-hook))
                  (symbolp temp-buffer-window-setup-hook))
                (list 'help-mode-setup foo temp-buffer-window-setup-hook))))
          (temp-buffer-window-show-hook
            (cond
              ((null temp-buffer-window-show-hook)
                (list 'help-mode-finish 'delete-other-windows))
              ((and
                  (not (null temp-buffer-window-show-hook))
                  (listp temp-buffer-window-show-hook))
                (add-to-list 'temp-buffer-window-show-hook 'delete-other-windows)
                (add-to-list 'temp-buffer-window-show-hook 'help-mode-finish))
              ((and
                  (not (null temp-buffer-window-show-hook))
                  (symbolp temp-buffer-window-show-hook))
                (list
                  'help-mode-finish
                  'delete-other-windows
                  temp-buffer-window-show-hook)))) )
        (with-temp-buffer-window ,buffer-name nil 'help-window-setup (progn ,@body)))))

E aqui está o trecho de amostra para avaliar no *scratch*buffer.

(help-window-full-frame (help-buffer)
  (princ "Type q to kill this *Help* buffer and restore prior window configuration."))

Com base na excelente resposta do @lawlist, aqui estão minhas funções completas para o próximo cara ...

;; a tmp buffer-local place that gets destroyed with the help buffer
(defvar kwj-v-window-config-saved nil)
(make-variable-buffer-local 'kwj-v-window-config-saved)

(defun kwj-help-window-full-frame (string)
  "Show STRING in a help buffer using the full current frame."
  (let (original-layout)
    ;; set this before Help changes the config
    (setq original-layout (current-window-configuration))
    (with-help-window (help-buffer)
      (princ "Type q to exit this help buffer.\n\n")
      (princ string))
    (with-current-buffer "*Help*"
      ;; save layout in buffer local var that gets deleted
      (setq kwj-v-window-config-saved original-layout)
      ;; bind key in BUFFER (not in help window above)
      ;; bind key *after* help buf is displayed
      (local-set-key "q" 'kwj-help-window-restore))
    (delete-other-windows)))

(defun kwj-help-window-restore ()
  "Restore original windows after a full frame help display."
  (interactive)
  (set-window-configuration kwj-v-window-config-saved)
  (kill-buffer "*Help*"))

A longa cadeia de comentários acima, com a ajuda contínua do @lawlist, resultou nesta versão de uma macro que não requer um nome de buffer, trata adequadamente a instalação original / mostra as listas de ganchos e não causa problemas com o "q "em outros buffers do modo Ajuda .

(defmacro with-help-window-full-frame (&rest body)
  "Display text in a full-frame help window.
Execute BODY forms to put output into the window, with standard
output directed to the buffer."
  ;;tell indenter about this macro name
  (declare (indent 1))
  ;; must use a buffer string name here, not the buffer itself
  `(let ((mybuf ,(buffer-name (get-buffer-create "Full Frame Help")))
         ;;`(let ((mybuf ,(help-buffer))
         mysetup tmpsetup tmpshow)
     ;; save a copy of original hooks
     (setq tmpsetup (copy-list temp-buffer-window-setup-hook))
     (setq tmpshow (copy-list temp-buffer-window-show-hook))

     ;; create window config store and restore functions
     ;; credit to @lawlist on stackoverflow for this embedded setup
     (setq mysetup
           (lambda ()
             ;; store original window configuration
             (set (make-local-variable 'orig-win-config)
                  (current-window-configuration))
             ;; bind q to the window restore function
             (local-set-key
              "q"
              (lambda ()
                (interactive)
                ;; q is shared by all Help-mode buffers
                ;; so guard those that did not set up orig-win-config
                (when (boundp 'orig-win-config)
                  (set-window-configuration orig-win-config))
                (kill-buffer (current-buffer))))))

     ;; Add to help setup hooks. Keep original hook functions if any
     ;; delete-dups destructively hacks our tmp copy, not original hooklists
     (push mysetup tmpsetup)          ;order critical here
     (push 'help-mode-setup tmpsetup) ;this must be first in hook
     (delete-dups tmpsetup)

     (push 'help-mode-finish tmpshow) ;order not important here
     (push 'delete-other-windows tmpshow)
     (delete-dups tmpshow)

     ;; shadow the original hooks with our copies for the display call
     (let ((temp-buffer-window-setup-hook tmpsetup)
           (temp-buffer-window-show-hook tmpshow))

       ;; show buf with locally embedded window restore function
       (with-temp-buffer-window mybuf nil
                                'help-window-setup
                                (progn ,@body)))))

Use a macro desta maneira:

(with-help-window-full-frame
    (princ "Type q to exit this buffer."))