自慢の.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)
これは使える!と信じて書いたが、全然使わん。
バッファをあまり開かない人向き?

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