meadow->dvioutジャンプ

名前: y.a.
日時: 2003-05-09 23:03:51
IPアドレス: 219.184.208.*

いつもお世話になっています．
ささやかながらコミュニティに貢献できればと思います：

meadowからdvioutへジャンプする関数：dviout-jump-to-line を
xdvi-search.elを改変してつくりました．

.emacs等に付け加えて，適当にキーバインドしてください．
YaTeXを使っている場合は，

(add-hook 'yatex-mode-hook
	  '(lambda ()
	     (define-key YaTeX-mode-map "\C-c\C-j" 'dviout-jump-to-line)))

と.emacs に加えると，C-c C-j でmeadow上のカーソル近辺の単語からdvioutへ
ジャンプできます（dviout上では当該の単語が赤で表示されます）．


**********
;;; dviout-jump-to-line   ;stolen from xdvi-jump-to-line
(defun dviout-jump-to-line ()
  (interactive)
  (save-excursion
    (save-restriction
      (widen)
	  (let ((word (thing-at-point 'word)))
		(beginning-of-line 1)
		(let* ((curr-line (+ 1 (count-lines (point-min) (point))))
			   (master-file (expand-file-name (buffer-file-name)))
			   (dvi-file (concat (file-name-sans-extension master-file) ".dvi")))
		  (let ((arg (concat " -1 " dvi-file " '# " curr-line "/" word " " master-file "' &")))
			
			(save-window-excursion
			  (let* ((default-shell
					   (or (and (boundp 'explicit-shell-file-name) explicit-shell-file-name)
						   (getenv "ESHELL")
						   (getenv "SHELL")
						   "/bin/sh"))
					 (shell-redirection
					  (cond ((string-match "/bin/t?csh" default-shell)
							 (list ">&" ""))
							((list ">" "2>&1")))))
				(cond ((string-match "XEmacs" emacs-version)
					   (shell))
					  ((< emacs-major-version 21)
					   (shell))
					  ((shell "*xdvi-shell*")))
				(car shell-redirection)
				(comint-send-input)
				(insert "dviout" arg)
				(comint-send-input)))
			(message "searched '%s' on line %d" word curr-line ))
		  )))))

この書き込みへの返事：