| レス数が950を超えています。1000を超えると表示できなくなるよ。 |
Emacs part3
[358:名無しさん＠お腹いっぱい。 (02/01/10 03:47)]
こんな感じじゃない？
(if window-system
(progn
(require 'navi2ch-mona)
(add-hook 'navi2ch-article-arrange-message-hook 'navi2ch-mona-arrange-message)
(setq navi2ch-mona-enable t)
(new-fontset "pgothic12"
'((ascii
. "フォント名")......長いので略
))
(setq navi2ch-mona-font "pgothic12")
))
[359:名無しさん＠お腹いっぱい。 (02/01/10 11:26)]
ウィンドウが2つあるとき、これらの位置関係を
いれかえる elisp ありますか?
伝わりにくいかもしれんので詳しくかくと、
上に A というバッファがあって、下に B というのが
あるとき、これらを入れ換えたいという事です。
[360:名無しさん＠お腹いっぱい。 (02/01/10 16:01)]
>>359
自分で書けばいんじゃﾈ-ﾉ
[361:名無しさん＠お腹いっぱい。 (02/01/10 16:07)]
確かに俺でさえも書けそうだな。。。
いや無理だけど（ｗ
[362:名無しさん＠お腹いっぱい。 (02/01/10 20:31)]
どうも Emacs20 のほうが Emacs21 よりも
font-lock とか indent とか賢いようだ。
当分併用が続きそうだな...
# CVS 先端は知らん。
[363:タカノ (02/01/10 23:08)]
>>362
> font-lock とか indent とか賢いようだ。
具体的に教えてよ
[364:名無しさん＠お腹いっぱい。 (02/01/10 23:22)]
362では無いけど日記システムのTDSを書く支援elの
tdf-modeってのがあるんだけど20から21にしたら
色が付かなくなってしまった。
どなたか、中見てどこいじればいいのか教えてください。
http://tds.dive-in.to/dist/current/tds-1.7.1.tar.gz
の配布ファイルの中に入ってます。
[365:名無しさん＠お腹いっぱい。 (02/01/10 23:39)]
>>364
hilit を font-lock で書き換える。
(require 'font-lock)
(make-local-variable 'font-lock-defaults)
(setq font-lock-defaults '(tdf-font-lock-keywords t))
(font-lock-mode 1)
なんてのを適当な hook にひっかけつつこんなカンジで。
(defgroup tdf-faces nil
"TomSoft Diary File, Faces."
:prefix "tdf-"
:group 'tdf)
(defface tdf-cat-face '((t (:foreground "purple" :bold t)))
"Faces used for CAT."
:group 'tdf-faces)
(defface tdf-new-face '((t (:foreground "purple" :bold t)))
"Faces used for NEW, SNEW, NEW*."
:group 'tdf-faces)
(defface tdf-sub-face '((t (:foreground "purple")))
"Faces used for SUB, SSUB, SUB*."
:group 'tdf-faces)
(defface tdf-link-face '((t (:foreground "blue")))
"Faces used for link command."
:group 'tdf-faces)
(defface tdf-comment-face '((t (:foreground "firebrick")))
"Faces used for comment."
:group 'tdf-faces)
(defface tdf-strong-face '((t (:bold t)))
"Faces used for STRONG, EM."
:group 'tdf-faces)
(defvar tdf-font-lock-keywords
'(("^S?NEW .*" . tdf-new-face)
("^S?NEW\\*" . tdf-new-face)
("^S?SUB\\*? .*" . tdf-sub-face)
("^S?SUB\\*" . tdf-sub-face)
("^CAT .*" . tdf-cat-face)
("^\\(!\\|!#\\).*" . tdf-comment-face)
("^\\(LINK\\|URL\\)[ \t]+\\([^ \t]+[ \t]+[^ \t]+\\)"
1 tdf-link-face)
("^\\(URL\\|LINK\\|NEW\\*\\|SUB\\*\\)[ \t]+\\([^ \t\n]+\\)"
2 tdf-link-face))
"font-lock keyword of tdf-mode.")
パターンや色は適当にいじってくれ。要ハサミだ。61!
[366:名無しさん＠お腹いっぱい。 (02/01/11 03:16)]
>>339
> Emacs.Font: -ricoh-ms gothic-medium-r-normal-*-14-*-*-*-*-*-iso8859-1
> うちは.Xresourceにこれだけ指定してます。
こうやってみました。navi2chなどできちんとBoldもでてよかったのですが
Infoで見出し文字の日本語が拡大されている奴はMS Gothicじゃなくて
misc-fixedのフォントになちゃっています。
直し方プリーズ
[367:名無しさん＠お腹いっぱい。 (02/01/11 03:38)]
この騒ぎで emacs スレの 1 と 2 がどっかいっちゃったよ.
read.cgi ver5.26+ (01/10/21-)