Comment puis-je obtenir un plan en mode organisation dans un 2e tampon en tant que table des matières dynamique?


25

Lorsque je modifie des documents volumineux, j'aimerais voir où j'en suis en voyant le plan (sans contenu) dans un tampon séparé. Comme lorsque vous lisez un fichier PDF, il y a une table des matières sur la gauche. (voir ci-dessous)

En mode organisation, il est possible de développer / réduire le contour. Mais est-il possible d'avoir un contour statique à gauche (ou à droite) dans un tampon séparé afin que lorsque vous cliquez sur les en-têtes, l'autre tampon se déplace vers cette position?

Un peu comme ça, mais pour le mode org? entrez la description de l'image ici

[Modifier]
Le clone-indirect-bufferest très proche de ce que je veux. La pièce manquante du puzzle est de sauter au même endroit lorsque vous cliquez sur un titre / (ou n'importe quel point vraiment).

Pour cela, j'ai essayé d'écrire du code: Déplacer vers un autre tampon cloné au même point? (position de synchronisation des tampons indirects) (mode org)

Mais cela ne fonctionne pas si le contenu est réduit. Si cela peut fonctionner, le tampon cléron-indérect est une solution complète à cela.

[Solution Edit2]
Le code dans le lien ci-dessus et dans la réponse ci-dessous combine niceley pour résoudre les sauts d'avant en arrière.

;first call 'clone-indirect-buffer'. Then...

;This function works between buffer and it's clone.
(defun my/goto-same-spot-in-other-buffer () 
  "Go to the same location in the other buffer. Useful for when you have cloned indirect buffers"
  (interactive)
  (let ((my/goto-current-point (point)))
       (other-window 1)
       (goto-char my/goto-current-point)
       (when (invisible-p (point))
        (org-reveal)))
)

;This function is a clone-to-buffer jump only:
; It does find the other buffer first thou instead of just jumping to the other 
; window as does the function above.
(defun my/jump-to-point-and-show ()
  "Switch to a cloned buffer's base buffer and move point to the
cursor position in the clone."
  (interactive)
  (let ((buf (buffer-base-buffer)))
    (unless buf
      (error "You need to be in a cloned buffer!"))
    (let ((pos (point))
          (win (car (get-buffer-window-list buf))))
      (if win
          (select-window win)
        (other-window 1)
        (switch-to-buffer buf))
      (goto-char pos)
      (when (invisible-p (point))
        (show-branches)))))


(global-set-key (kbd "<s-mouse-1>") 'my/goto-same-spot-in-other-buffer)
(global-set-key (kbd "s-m") 'my/goto-same-spot-in-other-buffer)
(global-set-key (kbd "<C-s-mouse-1>") 'my/jump-to-point-and-show)
(global-set-key (kbd "C-s-m") 'my/jump-to-point-and-show)

2
Essayez peut-être C-c C-x b, ou org-tree-to-indirect-buffer.
Samuel Flint

@SWFlint Après un court test, il semble qu'il fasse quelque chose de différent de ce que l'OP veut: il copie la sous-arborescence actuelle dans un tampon indirect. Ce dont nous aurions besoin serait une org-sparse-tree-to-indirect-bufferfonction, par exemple, mais elle ne semble pas exister.
T. Verron

Après avoir regardé un peu plus loin, essayez quelque chose dans le sens des org-panes
Samuel Flint

Je pense qu'il vaut également la peine de mentionner imenu-list . Il manque certaines des exigences mais répond à d'autres.
incandescentman

org-tree-to-indirect-buffer est génial.
ninrod

Réponses:


9

Quelques options me viennent à l'esprit. Les deux premiers le sont speedbar, ce qui semble bien fonctionner avec org-mode, et minimap, bien que je ne les ai pas utilisés, je ne peux donc pas en témoigner personnellement.

Ce qui pourrait être l'option la plus simple (et aussi la plus flexible), serait d'utiliser un tampon indirect .

Dans la pratique, vous iriez au orgtampon pour lequel vous souhaitez un contour, appuyez sur M-x clone-indirect-buffer(utilisez C-u M-x clone-indirect-buffersi vous souhaitez contrôler le nom du clone), puis boum, il y a une autre copie du tampon à utiliser. Placez ce clone dans une fenêtre ou un cadre côte à côte avec le tampon d'origine et, dans le clone, ajustez le contour à vos goûts.

Il ne vous donne pas la fonctionnalité "cliquez sur le titre dans le plan" que vous avez mentionnée, mais vous donne l'esprit de la barre latérale.

Edit: en réponse à votre commentaire, voici une commande simple qui, lorsqu'elle est invoquée à partir du clone de tampon , basculera vers le tampon de base et se déplacera vers l'endroit où se trouvait le curseur dans le clone de tampon:

(defun jump-to-point-and-show ()
  "Switch to a cloned buffer's base buffer and move point to the
cursor position in the clone."
  (interactive)
  (let ((buf (buffer-base-buffer)))
    (unless buf
      (error "You need to be in a cloned buffer!"))
    (let ((pos (point))
          (win (car (get-buffer-window-list buf))))
      (if win
          (select-window win)
        (other-window 1)
        (switch-to-buffer buf))
      (goto-char pos)
      (when (invisible-p (point))
        (show-branches)))))

J'ai essayé speedbar / Sr-Speedbar. C'est très joli mais ça ne montre que les 2 premiers niveaux. J'ai demandé s'il était possible d'avoir plus de niveaux ici: emacs.stackexchange.com/questions/9533/… Le tampon indirect est une bonne option. Je me demande s'il est possible de déplacer le curseur de l'autre tampon dans la même position que dans le tampon cloné.
Leo Ufimtsev

J'ai essayé d'écrire du code qui irait au même emplacement dans l'autre tampon, mais cela ne fonctionne que si tout est développé. S'il peut fonctionner pour qu'il se développe automatiquement, le tampon de clone est une solution parfaite. Message: emacs.stackexchange.com/questions/9536/…
Leo Ufimtsev

Merci pour l'extrait de code ci-dessus. Très apprécié ^ _ ^.
Leo Ufimtsev

16

Que diriez-vous: M-x occur RET ^*+ RET(notez qu'il y a un espace à la fin de l'expression rationnelle).


Je ne sais pas pourquoi quelqu'un a voté contre cette réponse, je pense que c'est en fait une solution sans tracas intégrée assez soignée en fait. Le seul problème, c'est qu'il ne vous suit pas. C'est-à-dire que ce n'est pas évident dans le tampon d'occurrence où vous êtes, (mettez en surbrillance l'en-tête actuel par exemple) et il ne défile pas pour les longs documents longs. Mais pour les petits documents ça marche.
Leo Ufimtsev

J'aime cette solution simple et intégrée. Si vous avez besoin de surbrillance, utilisez helm-occur au lieu de occur. Un avantage supplémentaire est de pouvoir utiliser une seule navigation pour plusieurs tampons de fichiers org en utilisant plusieurs occurrences. Enfin, avec occur-edit, on peut éditer les deux vues, la vue de contour et la vue développée. En tout cas, je vote positivement.
Emacs User

Aller voter contre parce que c'est génial, simple et efficace
Gambo

Si simple. Si intelligent. Tellement hackish. Génial.
dangom

7

Après avoir lu la réponse de Dan et votre solution basée sur celle-ci, j'ai mis cela ensemble. Il ouvre un nouveau clone étroit et en lecture seule à gauche du tampon actuel, et il se lie <mouse-1>et RETlocalement dans le clone pour accéder à cette position dans le tampon de base.

(defun my/open-tree-view ()
  "Open a clone of the current buffer to the left, resize it to 30 columns, and bind <mouse-1> to jump to the same position in the base buffer."
  (interactive)
  (let ((new-buffer-name (concat "<tree>" (buffer-name))))
    ;; Create tree buffer
    (split-window-right 30)
    (if (get-buffer new-buffer-name)
        (switch-to-buffer new-buffer-name)  ; Use existing tree buffer
      ;; Make new tree buffer
      (progn  (clone-indirect-buffer new-buffer-name nil t)
              (switch-to-buffer new-buffer-name)
              (read-only-mode)
              (hide-body)
              (toggle-truncate-lines)

              ;; Do this twice in case the point is in a hidden line
              (dotimes (_ 2 (forward-line 0)))

              ;; Map keys
              (use-local-map (copy-keymap outline-mode-map))
              (local-set-key (kbd "q") 'delete-window)
              (mapc (lambda (key) (local-set-key (kbd key) 'my/jump-to-point-and-show))
                    '("<mouse-1>" "RET"))))))

(defun my/jump-to-point-and-show ()
  "Switch to a cloned buffer's base buffer and move point to the cursor position in the clone."
  (interactive)
  (let ((buf (buffer-base-buffer)))
    (unless buf
      (error "You need to be in a cloned buffer!"))
    (let ((pos (point))
          (win (car (get-buffer-window-list buf))))
      (if win
          (select-window win)
        (other-window 1)
        (switch-to-buffer buf))
      (goto-char pos)
      (when (invisible-p (point))
        (show-branches)))))

Cela fonctionnera avec outline-modeet outline-minor-mode, ainsi qu'avec les modes qui s'appuient sur eux, tels que org-mode. J'ai trouvé des informations sur l'obtention des mappes de clés locales, mais je ne sais pas comment choisir celle à copier. Il y a aussi cette page qui a une fonction pour créer automatiquement des modes mineurs spécifiques au tampon pour définir les clés locales du tampon, mais cela semble hors de portée pour ce problème.


1
Merci de partager cela. En utilisant outline-mode-mapau lieu de org-mode-mapj'ai réussi à le faire fonctionner AUCTeXavec outline-minor-mode, ce qui est bien.
Oleg Domanov

Soit dit en passant, la outline-modefonction 's hide-bodycache tout sauf les titres.
Oleg Domanov

@OlegDomanov Merci pour cette info! J'ai amélioré le code pour utiliser le outline-mode-mapet hide-body, et quelques autres améliorations mineures.
blujay

2

Enfin, cela a été implémenté dans le package org-sidebar:

Démo org-sidebar-tree


1
Hoooray! J'ai une configuration de clé qui cesse parfois de fonctionner, c'est absolument génial si c'est un package maintenant!
Thriveth

0

deux suggestions de faible loyer (ce que je fais) d'un non-programmeur qui aime utiliser aquamacs pour l'éditeur de texte:

  1. basculer d'avant en arrière avec les commandes in-buffer:

DÉMARRAGE: retrait (pour afficher le contour du type de cascade plus facile à voir dans son ensemble)

c'est pour la visualisation tabulée du tampon

et

+ OPTIONS: H: N, où N = = le nombre de niveaux que vous souhaitez voir dans l'exportation html, qui est la suggestion # 2

voir: https://emacsclub.github.io/html/org_tutorial.html

  1. exporter en html (CC CE hh) pour voir la table des matières. je ne trouve personne qui puisse facilement obtenir la sortie de texte html ou texte (CC CE ta) pour mettre en retrait

0

J'avais besoin de quelque chose de similaire, alors j'ai mis en place le outline-tocmode . Cela devrait fonctionner pour les documents en mode organisation.

En utilisant notre site, vous reconnaissez avoir lu et compris notre politique liée aux cookies et notre politique de confidentialité.
Licensed under cc by-sa 3.0 with attribution required.