自慢の.emacsを貼り付けよう

1 ：こっそりだどん ：01/09/25 13:54

皆さんの自慢の.emacsを貼り付けてください。
＃もう他人のディレクトリへ行って勝手に.emacs見るの疲れました。

36 ：名無しさん＠お腹いっぱい。 ：01/09/29 13:31

(fset 'previous-buffer 'bury-buffer)
じゃだめなの? >>32

37 ：名無しさん＠お腹いっぱい。 ：01/09/29 17:29

>>32自分はbury-bufferとelectric-buffer-listをキーバインドしてます。

ところでカレントディレクトリの*.cファイルや*.javaファイルを
バッファに読み込むというのはどうやるんでしょうか?
find-fileと正規表現を使ってできそうなんだけどなあ。

38 ：名無しさん＠お腹いっぱい。 ：01/09/30 01:01

気軽にバイトコンパイル。


(defun kasu-byte-compile-this-file ()
"Compile current-buffer-file of Lisp into a file of byte code."
(interactive)
(byte-compile-file buffer-file-name t))

;;; キーバインド
(global-set-key "\C-x!" 'kasu-byte-compile-this-file)

39 ：名無しさん＠お腹いっぱい。 ：01/09/30 04:41

;;; .emacs.el を終了時にバイトコンパイルする
(add-hook 'kill-emacs-hook
(lambda ()
(if (file-newer-than-file-p "~/.emacs.el" "~/.emacs.elc")
(progn
(require 'bytecomp)
(displaying-byte-compile-warnings
(unless (byte-compile-file "~/.emacs.el")
(signal nil nil)))))))

;;; dired をちょっと便利にする
(define-key dired-mode-map "c" ; c で他の window に コピー
(lambda (arg) (interactive "P")
(let ((dired-dwim-target t)) (dired-do-copy arg))))
(define-key dired-mode-map "r" ; r で他の window に 移動
(lambda (arg) (interactive "P")
(let ((dired-dwim-target t)) (dired-do-rename arg))))

;;; タイトルバーに今開いてるファイルのフルパスかバッファ名を表示する
(defvar dired-mode-p nil)
(add-hook 'dired-mode-hook
(lambda ()
(make-local-variable 'dired-mode-p)
(setq dired-mode-p t)))
(setq frame-title-format-orig frame-title-format)
(setq frame-title-format '((buffer-file-name "%f"
(dired-mode-p default-directory
mode-line-buffer-identification))))

40 ：直近の追加 ：01/10/12 01:14

/usr/local/share/emacs/site-lip 以下には作らないようにしましょう。


(setq load-path (cons "~/navi2ch" load-path))
(require 'navi2ch)

41 ：名無しさん＠お腹いっぱい。 ：01/10/12 12:13

;ホイールでのスクロールスピードをwindowの大きさに比例させる
(defvar wheel-scroll-ratio 0.5)
(defun wheel-scroll-count (window)
(ceiling (* wheel-scroll-ratio
(float (window-height window)))))
(defun wheel-scroll-window (event cmd)
(let ((window (event-window event)))
(if window
(save-selected-window
(select-window window t)
(funcall cmd (wheel-scroll-count window))))))

(defun wheel-scroll-up (event)
(interactive "e")
(wheel-scroll-window event 'scroll-up))
(defun wheel-scroll-down (event)
(interactive "e")
(wheel-scroll-window event 'scroll-down))
(global-set-key 'button4 'wheel-scroll-down)
(global-set-key 'button5 'wheel-scroll-up)

42 ：名無しさん＠お腹いっぱい。 ：01/10/12 12:21

sigefumi@cts-net.ne.jp
piko-@jp-t.ne.jp
rukia@hkg.odn.ne.jp
fb4t-fjt@asahi-net.or.jp
tune@yellow.plala.or.jp
blackwidow@anet.ne.jp
zbf46927@boat.zero.ad.jp
ccv21590@hkg.odn.ne.jp
kengo@d9.dion.ne.jp
aokin_doll@anet.ne.jp
siosai@itpmail.itp.ne.jp
natamoky@zb4.so-net.ne.jp
shikata@nyc.odn.ne.jp
mrk3@f4.dion.ne.jp
yasuhumi-i@tokai.or.jp
whxd777@docomo.ne.jp
you1991@muj.biglobe.ne.jp
yoshiteru-s@docomo.ne.jp
ye183@viola.ocn.ne.jp
nyao@pop02.odn.ne.jp
xxxx777xxxx777@docomo.ne.jp
ye183@viola.ocn.ne.jp
matsuda@f-maria.co.jp
yukinon@poppy.ne.jp
cds09690@par.odn.ne.jp
kasugan.@docomo.ne.jp
0507s-0920y@hcc5.bai.ne.jp

43 ：名無しさん ：01/10/16 10:46

・C-hv とか ファイル名補完時のウィンドウを自動的にリサイズする。
(temp-buffer-resize-mode t)

・起動時のエコーエリアのメッセージすら消す。
(setq inhibit-startup-echo-area-message ログイン名)

バイトコンパイルする場合は
(eval '(setq inhibit-startup-echo-area-message ログイン名))

・検索とかリージョンを色付きに。
(setq transient-mark-mode t)
(setq search-highlight t)
(setq query-replace-highlight t)

44 ：名無しさん＠お腹いっぱい。 ：01/10/16 10:50

補完時に大文字小文字の区別なし。
(completion-ignore-case t)

tcsh みたいな補完してくれるパッケージないかな....

.e.e [TAB]
.emacs.elc とか

p-h [TAB]
public_html/ みたいなの。

45 ：名無しさん＠お腹いっぱい。 ：01/10/16 11:17

>>44
Emacs 標準附属のものでは、一応

(partial-completion-mode t)

とすると近いことはできる。が、tcsh や zsh の
強力さはない。俺もそういうパッケージがあれば教えて
ほしい。

あと、ミニバッファでの M-p や M-n は、tcsh の
history-search-{backward,history-search-forward}
と同じ動作をしてくれると非常に快適なんだが。

46 ：名無しさん＠お腹いっぱい。 ：01/10/16 11:18

>>45
history-search-{backward,forward} だ (鬱

47 ：名無しさん＠お腹いっぱい。 ：01/10/16 12:22

うわ。tcshでそんなことできたのか。
set complete=enhance でそうなるのね..
ついでに dirstack substitutionsも初めて知った...
manual pageもたまにはちゃんと読んでみるもんだ。

で、completer.el ってやつがすこしはお望みの補完に近いかも。
lisp-modeの M-TAB とかでもつかえるし。
ただ、emacs-19のころに使ってたので、最近は使えるかな。

48 ：名無しさん＠お腹いっぱい。 ：01/10/16 14:32

スレ違いなんでsageで。

>>47

cd -
とか
set implicitcd で
cd .. のかわりに .. だけでOKとか。

.tcshrc もなくなったらやだなぁ。
一生懸命作ったcompleteの羅列がね...
こいつのせいでzshへの移行が躊躇われる。

49 ：名無しさん＠お腹いっぱい。 ：01/10/16 14:48

>>47
completer.el 発見。

http://www.mit.edu/afs/sipb/project/clisp/source/ilisp/completer.el

1993/09/03 って...八年前ですか。

で、効果の程は...おしい! 非常に。

.e.e [TAB] .emacs.el とか
.s- [TAB] .skk-jisyo とかは上手く動いてるんだけど、
p-h [TAB] public_html がダメ。

設定でなんとかなるのかな？

50 ：名無しさん＠お腹いっぱい。 ：01/10/16 18:55

MacでEmacs20.6使ってる人いますか?
SKK起動した後だとC-x C-cで終了しようとしても、

Symbol's function definition is void: process-status

とゆって終了できないのです。なんでー。

Daredevil SKK/11.5.1 (Hotarugaike)つこてます。

51 ：名無しさん＠お腹いっぱい。 ：01/10/16 19:23

適切なスレに書き込んでくれ。
せっかくの.emacsのサンプルが埋もれる。
とりあえずAPELが古いんじゃないの？
最新版をインストールしべし。

52 ：名無しさん＠お腹いっぱい。 ：01/10/16 20:22

すんません。おもいきり誤爆でした。
厨房の僕も、このスレ楽しみにしてます。

53 ：名無しさん＠お腹いっぱい。 ：01/10/16 20:53

;; iswitchb で絞り込みをやる
(add-hook 'iswitchb-define-mode-map-hook
(lambda ()
(define-key iswitchb-mode-map "\C-o" 'iswitchb-shrink-buflist)))

(defun iswitchb-shrink-buflist ()
(interactive)
(setq iswitchb-buflist iswitchb-matches)
(erase-buffer))

;; 最近作ったんだけど、なかなか便利よ。

54 ：名無しさん＠お腹いっぱい。 ：01/10/18 01:44

文章に自動でタイムスタンプを。

(add-hook 'write-file-hooks 'time-stamp)
(setq time-stamp-start 開始部の正規表現)
(setq time-stamp-end 終了部の正規表現)
(setq time-stamp-format そのまんま)

describe-variable すると変更するなやって書いてあるが。
前調べたときはこれ使ってるパッケージなかったような気が。

55 ：名無しさん＠お腹いっぱい。 ：01/10/18 01:48

あるディレクトリ以下のサブディレクトリを
すべて load-path に追加する。

(let ((toplevel "~/share/site-lisp"))
(mapcar '(lambda (file)
(and (not (string-match "\\.+$" file))
(file-directory-p file)
(setq load-path (cons file load-path))))
(directory-files toplevel t))
(setq load-path (cons toplevel load-path)))

subdirs.el が使えないようなユーザさんにおすすめ。

56 ：名無しさん＠お腹いっぱい。 ：01/10/18 01:52

標準以外のカスタマイズテク載せるのもアリですか？
.gnusとか.wlとか。

57 ：名無しさん＠Ｅｍａｃｓ ：01/10/18 02:09

>>56
みたいです。

58 ：名無しさん＠お腹いっぱい。 ：01/10/18 02:37

.gnusは見たいな。
あとliece用のもキボン

59 ：名無しさん＠お腹いっぱい。 ：01/10/18 11:41

>>55
あー、それ欲しかったんだー。 サンキュー！

60 ：名無しさん＠お腹いっぱい。 ：01/10/18 12:52

emacs 終了時に確認する。
(if (eq emacs-major-version 21)
(setq confirm-kill-emacs 'yes-or-no-p)
(defun my-save-buffers-kill-emacs ()
(interactive)
(if (yes-or-no-p "quit emacs? ")
(save-buffers-kill-emacs)))
(global-set-key "\C-x\C-c" 'my-save-buffers-kill-emacs))

61 ：名無しさん＠お腹いっぱい。 ：01/10/18 14:17

>>54
そう, なぜか変更するなと書いてあるんで, しょうがないから
自分で同等のものを作ったんだが, 変更しても大丈夫?

62 ：名無しさん＠お腹いっぱい。 ：01/10/18 15:28

;;54じゃないが。
>>61
time-stamp-(start|end) の正規表現をちゃんと考えて指定しないと
それにマッチする関係無い行まで変化しちゃうから慎重にやれって事かなぁ
と思てるよ。ちなみに漏れは
(setq time-stamp-start "Last modified:")
(setq time-stamp-end "$")
こうしてる。
ところで今気付いたのだが、 emacs21 だと

;; Last modified: 水曜日 10月 17 14:47:43 JST 2001

こんな風に日本語になってしまった。鬱だ。対処法教えてくれ。

63 ：61 ：01/10/18 16:12

>>62
Last modified: の方が Time-stamp:<> よりかっこいいよね.
emacs21 は使っていないので残念ながらわかりませんが,
(current-time-string) はどうなってる?

64 ：62 ：01/10/18 17:08

>>61
(current-time-string) は問題無いです。
で、emacs21 だと time-stamp-format の doc-string に

The values of non-numeric formatted items depend
on the locale setting recorded in `system-time-locale' and
`locale-coding-system'. The examples here are for the default
(`C') locale.

というのがありました。(どちらも emacs21 で導入された変数)
因みに system-time-locale は nil で、locale-coding-system は
japanese-iso-8bit になってました。
さて、これをどう設定したものか。

65 ：名無しさん＠お腹いっぱい。 ：01/10/18 17:30

俺も emacs21 は使ってないんでよく判らないんですが、
system-time-locale を "C" とかにしてみるとどうでしょうか？

あと以下を試してみるとうまくいくかも。

(defadvice time-stamp (around time-stamp-force-c-locale activate)
(let ((locale-coding-system 'iso-latin-1))
ad-do-it))

66 ：名無しさん＠お腹いっぱい。 ：01/10/18 18:05

(setq system-time-locale nil)
(format-time-string "%a" (current-time))
"木"
(setq system-time-locale "C")
"C"
(format-time-string "%a" (current-time))
"Thu"

67 ：62 ：01/10/18 18:26

(setq system-time-locale "C")
で ok でした。Thanx!

68 ：名無しさん＠お腹いっぱい。 ：01/10/21 08:46

そろそろネタなくなってきたかな。
こういうパッケージがあるんだぜよ！
とかでもうれしいんだけどなぁ。

ちゅうことでおすすめパッケージ。

・tramp
ssh版ange-ftp。
日本語ドキュメント付きで大変すばらしい。
http://tramp.sourceforge.net/

・MMM mode
マルチモード。文脈によってモードを切り替え。
html中のスクリプト編集に便利。PHPとかJSPとか。
使ってないけど。
http://mmm-mode.sourceforge.net/

ソースフォージばっかりだし。

うーん。
インストールしてるパッケージ、
ほとんどどこかで紹介済みだわ。
とほほ。

69 ：名無しさん＠お腹いっぱい。 ：01/10/21 10:20

(when (eq emacs-major-version 21)
;; よそのウィンドウにはカーソルを表示しない
(setq cursor-in-non-selected-windows nil)
;; カーソルの点滅をやめる
(blink-cursor-mode 0)
;; ツールバーを表示しない
(tool-bar-mode nil)
;; 画像ファイルを表示
(auto-image-file-mode)
;; ホイールマウスを使う
(mouse-wheel-mode)
;; 無駄な空行に気付きやすくする
(setq-default indicate-empty-lines t)
;; isearch のハイライトの反応をよくする
(setq isearch-lazy-highlight-initial-delay 0)
;; line-space
(setq-default line-spacing 1))

70 ：名無しさん＠お腹いっぱい。 ：01/10/21 15:57

>>69
ためになった。ありがと。

71 ：名無しさん＠お腹いっぱい。 ：01/10/21 15:57

;;;wl で refile したら check する
(defadvice wl-summary-exec (around my-ad activate)
(let (folder-list)
(dolist (folder (cons wl-trash-folder
(mapcar 'cdr (append wl-summary-buffer-refile-list
wl-summary-buffer-copy-list))))
(unless (member folder folder-list)
(push folder folder-list)))
ad-do-it
(dolist (folder folder-list)
(wl-folder-check-entity folder))))

>>68
mmm-mode はいいね。これがないと jsp のコードなんてみずらくてかなわない。

おすすめの小物だと
highline - 現在行に underline 等を表示
http://www.cpqd.br/~vinicius/emacs/Emacs.html

igrep - grep の(俺的には使いやすい)インタフェイス
どこにあったか忘れた(^^;

browse-kill-ring - browse-yank の現代版(？)
http://web.verbum.org/~walters/

72 ：名無しさん＠お腹いっぱい。 ：01/10/21 16:05

>>68
そういうのは本スレでやったら?
http://cocoa.2ch.net/test/read.cgi/unix/1001087615/l10

73 ：名無しさん＠Ｅｍａｃｓ ：01/10/21 16:49

>>71
> highline - 現在行に underline 等を表示
> http://www.cpqd.br/~vinicius/emacs/Emacs.html

それ、物凄く気に入ったのですが、こういうのを起動時に必ず（と言うか、ずーっと）
onにするにはどう書けば良いんでしょうか？
厨房で申し訳ないのですが、どなたか教えてください

74 ：名無しさん＠お腹いっぱい。 ：01/10/21 16:58

(require 'highline)
(highline-mode)
じゃネーノ？
highline.el に書いてあるだろ？

75 ：名無しさん＠お腹いっぱい。 ：01/10/21 16:59

俺も導入してみた。
;
; highline.el
;
(require 'highline)
(global-set-key "\C-c\C-a" 'highline-on)
(global-set-key "\C-c\C-b" 'highline-off)
として使ってる。
ずっとつけるのは俺も厨房なんで分からん。
後俺は、このhighlineのいろをいろいろ変えたいんだけど、
どうやるの？

76 ：名無しさん＠お腹いっぱい。 ：01/10/21 17:04

>>75
だから、highline.el 読めって。

77 ：名無しさん＠Ｅｍａｃｓ ：01/10/21 17:26

> (require 'highline)
> (highline-mode)

出来ました。


> highline.el に書いてあるだろ？
一応読みましたが、二行目のが分からなかったんです(；´Д｀)
有難うございました。

78 ：名無しさん＠お腹いっぱい。 ：01/10/24 10:41

Emacs21への移行が忙がしくて
ネタ披露する暇もないのかな。みんな。

ちなみにワチキはネタがもうないです。

79 ：名無しさん＠お腹いっぱい。 ：01/10/24 11:08

よく「僕はまだMule2.3使っています」
なんていっている奴がいると内心
「おいおやじ、さっさとEmacs20.xなり,XEmacsに移行しろや」
と思っていたんですが実際Emacs21がでるとそのおやじの
気持がわかった気がします。
移行がおっくうですね。

80 ：名無しさん＠お腹いっぱい。 ：01/10/24 12:52

>>79
わかる。わかる。

関係ないけど、
hilit19 から font-lock に移行するのには時間かかったよ....

81 ：名無しさん＠お腹いっぱい。 ：01/10/25 10:40

;
(defun query-call-last-kbd-macro ()
(interactive)
(let ((c ?\ ))
(while (eq c ?\ )
(call-last-kbd-macro)
(message "press SPC to repeat call-last-kbd-macro")
(setq c (read-char)))))

82 ：名無しさん＠お腹いっぱい。 ：01/10/25 11:22

>>71 ありがとー。こゆの欲しかった。
こういうのを作ってみました。
縦分割したウィンドウをother-windowで移動する時に，
ウィンドウの横幅の比率を変化させる。

(defun my-other-window ()
""
(interactive)
(other-window 1)
(let (( max-width (truncate (* (screen-width) 0.65))))
(if ( < (window-width) max-width)
(enlarge-window-horizontally (- max-width (window-width))))))

0.65はウィンドウの大きさの比率。1が最大。

83 ：81 ：01/10/25 11:39

ほんとうは
C-x z z z ...
のように
C-x e e e ...
C-x o o o ...
C-x u u u ...
とできるようにしてみたかったのですが、、、
だれか書いて。

84 ：名無しさん＠お腹いっぱい。 ：01/10/25 13:45

(defvar default-msg "おまえモナー")
(defvar mona
'("　　∧＿∧　　 ／￣￣￣￣￣￣￣￣\n"
"　（ ´∀｀）＜　" mona-msg "\n"
"　（　　　 ）　＼＿＿＿＿＿＿＿＿\n"
"　 ｜ ｜　｜\n"
"　（_＿）＿）\n"))
(defun mona (msg)
"どこでもモナー。
mew とかで メール見てるときにやると面白いかも."
(interactive "smessage: ")

(let ((list mona)
(mona-msg default-msg)
rect tmp)
(unless (string= msg "")
(setq mona-msg msg))
(while list
(setq tmp (concat tmp (eval (car list))))
(if (string-match "\\(.*\\)\n" tmp)
(progn
(setq rect (cons (match-string 1 tmp) rect))
(setq tmp nil)))
(setq list (cdr list)))
(setq rect (reverse rect))
(let ((buffer-read-only nil))
(insert-rectangle rect))))

read.cgi ver5.26+ (01/10/21-)