yatex: yatexhie.el annotate

annotate yatexhie.el @ 364:d69fd7b1ac4d dev yatex-1.78

yatex-1.78

author	HIROSE Yuuji <yuuji@gentei.org>
date	Fri, 26 Dec 2014 01:02:52 +0900
parents	2a72779d9c50
children	77a2fd4fd634

rev	line source
287 5921f28ef77c Change the first lines. HIROSE Yuuji <yuuji@gentei.org> parents: 195 diff changeset	1 ;;; yatexhie.el --- YaTeX hierarchy browser
5921f28ef77c Change the first lines. HIROSE Yuuji <yuuji@gentei.org> parents: 195 diff changeset	2 ;;;
294 8d3156073892 for 1.77 HIROSE Yuuji <yuuji@gentei.org> parents: 287 diff changeset	3 ;;; (c)1995-2013 by HIROSE Yuuji [yuuji@yatex.org]
353 2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24 HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	4 ;;; Last modified Sun Dec 21 14:05:20 2014 on firestorm
364 d69fd7b1ac4d yatex-1.78 HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	5 ;;; $Id: yatexhie.el,v 1.78 2014/12/25 15:11:02 yuuji Rel $
52 5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	6
287 5921f28ef77c Change the first lines. HIROSE Yuuji <yuuji@gentei.org> parents: 195 diff changeset	7 ;;; Code:
52 5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	8 ;; ----- Customizable variables -----
53 5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	9 (defvar YaTeX-hierarchy-ignore-heading-regexp
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	10 "\\$[A-Z][a-z]+: .* \\$\\\|-\\- . -\\*-"
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	11 "*Regexp of lines to ignore as files' headline.")
52 5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	12
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	13 ;; ----- General variables -----
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	14 (defvar YaTeX-default-TeX-extensions "\\.\$tex\\\|sty\$")
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	15 (defvar YaTeX-hierarchy-current-main nil)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	16 (defvar YaTeX-hierarchy-buffer-message
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	17 (concat
53 5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	18 "n)ext p)rev N)extsame P)revsame u)p K)illbuf RET)select"
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	19 (if (and YaTeX-emacs-19 window-system) " Mouse2)select" "")
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	20 " ?)help"))
52 5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	21 (defvar YaTeX-hierarchy-saved-wc nil "Saved window configuration.")
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	22
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	23 ;; ----- Functions for parsing hierarchy -----
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	24
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	25 (defun YaTeX-all-included-files (&optional file)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	26 "Return all included files from FILE as a list.
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	27 If FILE is nil, use current buffer."
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	28 (save-excursion
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	29 (let ((include-regex (concat YaTeX-ec-regexp
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	30 "\$\\(input\$\\\|" ;match#2
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	31 "\$include\$\\)\\b")) ;match#3
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	32 list file (cb (current-buffer)))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	33 (if file (set-buffer (YaTeX-switch-to-buffer file t)))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	34 (goto-char (point-min))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	35 (while (YaTeX-re-search-active-forward
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	36 include-regex YaTeX-comment-prefix nil t)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	37 (cond
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	38 ((match-beginning 2) ;\input, {} is optional, 1 argument
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	39 (skip-chars-forward " {")
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	40 (setq file (buffer-substring
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	41 (point)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	42 (progn
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	43 (skip-chars-forward
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	44 (concat "^ \t\n\r" YaTeX-ec-regexp "{}"))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	45 (point)))))
68 0eb6997bee16 More adjustment for Emacs20 and XEmacs yuuji parents: 53 diff changeset	46 ((and (match-beginning 3) (looking-at "{"))
52 5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	47 (skip-chars-forward "{")
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	48 (setq file (buffer-substring
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	49 (point)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	50 (progn
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	51 (forward-char -1) (forward-list 1) (1- (point)))))))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	52 (or (string-match YaTeX-default-TeX-extensions file)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	53 (setq file (concat file ".tex")))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	54 (setq list (cons file list)))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	55 (set-buffer cb)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	56 (nreverse list))))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	57
70 44e3a5e1e883 Fix makefile for Windows yuuji parents: 68 diff changeset	58 (defun YaTeX-document-hierarchy (&optional file basedir)
52 5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	59 "Return the document hierarchy beginning from FILE as a list.
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	60 If FILE is nil, beginning with current buffer's file."
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	61 (setq file (or file buffer-file-name))
70 44e3a5e1e883 Fix makefile for Windows yuuji parents: 68 diff changeset	62 (and YaTeX-search-file-from-top-directory
44e3a5e1e883 Fix makefile for Windows yuuji parents: 68 diff changeset	63 (not (file-exists-p file))
44e3a5e1e883 Fix makefile for Windows yuuji parents: 68 diff changeset	64 (string-match "^[^/].*/" file)
44e3a5e1e883 Fix makefile for Windows yuuji parents: 68 diff changeset	65 (setq file (expand-file-name file basedir)))
52 5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	66 (message "Parsing [%s]..." (file-name-nondirectory file))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	67 (prog1
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	68 (save-excursion
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	69 (if (or (file-exists-p file) (null file))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	70 (progn
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	71 (if file
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	72 (let ((parent buffer-file-name))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	73 (YaTeX-switch-to-buffer file t) ;set buffer to file
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	74 (or YaTeX-parent-file
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	75 (YaTeX-get-builtin "!")
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	76 (setq YaTeX-parent-file parent))))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	77 (cons (buffer-file-name (current-buffer))
353 2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24 HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	78 (mapcar (function ;return value
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24 HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	79 (lambda (f)
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24 HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	80 (YaTeX-document-hierarchy f basedir)))
52 5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	81 (YaTeX-all-included-files))))))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	82 (message "Parsing [%s]...done" (file-name-nondirectory file))))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	83
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	84 ;; ----- Functions for displaying hierarchy -----
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	85
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	86 (defun YaTeX-hierarchy-get-file-heading (file)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	87 "Get a FILE's heading."
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	88 (save-excursion
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	89 (set-buffer (find-file-noselect file))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	90 (save-excursion
53 5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	91 (let (p)
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	92 (goto-char (point-min))
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	93 (cond
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	94 ((re-search-forward
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	95 (concat YaTeX-ec-regexp YaTeX-sectioning-regexp) nil t)
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	96 (search-forward "{")
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	97 (forward-char -1)
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	98 (setq p (condition-case nil
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	99 (progn (forward-list 1) (1- (point)))
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	100 (error (point-end-of-line))))
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	101 (goto-char (1+ (match-beginning 0)))
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	102 (skip-chars-forward " \t\n")
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	103 (buffer-substring (point) (min (point-end-of-line) p)))
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	104 ((catch 'found
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	105 (while (re-search-forward "^ *%\$[^#]\$" nil t)
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	106 (or (re-search-forward
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	107 YaTeX-hierarchy-ignore-heading-regexp
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	108 (point-end-of-line) t)
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	109 (throw 'found t))))
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	110 (beginning-of-line)
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	111 (search-forward "%")
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	112 (skip-chars-forward "% \t")
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	113 (buffer-substring (point) (point-end-of-line)))
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	114 (t ""))))))
52 5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	115
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	116 (defun YaTeX-display-a-hierachy (hier level)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	117 "Put a HIER of document hierarchy.
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	118 LEVEL is including depth."
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	119 (message "Formatting hierarchy buffer...")
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	120 (let ((lastatomcol 0) list i p)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	121 (cond
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	122 ((listp hier)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	123 (setq list hier)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	124 (while list
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	125 (YaTeX-display-a-hierachy (car list) (1+ level))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	126 (setq list (cdr list))))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	127 ((stringp hier) ;is an atom
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	128 (insert " ")
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	129 (setq i level)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	130 (while (> i 2)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	131 (insert "\| ")
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	132 (setq i (1- i)))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	133 (if (> level 1) (insert "+---"))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	134 (setq p (point))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	135 (insert (or (buffer-name (get-file-buffer hier))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	136 (file-name-nondirectory hier)))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	137 (if (and window-system YaTeX-emacs-19)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	138 (put-text-property p (point) 'mouse-face 'underline))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	139 (insert " ")
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	140 (indent-to-column (1- (/ (window-width) 2)))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	141 (insert "% " (YaTeX-hierarchy-get-file-heading hier))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	142 (insert "\n"))))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	143 (message "Formatting hierarchy buffer..."))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	144
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	145 (defun YaTeX-display-hierarchy (file &optional use-default)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	146 "Display document hierarchy that is beginning from FILE."
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	147 (interactive "P")
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	148 (setq YaTeX-hierarchy-saved-wc
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	149 (list (current-window-configuration)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	150 (and (featurep 'windows)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	151 (boundp 'win:current-config)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	152 win:current-config)))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	153 (let*((b-in (YaTeX-get-builtin "!"))
70 44e3a5e1e883 Fix makefile for Windows yuuji parents: 68 diff changeset	154 default)
52 5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	155 ;;$B$`!<$s"-$3$N$X$s$N;EMM$I$&$7$?$i$$$$$+NI$/J,$+$i$s(B...
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	156 (if default (setq default (expand-file-name default)))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	157 (YaTeX-visit-main t) ;move to parent file
70 44e3a5e1e883 Fix makefile for Windows yuuji parents: 68 diff changeset	158 (setq default buffer-file-name)
52 5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	159 (setq file
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	160 (or (if use-default default file)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	161 (read-file-name
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	162 (format
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	163 "Main .tex file%s: "
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	164 (if default
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	165 (format "(default %s)"(file-name-nondirectory default))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	166 ""))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	167 "" default 1))))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	168 (setq file (expand-file-name file))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	169 (setq YaTeX-hierarchy-current-main file)
70 44e3a5e1e883 Fix makefile for Windows yuuji parents: 68 diff changeset	170 (let ((dbuf "document hierarchy")
44e3a5e1e883 Fix makefile for Windows yuuji parents: 68 diff changeset	171 (topdir default-directory))
52 5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	172 (YaTeX-showup-buffer dbuf nil t)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	173 (set-buffer (get-buffer dbuf))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	174 (setq truncate-lines t)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	175 (let ((buffer-read-only nil))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	176 (erase-buffer)
70 44e3a5e1e883 Fix makefile for Windows yuuji parents: 68 diff changeset	177 (YaTeX-display-a-hierachy (YaTeX-document-hierarchy file topdir) 0))
52 5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	178 (goto-char (point-min))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	179 (YaTeX-hierarchy-next 0)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	180 (set-buffer-modified-p nil)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	181 (YaTeX-hierarchy-mode)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	182 ))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	183
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	184 (defun YaTeX-display-hierarchy-directly ()
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	185 "Same as YaTeX-display-hierarchy. Call from mouse."
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	186 (interactive)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	187 (YaTeX-display-hierarchy nil t))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	188
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	189 (defun YaTeX-hierarchy-mode ()
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	190 "Major mode to browse and select document hierarchy.
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	191
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	192 \\[YaTeX-hierarchy-next] next line
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	193 \\[YaTeX-hierarchy-prev] previous line
53 5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	194 \\[YaTeX-hierarchy-forward] move forward in the same level
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	195 \\[YaTeX-hierarchy-backward] move backward in the same level
52 5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	196 \\[YaTeX-hierarchy-up-document] move to parent file
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	197 \\[delete-other-windows] delete other windows
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	198 \\[other-window] other window
53 5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	199 \\[shrink-window] shrink window
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	200 \\[enlarge-window] enlarge window
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	201 \\[YaTeX-hierarchy-show] show file contents in the next window
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	202 \\[YaTeX-hierarchy-scroll-up] scroll up file contents buffer
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	203 \\[YaTeX-hierarchy-scroll-down] scroll down file contents buffer
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	204 \\[YaTeX-hierarchy-top] show the top of file contents
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	205 \\[YaTeX-hierarchy-bottom] show the bottom of file contents
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	206 \\[YaTeX-hierarchy-lastpos] return to the previous position
52 5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	207 \\[YaTeX-hierarchy-select] select file
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	208 \\[YaTeX-hierarchy-mouse-select] select
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	209 "
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	210 (setq major-mode 'YaTeX-hierarchy-mode
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	211 mode-name "YaTeX hier")
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	212 (use-local-map YaTeX-hierarchy-mode-map)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	213 (setq buffer-read-only t)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	214 (message YaTeX-hierarchy-buffer-message))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	215
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	216 ;; ----- Subfunctions for interactive functions -----
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	217 (defun YaTeX-hierarchy-get-current-file-buffer ()
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	218 "Return the buffer associated with current line's file."
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	219 (let ((file (buffer-substring
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	220 (point)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	221 (save-excursion
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	222 (skip-chars-forward "^ \t" (point-end-of-line)) (point))))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	223 (hilit-auto-highlight) buffer)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	224 (set-buffer (find-file-noselect YaTeX-hierarchy-current-main))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	225 (if (get-buffer file) ;buffer is active
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	226 (setq buffer (get-buffer file)) ;may contain `<2>'
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	227 (if (string-match "<[2-9]>$" file)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	228 (setq file (substring file 0 -3)))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	229 (save-excursion
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	230 (setq buffer (YaTeX-switch-to-buffer file t)))))) ; open it!
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	231
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	232 ;; ----- Interactive functions -----
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	233 (defun YaTeX-hierarchy-next (arg &optional quiet)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	234 "Move to next line's file in YaTeX document hierarchy buffer."
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	235 (interactive "p")
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	236 (forward-line arg)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	237 (skip-chars-forward "- +\\\|")
53 5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	238 (if (and (/= arg 0) (not quiet))
52 5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	239 (YaTeX-hierarchy-select t))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	240 (message YaTeX-hierarchy-buffer-message))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	241
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	242 (defun YaTeX-hierarchy-prev (arg)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	243 "Move to previous line's file in YaTeX document hierarchy buffer."
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	244 (interactive "p")
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	245 (YaTeX-hierarchy-next (- arg)))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	246
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	247 (defun YaTeX-hierarchy-next-line (arg)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	248 (interactive "p")
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	249 (YaTeX-hierarchy-next arg t))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	250
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	251 (defun YaTeX-hierarchy-prev-line (arg)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	252 (interactive "p")
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	253 (YaTeX-hierarchy-next (- arg) t))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	254
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	255 (defun YaTeX-hierarchy-forward (arg)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	256 "Move to forward file in same hierarchy level."
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	257 (interactive "p")
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	258 (YaTeX-hierarchy-next 0)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	259 (let ((p (point))(column (current-column)) (i (if (> arg 0) arg (- arg))))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	260 (if (= column 0) (error "Not on file line."))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	261 (while (> i 0)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	262 (if (catch 'found
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	263 (while (and (not (eobp)) (not (bobp)))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	264 (forward-line (if (> arg 0) 1 -1))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	265 (move-to-column column)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	266 (if (looking-at "[- +\\\|]") nil
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	267 (YaTeX-hierarchy-next 0)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	268 (if (= (current-column) column) (throw 'found t)))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	269 (beginning-of-line)))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	270 nil
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	271 (goto-char p)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	272 (error "No same level file."))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	273 (setq i (1- i)))))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	274
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	275 (defun YaTeX-hierarchy-backward (arg)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	276 "Move to backward file in same hierarchy level."
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	277 (interactive "p")
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	278 (YaTeX-hierarchy-forward (- arg)))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	279
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	280 (defun YaTeX-hierarchy-up-document ()
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	281 "Up level, that is, move to parent file position."
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	282 (interactive)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	283 (YaTeX-hierarchy-next 0) ;adjust column
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	284 (let ((p (point)) (line (count-lines (point-min) (point))) column)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	285 (if (or (<= line 1) (< (current-column) 6))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	286 (message "No more parent")
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	287 (backward-char 1)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	288 (or (= (char-after (point)) ?-) (error "Unexpected hierarchy buffer"))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	289 (setq column (current-column))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	290 (while (and (> line 1) (looking-at "[- +\\\|]"))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	291 (forward-line -1)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	292 (move-to-column column))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	293 (YaTeX-hierarchy-next 0)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	294 (push-mark p t)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	295 (message "Mark set to last position"))))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	296
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	297 (defun YaTeX-hierarchy-kill-buffer (arg)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	298 "Kill buffer associated with current line's file."
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	299 (interactive "p")
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	300 (YaTeX-hierarchy-next 0) ;move to file name column
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	301 (if (bolp) (error "Not on file name line"))
53 5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	302 (let ((file (buffer-substring
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	303 (point)
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	304 (progn (skip-chars-forward "^ \t") (point)))))
52 5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	305 (YaTeX-hierarchy-next arg)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	306 (cond
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	307 ((get-buffer file)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	308 (kill-buffer (get-buffer file))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	309 (message "Buffer [%s] was killed" file))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	310 (t (message "Buffer [%s] is not active." file)))))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	311
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	312 (defun YaTeX-hierarchy-select (arg)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	313 "Select current line's file in YaTeX document hierarchy buffer.
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	314 If ARG is non-nil, show the buffer in the next window."
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	315 (interactive "P")
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	316 (beginning-of-line)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	317 (skip-chars-forward "- +\\\|")
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	318 (or (eolp)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	319 (let ((buffer (YaTeX-hierarchy-get-current-file-buffer)))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	320 (if buffer ;if file was found
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	321 (if arg
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	322 (YaTeX-showup-buffer buffer nil)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	323 (if (and YaTeX-emacs-19 window-system
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	324 (get-buffer-window buffer t))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	325 (goto-buffer-window buffer) ;select currently displaying
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	326 (YaTeX-switch-to-buffer-other-window buffer)))))))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	327
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	328 (defun YaTeX-hierarchy-show ()
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	329 "Show current line's file in the next window."
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	330 (interactive)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	331 (YaTeX-hierarchy-select t))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	332
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	333 (defun YaTeX-hierarchy-mouse-select (event)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	334 (interactive "e")
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	335 (mouse-set-point event)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	336 (YaTeX-hierarchy-select nil))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	337
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	338 (defun YaTeX-hierarchy-quit ()
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	339 "Quit from YaTeX-hierarchy buffer and restore window configuration."
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	340 (interactive)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	341 (if (or (not (featurep 'windows))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	342 (car YaTeX-hierarchy-saved-wc)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	343 (and (= (car (cdr YaTeX-hierarchy-saved-wc)) win:current-config)))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	344 (set-window-configuration (car YaTeX-hierarchy-saved-wc))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	345 (bury-buffer nil)))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	346
53 5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	347 (defun YaTeX-hierarchy-scroll-up (arg &optional action)
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	348 "Scroll up file contents of YaTeX-hierarchy."
52 5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	349 (interactive "P")
53 5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	350 (YaTeX-hierarchy-next 0 t)
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	351 (let*((bufname (buffer-substring
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	352 (point)
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	353 (save-excursion (skip-chars-forward "^ \t") (point))))
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	354 (buf (get-buffer bufname))
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	355 (cw (selected-window)))
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	356 (cond
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	357 ((and buf (get-buffer-window buf))
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	358 (select-window (get-buffer-window buf)))
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	359 ((and buf (YaTeX-showup-buffer buf nil t)) t)
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	360 (t (YaTeX-hierarchy-select nil)))
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	361 (unwind-protect
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	362 (cond
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	363 ((eq action 'down) (scroll-down arg))
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	364 ((eq action 'top) (beginning-of-buffer))
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	365 ((eq action 'bottom) (end-of-buffer))
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	366 ((eq action 'last) (exchange-point-and-mark))
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	367 (t (scroll-up arg)))
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	368 (select-window cw))))
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	369
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	370 (defun YaTeX-hierarchy-scroll-down (arg)
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	371 "Scroll down file contents of YaTeX-hierarchy."
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	372 (interactive "P")
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	373 (YaTeX-hierarchy-scroll-up arg 'down))
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	374
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	375 (defun YaTeX-hierarchy-top ()
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	376 "Show the top of YaTeX-hierarchy inspection buffer's."
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	377 (interactive)
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	378 (YaTeX-hierarchy-scroll-up nil 'top)
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	379 )
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	380
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	381 (defun YaTeX-hierarchy-bottom ()
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	382 "Show the top of YaTeX-hierarchy inspection buffer's."
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	383 (interactive)
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	384 (YaTeX-hierarchy-scroll-up nil 'bottom)
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	385 )
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	386
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	387 (defun YaTeX-hierarchy-lastpos ()
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	388 "Go to last position in YaTeX-hierarchy buffer."
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	389 (interactive)
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	390 (YaTeX-hierarchy-scroll-up nil 'last)
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	391 )
52 5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	392
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	393 ;; ----- Setting up keymap -----
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	394 (defvar YaTeX-hierarchy-mode-map nil "Keymap used in YaTeX-hierarchy-mode.")
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	395 (if YaTeX-hierarchy-mode-map nil
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	396 (setq YaTeX-hierarchy-mode-map (make-sparse-keymap))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	397 (define-key YaTeX-hierarchy-mode-map "n" 'YaTeX-hierarchy-next)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	398 (define-key YaTeX-hierarchy-mode-map "p" 'YaTeX-hierarchy-prev)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	399 (define-key YaTeX-hierarchy-mode-map "j" 'YaTeX-hierarchy-next-line)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	400 (define-key YaTeX-hierarchy-mode-map "k" 'YaTeX-hierarchy-prev-line)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	401 (substitute-all-key-definition
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	402 'next-line 'YaTeX-hierarchy-next-line YaTeX-hierarchy-mode-map)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	403 (substitute-all-key-definition
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	404 'previous-line 'YaTeX-hierarchy-prev-line YaTeX-hierarchy-mode-map)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	405 (define-key YaTeX-hierarchy-mode-map "N" 'YaTeX-hierarchy-forward)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	406 (define-key YaTeX-hierarchy-mode-map "P" 'YaTeX-hierarchy-backward)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	407 (define-key YaTeX-hierarchy-mode-map "u" 'YaTeX-hierarchy-up-document)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	408 (define-key YaTeX-hierarchy-mode-map "K" 'YaTeX-hierarchy-kill-buffer)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	409 (define-key YaTeX-hierarchy-mode-map "1" 'delete-other-windows)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	410 (define-key YaTeX-hierarchy-mode-map "o" 'other-window)
53 5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	411 (define-key YaTeX-hierarchy-mode-map "-" 'shrink-window)
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	412 (define-key YaTeX-hierarchy-mode-map "+" 'enlarge-window)
52 5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	413 (define-key YaTeX-hierarchy-mode-map "." 'YaTeX-hierarchy-show)
53 5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	414 (define-key YaTeX-hierarchy-mode-map " " 'YaTeX-hierarchy-scroll-up)
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	415 (define-key YaTeX-hierarchy-mode-map "b" 'YaTeX-hierarchy-scroll-down)
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	416 (define-key YaTeX-hierarchy-mode-map "\C-?" 'YaTeX-hierarchy-scroll-down)
52 5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	417 (define-key YaTeX-hierarchy-mode-map "\C-m" 'YaTeX-hierarchy-select)
53 5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	418 (define-key YaTeX-hierarchy-mode-map "<" 'YaTeX-hierarchy-top)
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	419 (define-key YaTeX-hierarchy-mode-map ">" 'YaTeX-hierarchy-bottom)
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	420 (define-key YaTeX-hierarchy-mode-map "'" 'YaTeX-hierarchy-lastpos)
5f4b18da14b3 Fix functions relating YaTeX-beginning-of-environment or yuuji parents: 52 diff changeset	421 (define-key YaTeX-hierarchy-mode-map "g" 'YaTeX-hierarchy-select)
52 5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	422 (define-key YaTeX-hierarchy-mode-map "q" 'YaTeX-hierarchy-quit)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	423 (define-key YaTeX-hierarchy-mode-map "?" 'describe-mode)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	424 (if (and YaTeX-emacs-19 window-system)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	425 (define-key YaTeX-hierarchy-mode-map
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	426 [mouse-2] 'YaTeX-hierarchy-mouse-select))
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	427 )
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	428
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	429 (provide 'yatexhie)
5d94deabb9f9 Set YaTeX-indent-line to 'indent-line-function. yuuji parents: diff changeset	430 ;;end of yatexhie.el

Mercurial > hgrepos > hgweb.cgi > yatex

annotate yatexhie.el @ 364:d69fd7b1ac4d dev yatex-1.78