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

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

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

2 ：名無しさん＠お腹いっぱい。 ：01/09/25 20:40

(kill-emacs)

3 ：名無しさん＠お腹いっぱい。 ：01/09/25 22:40

(load "~/elisp/.emacs")

4 ：名無しさん＠お腹いっぱい。 ：01/09/25 22:47

他人のディレクトリに設定ファイルを見に行って
隠れヲタと知るのも人生経験のうち。

5 ：名無しさん＠お腹いっぱい。 ：01/09/26 00:45

>>4
勝手に他人のところ見るのはクラッカーです。
クラッカーはテロリストです(by最近の米国の法案)

というわけで、ぼくら人民は人生経験しなくていいぞ、ということだそうです。
きっとウマウマな福祉で養ってくれるんだろうな政府が…

6 ：俺 ：01/09/26 01:48

俺です。

teratermでtelnetしたときにキーボードの設定でＢＳに
チェックをいれないでも、ＢＳがemacsで使えるような
設定方法しりませんか？

おしえてちょんまげ

7 ：俺 ：01/09/26 01:50

それと、emacs-20.7　って日本語対応していますか？

tera termでtelnetでつないでemacsで漢字編集しようとしたら
文字がバケラッタなんですけど。

tera termはちゃんとVT100JでEUCにしてます

8 ：名無しさん＠お腹いっぱい。 ：01/09/26 01:51

;; Don't Display Startup Message
(setq inhibit-startup-message t)

;;C-x bでbuffersを選ぶ時便利
(iswitchb-default-keybindings)

;; 警告音のかわりに画面フラッシュ
(setq visible-bell t)

;; ステータスラインに時間を表示する
(display-time)

;; 行番号・桁番号をモードラインに表示する
(line-number-mode t) ; 行番号
(column-number-mode t) ; 桁番号

;; 画面から出たとき一行だけスクロールさせる
(setq scroll-conservatively 1)

;; バッファの最後の行で next-line しても新しい行を作らない
(setq next-line-add-newlines nil)

;; バッファの最初の行で previous-line しても、
;; "beginning-of-buffer" と注意されないようにする。
(defun previous-line (arg)
(interactive "p")
(if (interactive-p)
(condition-case nil
(line-move (- arg))
((beginning-of-buffer end-of-buffer)))
(line-move (- arg)))
nil)

