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