Lines Matching +defs:reftex +defs:mode
0 ;;; reftex-sel.el --- the selection modes for RefTeX
32 (provide 'reftex-sel)
33 (require 'reftex)
36 (defvar reftex-select-label-map nil
39 started with the command \\[reftex-reference].")
41 (defun reftex-select-label-mode ()
42 "Major mode for selecting a label in a LaTeX document.
51 \\{reftex-select-label-map}"
59 (setq major-mode 'reftex-select-label-mode
60 mode-name "LSelect")
61 (set (make-local-variable 'reftex-select-marked) nil)
62 (when (syntax-table-p reftex-latex-syntax-table)
63 (set-syntax-table reftex-latex-syntax-table))
64 ;; We do not set a local map - reftex-select-item does this.
65 (run-hooks 'reftex-select-label-mode-hook))
67 (defvar reftex-select-bib-map nil
70 started with the command \\[reftex-citation].")
72 (defun reftex-select-bib-mode ()
73 "Major mode for selecting a citation key in a LaTeX document.
82 \\{reftex-select-label-map}"
89 (setq major-mode 'reftex-select-bib-mode
90 mode-name "BSelect")
91 (set (make-local-variable 'reftex-select-marked) nil)
92 ;; We do not set a local map - reftex-select-item does this.
93 (run-hooks 'reftex-select-bib-mode-hook))
95 ;;; (defun reftex-get-offset (buf here-am-I &optional typekey toc index file)
103 ;;; (reftex-access-scan-info)
104 ;;; (let* ((rest (memq here-am-I (symbol-value reftex-docstruct-symbol)))
118 (defun reftex-get-offset (buf here-am-I &optional typekey toc index file)
126 (reftex-access-scan-info)
127 (let* ((rest (symbol-value reftex-docstruct-symbol))
143 (defun reftex-insert-docstruct
159 (let* ((font (reftex-use-fonts))
165 (if toc (make-string (* 7 reftex-level-indent) ?\ ) "")))
168 (if toc (make-string (* 7 reftex-level-indent) ?\ ) "")))
170 (if (memq reftex-highlight-selection '(mouse both))
171 reftex-mouse-selected-face
173 (label-face (reftex-verified-face reftex-label-face
176 (index-face (reftex-verified-face reftex-index-face
187 (reftex-access-scan-info)
189 (setq docstruct-symbol reftex-docstruct-symbol
190 all (symbol-value reftex-docstruct-symbol)
191 reftex-active-toc nil
194 (file-name-directory (reftex-TeX-master-file))))))
196 (set (make-local-variable 'reftex-docstruct-symbol) docstruct-symbol)
197 (set (make-local-variable 'reftex-prefix)
198 (cdr (assoc labels reftex-typekey-to-prefix-alist)))
199 (if (equal reftex-prefix " ") (setq reftex-prefix nil))
228 'face reftex-file-boundary-face))
238 (<= (nth 5 cell) reftex-toc-max-level))
241 (setq reftex-active-toc cell)
246 'face reftex-section-heading-face))
258 (setcdr cell (cdr (reftex-label-info-update cell)))
315 'face reftex-index-tag-face index-tag))
342 (when (reftex-refontify)
344 (reftex-fontify-select-label-buffer buf))
345 (run-hooks 'reftex-display-copied-context-hook)
348 (defun reftex-find-start-point (fallback &rest locations)
371 (defvar reftex-last-data nil)
372 (defvar reftex-last-line nil)
373 (defvar reftex-select-marked nil)
375 (defun reftex-select-item (prompt help-string keymap
392 (setq reftex-select-marked nil)
400 (reftex-find-start-point
401 (point-min) offset reftex-last-data reftex-last-line)
403 (set (make-local-variable 'reftex-last-follow-point) (point))
408 (add-hook 'pre-command-hook 'reftex-select-pre-command-hook nil t)
409 (add-hook 'post-command-hook 'reftex-select-post-command-hook nil t)
411 (set-marker reftex-recursive-edit-marker (point))
416 (set-marker reftex-recursive-edit-marker nil)
420 (remove-hook 'pre-command-hook 'reftex-select-pre-command-hook t)
422 'reftex-select-post-command-hook t))
424 (mapcar (lambda (c) (reftex-delete-overlay (nth 1 c)))
425 reftex-select-marked)))))
427 (set (make-local-variable 'reftex-last-line)
429 (set (make-local-variable 'reftex-last-data) last-data)
430 (reftex-kill-buffer "*RefTeX Help*")
431 (setq reftex-callback-fwd (not reftex-callback-fwd)) ;; ;-)))
435 ;; The following variables are all bound dynamically in `reftex-select-item'.
449 (defun reftex-select-pre-command-hook ()
450 (reftex-unhighlight 1)
451 (reftex-unhighlight 0))
453 (defun reftex-select-post-command-hook ()
459 (not (equal reftex-last-follow-point (point))))
460 (setq reftex-last-follow-point (point))
461 (funcall call-back data reftex-callback-fwd
462 (not reftex-revisit-to-follow)))
471 (and (memq reftex-highlight-selection '(cursor both))
472 (reftex-highlight 1 b e))
479 (defun reftex-select-next (&optional arg)
482 (setq reftex-callback-fwd t)
486 (defun reftex-select-previous (&optional arg)
489 (setq reftex-callback-fwd nil)
491 (defun reftex-select-jump (arg)
500 (defun reftex-select-next-heading (&optional arg)
506 (defun reftex-select-previous-heading (&optional arg)
510 (defun reftex-select-quit ()
514 (defun reftex-select-keyboard-quit ()
518 (defun reftex-select-jump-to-previous ()
523 ((and (local-variable-p 'reftex-last-data (current-buffer))
524 reftex-last-data
526 :data reftex-last-data)))
528 ((and (local-variable-p 'reftex-last-line (current-buffer))
529 (integerp reftex-last-line))
530 (goto-line reftex-last-line))
532 (defun reftex-select-toggle-follow ()
533 "Toggle follow mode: Other window follows with full context."
535 (setq reftex-last-follow-point -1)
537 (defun reftex-select-toggle-varioref ()
543 (force-mode-line-update))
544 (defun reftex-select-toggle-fancyref ()
551 (force-mode-line-update))
552 (defun reftex-select-show-insertion-point ()
559 (marker-buffer reftex-select-return-marker))
560 (goto-char (marker-position reftex-select-return-marker))
563 (defun reftex-select-callback ()
566 (if data (funcall call-back data reftex-callback-fwd nil) (ding)))
567 (defun reftex-select-accept ()
571 (defun reftex-select-mouse-accept (ev)
578 (defun reftex-select-read-label ()
582 "Label: " (symbol-value reftex-docstruct-symbol)
583 nil nil reftex-prefix)))
584 (unless (or (equal label "") (equal label reftex-prefix))
586 (defun reftex-select-read-cite ()
599 (defun reftex-select-mark (&optional separator)
605 (if (assq data reftex-select-marked)
610 (setq ovl (reftex-make-overlay boe eoe))
611 (push (list data ovl separator) reftex-select-marked)
612 (reftex-overlay-put ovl 'face reftex-select-mark-face)
613 (reftex-overlay-put ovl 'before-string
616 (length reftex-select-marked))
617 (format "*%d* " (length reftex-select-marked))))
618 (message "Entry has mark no. %d" (length reftex-select-marked))))
620 (defun reftex-select-mark-comma ()
623 (reftex-select-mark ?,))
624 (defun reftex-select-mark-to ()
627 (reftex-select-mark ?-))
628 (defun reftex-select-mark-and ()
631 (reftex-select-mark ?+))
633 (defun reftex-select-unmark ()
637 (cell (assq data reftex-select-marked))
643 (and ovl (reftex-delete-overlay ovl))
644 (setq reftex-select-marked (delq cell reftex-select-marked))
645 (setq cnt (1+ (length reftex-select-marked)))
648 (reftex-overlay-put (nth 1 c) 'before-string
652 reftex-select-marked)
655 (defun reftex-select-help ()
660 (reftex-enlarge-to-fit "*RefTeX Help*" t))
662 ;; Common bindings in reftex-select-label-map and reftex-select-bib-map
665 'next-line 'reftex-select-next map global-map)
667 'previous-line 'reftex-select-previous map global-map)
669 'keyboard-quit 'reftex-select-keyboard-quit map global-map)
671 'newline 'reftex-select-accept map global-map)
674 '((" " . reftex-select-callback)
675 ("n" . reftex-select-next)
676 ([(down)] . reftex-select-next)
677 ("p" . reftex-select-previous)
678 ([(up)] . reftex-select-previous)
679 ("f" . reftex-select-toggle-follow)
680 ("\C-m" . reftex-select-accept)
681 ([(return)] . reftex-select-accept)
682 ("q" . reftex-select-quit)
683 ("." . reftex-select-show-insertion-point)
684 ("?" . reftex-select-help))
689 (define-key map [(button2)] 'reftex-select-mouse-accept)
690 (define-key map [(mouse-2)] 'reftex-select-mouse-accept)
700 (setq reftex-select-label-map map)
701 (setq reftex-select-bib-map (copy-keymap map)))
703 ;; Specific bindings in reftex-select-label-map
705 (define-key reftex-select-label-map (vector (list key))
711 '(("b" . reftex-select-jump-to-previous)
712 ("z" . reftex-select-jump)
713 ("v" . reftex-select-toggle-varioref)
714 ("V" . reftex-select-toggle-fancyref)
715 ("m" . reftex-select-mark)
716 ("u" . reftex-select-unmark)
717 ("," . reftex-select-mark-comma)
718 ("-" . reftex-select-mark-to)
719 ("+" . reftex-select-mark-and)
720 ([(tab)] . reftex-select-read-label)
721 ("\C-i" . reftex-select-read-label)
722 ("\C-c\C-n" . reftex-select-next-heading)
723 ("\C-c\C-p" . reftex-select-previous-heading))
725 (define-key reftex-select-label-map (car x) (cdr x)))
727 ;; Specific bindings in reftex-select-bib-map
729 (define-key reftex-select-bib-map (vector (list key))
735 '(("\C-i" . reftex-select-read-cite)
736 ([(tab)] . reftex-select-read-cite)
737 ("m" . reftex-select-mark)
738 ("u" . reftex-select-unmark))
739 do (define-key reftex-select-bib-map (car x) (cdr x)))
743 ;;; reftex-sel.el ends here