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

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

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

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