[ubuntu-jp:2615] TeX, src-specials
Shigemitsu Takeyama
kantake ＠ wakayama-med.ac.jp
2010年 3月 23日 (火) 08:41:10 GMT
はじめまして。
この３月の上旬に、ubuntuをはじめて使い始めました。ずっとvineだったのですが、
ハードウェアの認識があまりに楽でビックリしました。emacsならびにTeX関係の環
境構築をぼちぼちはじめています。色々とハマっているのですが、一つ質問させて
ください。なお、emacs22を使用しています。
emacs+yatex環境で、emacsとxdviとを往復できるようにするsource-specialsですが、
これが動きません。ネット上で若干調べてみると、Ctrl+c, Ctrl+jでxdviに飛べな
い、と記してあるものと、チルダによるホームディレクトリの展開に失敗しているの
で、ローカル変数の表記をフルパスに変えれば大丈夫、と記してあるものとを見つけ
ました。
どこをどこいじればいいのかな、と色々やっているのですが、いまだにうまくいき
ません。何かヒントをいただければ幸です。手がかりになればと思うので、長文に
なりますが、.emacsを下に貼り付けます。よろしくお願いします。
## .emacsここから
;======================================================================
; 言語・文字コード関連の設定
;======================================================================
(when (equal emacs-major-version 21) (require 'un-define))
(set-language-environment "Japanese")
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-buffer-file-coding-system 'utf-8)
(setq default-buffer-file-coding-system 'utf-8)
(prefer-coding-system 'utf-8)
(set-default-coding-systems 'utf-8)
(setq file-name-coding-system 'utf-8)
;;
;======================================================================
; Anthy
; CTRL-\で入力モード切替え
;======================================================================
(load-library "anthy")
(setq default-input-method "japanese-anthy")
;;
;=======================================================================
;フォント xfontsのしののめを入れてから活かす。
;=======================================================================
(cond (window-system
(set-default-font "-*-fixed-medium-r-normal--16-*-*-*-*-*-*-*")
(progn
(set-face-font 'default
"-shinonome-gothic-medium-r-normal--16-*-*-*-*-*-*-*")
(set-face-font 'bold
"-shinonome-gothic-bold-r-normal--16-*-*-*-*-*-*-*")
(set-face-font 'italic
"-shinonome-gothic-medium-i-normal--16-*-*-*-*-*-*-*")
(set-face-font 'bold-italic
"-shinonome-gothic-bold-i-normal--16-*-*-*-*-*-*-*")
)))
;;
;=======================================================================
;フレームサイズ・位置・色など
;=======================================================================
(setq initial-frame-alist
(append (list
'(foreground-color . "black") ;; 文字色
'(background-color . "azure1") ;; 背景色
'(border-color . "black") ;;
'(mouse-color . "white") ;;
'(cursor-color . "orchid") ;;
'(width . 90) ;; フレームの幅
'(height . 50) ;; フレームの高さ
'(top . 0) ;; Y 表示位置
'(left . 850) ;; X 表示位置
)
initial-frame-alist))
(setq default-frame-alist initial-frame-alist)
;;
;=======================================================================
; Misc
;=======================================================================
;(mouse-wheel-mode) ;;ホイールマウスなんだけど、
(global-font-lock-mode t) ;;文字の色つけ
(setq line-number-mode t) ;;カーソルのある行番号を表示
(auto-compression-mode t) ;;日本語infoの文字化け防止
(set-scroll-bar-mode 'right) ;;スクロールバーを右に表示
(global-set-key "\C-z" 'undo) ;;UNDO
(setq frame-title-format ;;フレームのタイトル指定
(concat "%b - emacs@" system-name))
(display-time) ;;時計を表示
(global-set-key "\C-h" 'backward-delete-char) ;;Ctrl-Hでバックスペース
;(setq make-backup-files nil) ;;バックアップファイルを作成しない
;(setq visible-bell t) ;;警告音を消す
;(setq kill-whole-line t) ;;カーソルが行頭にある場合も行全体を削除
;(when (boundp 'show-trailing-whitespace) (setq-default show-trailing-whitespace t)) ;;行末のスペースを強調表示
;====================
;;ここからは竹山による作成。Ubuntuのemacsはこれがはじめてである。
;;Ubuntuでは .emacs.elや、.emacs.my.elは無いらしい。
;;これって、ちょっと不安なところもあるよな。
;;ちゃんと書き込んで、.emacs.elにしようかな。
;====================
;==========
;;起動時のスプラッシュスクリーンを出さない。
(setq inhibit-startup-message t)
;==========
;==========
;;/usr/share/emacs/site-lispにおいたauto-save-buffers.elで、
;;自動保存するための設定。
;;アイドルタイムはこれだと５秒になっている。
(require 'auto-save-buffers)
(run-with-idle-timer 5.0 t 'auto-save-buffers)
;==========
;==========
;;[Home] keyと[End] keyを従来の動作に戻す。
(define-key global-map [home] 'beginning-of-buffer)
(define-key global-map [end] 'end-of-buffer)
;==========
;==========
;;日付をカーソル位置に挿入するための設定。satoさんありがと。
(progn
(global-set-key "\M-d" 'sato-date)
(defun replace-in-string (str regexp newtext)
;;フィルター的文字置換 2002/09/10
;;人に作ってもらったもの
"Replace all matches in STR for REGEXP with NEWTEXT string,
and returns the new string.
usage:
(replace-in-string \"abac\" \"a\" \"d\")
"
(let ((start 0) newstr)
(while (string-match regexp str start)
(setq newstr (concat (substring str 0 (match-beginning 0))
newtext
(substring str (match-end 0)))
start (+ (match-end 0) (- (length newstr) (length str)))
str newstr))
str))
(defun sato-date-function ()
"2002/10/20"
(let*
(
(str0 (current-time-string))
(str (replace-in-string str0 " " "0"))
(a (substring str 20 24))
(b (substring str 4 7))
(c (substring str 8 10))
(d (cond
((string= b "Jan") "01")
((string= b "Feb") "02")
((string= b "Mar") "03")
((string= b "Apr") "04")
((string= b "May") "05")
((string= b "Jun") "06")
((string= b "Jul") "07")
((string= b "Aug") "08")
((string= b "Sep") "09")
((string= b "Oct") "10")
((string= b "Nov") "11")
((string= b "Dec") "12")
)
)
(str2 (concat a "/" d "/" c))
)
str2
)
)
(defun sato-date ()
"2002/10/20"
(interactive)
(let*
(
)
(insert
(sato-date-function)
)
)
)
)
;==========
;==========
;;YaTeX関係の設定。
;;基本の起動。
(autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)
;;YaTeX-mode
(setq auto-mode-alist
(cons (cons "\\.tex$" 'yatex-mode) auto-mode-alist))
(setq dvi2-command "xdvi"
tex-command "platex -src-specials"
dviprint-command-format "dvips %s | lpr"
YaTeX-kanji-code 3)
;;YaTeXが勝手に改行するのをとめる。
(add-hook 'yatex-mode-hook
'(lambda ()
(setq auto-fill-function nil)))
;;YaTeXでコメントアウト、解除を割り当てる まだ分からん。
;(add-hook 'yatex-mode-hook
; '(lambda ()
; (local-set-key "\
;;YaHtml-mode
(setq auto-mode-alist
(cons (cons "\\.html$" 'yahtml-mode) auto-mode-alist))
(autoload 'yahtml-mode "yahtml" "Yet Another HTML mode" t)
(setq yahtml-www-browser "firefox")
;;YaHtmlが勝手に改行するのをとめる。
(add-hook 'yahtml-mode-hook
#'(lambda ()
(auto-fill-mode -1)))
;;YaHtmlの文字コードをEUC-JPにする。
(setq yahtml-kanji-code 3)
;==========
;==========
;;TeXのsrc-specialのための設定
;;2010/03/10 これが残念ながらうまく動かない。
(server-start) ;これは必ず書く
(require 'xdvi-search)
(custom-set-variables
'(server-switch-hook (quote (raise-frame)))) ;窓を上にする
(custom-set-faces)
;;YaTeXにキーバインドを追加
(add-hook 'yatex-mode-hook
'(lambda ()
(define-key YaTeX-mode-map "\C-c\C-j" 'xdvi-jump-to-line-fullpath)))
;==========
;==========
;;ホイールマウスを使います。
(defun up-slightly () (interactive) (scroll-up 5))
(defun down-slightly () (interactive) (scroll-down 5))
(global-set-key [mouse-4] 'down-slightly)
(global-set-key [mouse-5] 'up-slightly)
(defun up-one () (interactive) (scroll-up 1))
(defun down-one () (interactive) (scroll-down 1))
(global-set-key [S-mouse-4] 'down-one)
(global-set-key [S-mouse-5] 'up-one)
(defun up-a-lot () (interactive) (scroll-up))
(defun down-a-lot () (interactive) (scroll-down))
(global-set-key [C-mouse-4] 'down-a-lot)
(global-set-key [C-mouse-5] 'up-a-lot)
;==========
;==========
;;辞書検索lookupのための設定。
;; 2010/03/17 うまく動いていたのが動かなくなった。
;; wrong type argument: listpだって。
;; 下のやてふ関係と関連しているのかな？
;(setq lookup-enable-splash nil)
;(autoload 'lookup "lookup" nil t)
;(autoload 'lookup-region "lookup" nil t)
;(autoload 'lookup-pattern "lookup" nil t)
;(define-key ctl-x-map "l" 'lookup) ;;C-x, l -- lookup
;(define-key ctl-x-map "y" 'lookup-region) ;;C-x, y -- lookup region
;(define-key ctl-x-map "\C-y" 'lookup-pattern) ;;C-x, C-y -- lookup pattern
;(setq lookup-search-agents
; '(
; (ndeb "/home/shige/jisho/Kojien5") ;;広辞苑
; (ndeb "/home/shige/jisho/ReadersPlus") ;;リーダーズプラス
; (ndeb "/home/shige/jisho/EiwaDai") ;;研究社英和大辞典
; (ndeb "/home/shige/jisho/WaeiDai") ;;研究社和英大辞典
; (ndeb "/home/shige/jisho/CrownD") ;;クラウン独和辞典
; ))
;==========
;==========
;;カーソルのチカチカをとめる。やっぱりチカチカさせよう。
;(blink-cursor-mode nil)
;==========
;==========
;;YaTeXのとき、reftex-modeを自動的に有効にする。
(add-hook 'latex-mode-hook 'turn-on-reftex) ;with Emacs latex mode
(add-hook 'Latex-mode-hook 'turn-on-reftex) ;with AUSTeX LaTeX mode
(add-hook 'yatex-mode-hook 'turn-on-reftex) ;with YaTeX mode
;(add-hook 'yatex-mode-hook ;;ここから下は要らないみたい？
; #'(lambda () ;;いや、コメント関係で要るはずだ。分からん。
; (reftex-mode 1)
; (define-key reftex-mode-map
; (concat YaTeX-prefix ">") 'YaTeX-comment-region)
; (define-key reftex-mode-map
; (concat YaTeX-prefix "<") 'YaTeX-uncomment-region))
;==========
;==========
;;Bibtexで和書のとき、OPTyomiを入れる。
;;2010/03/23 大事なメモ。
;;ubuntuでは、.bashrcではなく.profileにBIBINPUTSを書くこと。
;;でないと動いてくれません。
(setq bibtex-user-optional-fields
'(("annote" "Personal annotation (ignored)")
("yomi" "Yomigana")
("location" "where it is (ignored)")
("memo" "Memorundum (ignored)")
))
;==========
;==========
;;最終更新日時の自動挿入
;;ファイルの先頭から８行以内にTime-stamp: <>またはTime-stamp: " "と
;;書いてあれば、セーブのときに自動的に日時が挿入される。
(if (not (memq 'time-stamp write-file-hooks))
(setq write-file-hooks
(cons 'time-stamp write-file-hooks)))
;==========
;==========
;;最近使ったファイルをFileメニューに追加する。
(require 'recentf)
(recentf-mode 1)
;==========
## .emacsここまで
--
**********
Shigemitsu Takeyama
Philosophy and Ethics
Wakayama Medical University
**********
竹山 重光
哲学倫理学
和歌山県立医科大学
**********
ubuntu-jp メーリングリストの案内