;; C-h と Del の入れ替え
;; Help が Shift + Ctrl + h および Del に割当てられ、
;; 前一文字削除が Ctrl + h に割当てられます
(load-library "term/keyswap")
(if (eq window-system 'x)
(progn
(define-key function-key-map [delete] [8])
(put 'delete 'ascii-character 8)))

9 ：名無しさん＠お腹いっぱい。 ：01/09/26 01:52

;; 長い文章の折り返しで物理的に次の行に移動
(global-set-key "\C-p" 'previous-window-line)
(global-set-key "\C-n" 'next-window-line)
(global-set-key [up] 'previous-window-line)
(global-set-key [down] 'next-window-line)
(defun previous-window-line (n)
(interactive "p")
(let ((cur-col
(- (current-column)
(save-excursion (vertical-motion 0) (current-column)))))
(vertical-motion (- n))
(move-to-column (+ (current-column) cur-col)))
(run-hooks 'auto-line-hook)
)
(defun next-window-line (n)
(interactive "p")
(let ((cur-col
(- (current-column)
(save-excursion (vertical-motion 0) (current-column)))))
(vertical-motion n)
(move-to-column (+ (current-column) cur-col)))
(run-hooks 'auto-line-hook)
)

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

;; C-x %で対応括弧に簡単にジャンプ
(progn
(defvar com-point nil
"Remember com point as a marker. \(buffer specific\)")
(set-default 'com-point (make-marker))
(defun getcom (arg)
"Get com part of prefix-argument ARG."
(cond ((null arg) nil)
((consp arg) (cdr arg))
(t nil)))
(defun paren-match (arg)
"Go to the matching parenthesis."
(interactive "P")
(let ((com (getcom arg)))
(if (numberp arg)
(if (or (> arg 99) (< arg 1))
(error "Prefix must be between 1 and 99.")
(goto-char
(if (> (point-max) 80000)
(* (/ (point-max) 100) arg)
(/ (* (point-max) arg) 100)))
(back-to-indentation))
(cond ((looking-at "[\(\[{]")
(if com (move-marker com-point (point)))
(forward-sexp 1)
(if com
(paren-match nil com)
(backward-char)))
((looking-at "[])}]")
(forward-char)
(if com (move-marker com-point (point)))
(backward-sexp 1)
(if com (paren-match nil com)))
(t (error ""))))))
(define-key ctl-x-map "%" 'paren-match))


自分も便利なの知りたいのでｺﾋﾟﾍﾟ

11 ：名無しさん＠Ｅｍａｃｓ ：01/09/26 04:30

うちはこんなの使ってます。

;; バッファを切り替えるのに C-x e で electric-buffer-list を使う。
(global-set-key "\C-xe" 'electric-buffer-list)

;; hoge.txt~ みたいなバックアップファイルを作らないようにする
(setq backup-inhibited t)

;; c-mode その他で色が付くようにする
(global-font-lock-mode)

12 ：名無しさん＠お腹いっぱい。 ：01/09/26 06:04

http://cocoa.2ch.net/test/read.cgi?bbs=unix&key=1001087615&ls=50
にいけ >>6-7

13 ：名無しさん＠お腹いっぱい。 ：01/09/26 08:35

どっかで見たようなのばっかだぞ。
目から鱗が落ちるようなヤツプリーズ。

14 ：名無しさん＠お腹いっぱい。 ：01/09/26 10:53

>>13

(require 'navi2ch)

15 ：名無しさん＠お腹いっぱい。 ：01/09/26 14:04

上の方と重なっていないものだけね。
わからないのは descrive-variable しろ。
ほかにもいっぱいあるけど (1MB くらい)、個人的なものなので。
(setq message-log-max 200)
(auto-compression-mode t)
(setq apropos-do-all t)
(setq custom-file "~/.custom.el")
(setq-default fill-column 72)
(auto-show-mode t)
;; font-lock
(global-font-lock-mode t)
(setq font-lock-support-mode 'fast-lock-mode)
(setq fast-lock-cache-directories '("~/.emacs.d/emacs-flc"))
(setq auto-save-list-file-prefix "~/.emacs.d/auto-save-list/.saves-")
(setq temporary-file-directory "~/.emacs.d/tmp")
;; abbrev
(read-abbrev-file "~/.abbrev_defs")
(setq save-abbrevs t)
;; version control
(setq vc-follow-symlinks t)
(setq vc-suppress-confirm t)
(setq vc-command-messages t)
;; enable narrow
(put 'narrow-to-region 'disabled nil)
(put 'narrow-to-page 'disabled nil)
;;
(setq outline-minor-mode-prefix "\C-c\C-c")
(global-set-key "\M-V" 'scroll-other-window-down)

16 ：名無しさん＠お腹いっぱい。 ：01/09/26 15:41

.emacs が 1MB もあったら起動が遅そうだ...
bytecompile でもしてる?(ﾜﾗ

17 ：名無しさん＠お腹いっぱい。 ：01/09/26 21:34

8みたいなTipsおいしい！

18 ：名無しさん＠お腹いっぱい。 ：01/09/26 22:25

>16
15じゃないけど俺はしてるよ。
kill-emacs-hookに引っかけとけばいいだけだし

19 ：名無しさん＠お腹いっぱい。 ：01/09/26 22:58

適当に分割すればいいのに。

20 ：名無しさん＠お腹いっぱい。 ：01/09/27 01:45

量が多いなら ~/.emacs.el に名前変えてバイトコンパイルせー
と info に書かれとる。

21 ：名無しさん＠お腹いっぱい。 ：01/09/27 01:57

~/.emacsをバイトコンパイルすると~/.emacs.elcになって、
customizeで設定を保存するとlispのソースが~/.emacs.elc
の末尾に追加されちゃう。あれは困る。

関係無いけど、モナーが踊るマクロは無い？
タコが踊るやつはあったよね？

22 ：名無しさん＠お腹いっぱい。 ：01/09/27 02:00

>>21
M-x describe-variable custom-file

23 ：15 ：01/09/27 12:31

>>19
いや、分割して byte-compile してます。

24 ：名無しさん＠お腹いっぱい。 ：01/09/27 18:59

.emacs なんて、ほとんど毎日書き換えて育てていくものだから、

分割したり、いちいちバイトコンパイルするのは面倒だと思うのだが、、、

25 ：名無しさん＠お腹いっぱい。 ：01/09/27 19:46

;ホイールつきマウスのホイールで、スクロールするための設定
(define-key global-map 'button4
'(lambda (&rest args)
(interactive)
(let ((curwin (selected-window)))
(select-window (car (mouse-pixel-position)))
(scroll-down 5)
(select-window curwin)
)))
(define-key global-map 'button5
'(lambda (&rest args)
(interactive)
(let ((curwin (selected-window)))
(select-window (car (mouse-pixel-position)))
(scroll-up 5)
(select-window curwin)
)))

26 ：名無しさん＠お腹いっぱい。 ：01/09/27 21:34

(iswitchb-default-keybindings)
(resize-minibuffer-mode)
↓
(ﾟдﾟ)ｳﾏｰ

27 ：23 ：01/09/28 13:06

>>24
そうですか? 例えば skk はこの file とか lookup はこの file とか決めておけば、
すぐ改造したいものがみつかっていいと思うんですが。byte-compile も
M-x byte-recompile-directory すればいいし。

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

>>23
.emacsは
(byte-recompile-directory "~/Elisp/")
(load "~/Elisp/startup")
だけにしとけば細かいこと気にしないですむね。

29 ：ぽ ：01/09/28 17:53

どっかで見たコードです。
けっこう便利＾＾）

;; Auto +x
(add-hook
'after-save-hook
'(lambda ()
(save-restriction
(widen)
(if (or
(string= "#!" (buffer-substring 1 (min 3 (point-max))))
(string-match ".cgi$" (buffer-file-name)))
(let ((name (buffer-file-name)))
(or (char-equal ?. (string-to-char (file-name-nondirectory name)))
(let ((mode (file-modes name)))
(set-file-modes name (logior mode (logand (/ mode 4) 73)))
(message (concat "Wrote " name " (+x)"))))
)))))


ange-ftp 経由の時は無効にする方法が知りたい。

30 ：ぽ ：01/09/28 17:55

同じタイプミスを繰り返す人は
write-file-hook
で
(replace-string (concat "ret" "run") "return")
も便利

31 ：名無しさん＠お腹いっぱい。 ：01/09/28 18:19

; ------------------ time & biff ---------------

(setq display-time-24hr-format t)
(setq display-time-day-and-date t)
(setq display-time-string-forms
'(month "/" day "(" dayname ") " 24-hours ":" minutes))
(display-time)

; --------------- for sunrise-sunset -----------

(setq calendar-latitude 35.0)
(setq calendar-longitude 139.0)
(setq calendar-time-display-form
'(24-hours ":" minutes
(if time-zone "(") time-zone (if time-zone ")" )))

32 ：名無しさん＠お腹いっぱい。 ：01/09/28 21:51

C-t、M-C-tでバッファの高速切り替え
(defun previous-buffer ()
"Select previous window."
(interactive)
(bury-buffer))
(defun backward-buffer ()
"Select backward window."
(interactive)
(switch-to-buffer
(car (reverse (buffer-list)))))
(global-set-key "\C-t" 'previous-buffer)
(global-set-key "\M-\C-t" 'backward-buffer)
これは使える!と信じて書いたが、全然使わん。
バッファをあまり開かない人向き?

33 ：名無しさん＠お腹いっぱい。 ：01/09/29 00:04

>>27

変数とか関数の定義位置に飛ぶのはすぐにできるので、
わたしは逆にファイルを分割することなんかどうでもいいと思っている。

emacs-lispでプログラミングする際に、陽にファイル名を指定してオー
プンすることはめったにない(だって、Emacsでプログラミングしている
んだから)。

コードを整理するという意味はあるけど、別に外に出すもんじゃなかっ
たらどうでもいい。どう分けるか判断つかないこともあるし。

たとえば shell-modeを改造していて comintまでいじらなきゃならなく
なったときに、どう分けておくか。

XEmacsの completerは使いたいけど、こいつが comintをロードしてい
る作法がひどいので、そっちでも調整が必要だとか。

34 ：27 ：01/09/29 02:22

>>33 うん、必要なければそれでいいと思うし、分割しろと主張する
つもりもないですが、一応僕が分割する理由を書いておきます。
ケンカはしたくないんで、参考程度にでも見て下さい。

revision 管理しやすい (特に特定の目的をもった自作の function 群を
一つの file にまとめて、revision を有意に残す)

改造した skk の rom-kana-list など(合計 4000 行もあります(笑)) のように
クソ長い list を別 file に押し込めたい

どのくらい使うかわからない specific な package の設定を
general な .emacs に書きたくない

といった点です。ちなみに複数に関係するような調整は僕も悩みますが、
そういう場合は両方に依存する file として独立させます。
.emacs から load するのですが、 file 間の依存関係や順序を
明確にしておけば、任意の機能だけ使わないとかの調整がすぐできるので、
debug もしやすいです。

# ただ僕の場合 .emacs の編集というよりも自作の fuction を整理するというのに
# 近いんで、 .emacs を分割というのとはちょっと趣きが違うかも。

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

>32
おおお、便利じゃん。
使わせてもらうぞ！！

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-)