11/12/25 10:45:34.31
>>192の派生記事でこんなのがあったんだけど
URLﾘﾝｸ(d.hatena.ne.jp)
この中にでてくる、EmEditorの「折り返し行表示も論理的にインデントされる」機能って
なかなか素敵だと思うんだけど Emacs 用でそういうのないかな。
自前のソースだったら長くなりすぎないよう適度に分割するんだけど
拾ってきたソース見てる時とかウィンドウ幅細くして眺めてる時とかこれできたらちょっとうれしい気がする。
201:名無しさん＠お腹いっぱい。
11/12/25 11:52:18.04
>192
田舎を馬鹿にしてるのは芸風かと思うけど、
emacsに関する分析で、石川県にJAISTがあるのを知らないのか、
知ってて無視してるのか…
202:名無しさん＠お腹いっぱい。
11/12/25 12:10:42.62
emacs関係でその大学の名前を聞いた記憶があんまりないんだけど。
オープンソース扱ってるとときどき聞くけど。
203:名無しさん＠お腹いっぱい。
11/12/25 12:26:15.80
現在開いているファイルがutf-8のとき、
utf-8bomかutf-8non bomかを開いているファイル名情報（ミニバッファ欄というのでしょうか）の
左側に表示したいのですが、可能でしょうか？
204:名無しさん＠お腹いっぱい。
11/12/25 12:27:38.96
書き忘れていました。
改行がlfかcrかも表示させたいです
205:名無しさん＠お腹いっぱい。
11/12/25 12:50:00.45
>>203
; BOMなしを 大文字の U に
(coding-system-put 'utf-8 :mnemonic ?U)
; BOMありを 小文字の u に
(coding-system-put 'utf-8-with-signature :mnemonic ?u)
基本的に一文字でしか表示は出来ないみたい。
ちなみに今何が設定されているか知りたいときは以下を実行
M-x list-coding-systems
UTF関連は全部ひっくるめてUになっちゃってるから必要であれば細かくわけたほうがいいかも。
一文字縛りだから厳しいけど。
206:名無しさん＠お腹いっぱい。
11/12/25 12:51:07.42
>>204
cr だの lf だの crlf は一応もともと表示はされているけど、
もっとわかりやすくしたいなら以下で。
(setq eol-mnemonic-dos "[CRLF]")
(setq eol-mnemonic-unix "[LF]")
(setq eol-mnemonic-mac "[CR]")
(setq eol-mnemonic-undecided "[?]")
207:名無しさん＠お腹いっぱい。
11/12/25 13:20:29.19
>>202 うーむ、月日が流れるのは早いもんだ。
208:名無しさん＠お腹いっぱい。
11/12/25 13:22:36.47
> （ミニバッファ欄というのでしょうか）
mode-line ね。
mode-line-mule-info いじればなんとでもなりそうな気はするけど。
マウスカーソル合わせればいろいろ表示できるからそれで十分な気がする。
209:名無しさん＠お腹いっぱい。
11/12/25 13:30:34.87
session.el を使っていると file-name-history に w3m の一時ファイル名が溜まるのが嫌なので
(setq session-set-file-name-exclude-regexp "[/\\]\\.overview\\|[/\\]\\.session\\|News[/\\]\\|w3mtmp")
というように、デフォルトの値に付け加えてみたんですが、やはりお構いなしに溜っていきます。
Emacs は 21.1 を使っているんですが、これを設定してる人はちゃんと効いてますか?
210:名無しさん＠お腹いっぱい。
11/12/25 13:30:46.10
load-path とかを設定するときに
append したり add-to-list を繰り返したりするのはよくみるけど
バッククオート使ったリスト展開使ってる人ってあんまり見かけない気がするんですが、
何かデメリットとか互換性とかでまずい点とかがあるんでしょうか？
(setq load-path `("~/lisp" "~/site-lisp" ,@load-path))
211:名無しさん＠お腹いっぱい。
11/12/25 13:36:40.41
>>210
デメリットは読みづらいって点じゃないかね。
真性 lisper の作った macro とか読んでると分かるかも。
212:名無しさん＠お腹いっぱい。
11/12/25 13:39:17.64
>>211
なるほど、あんまり見ないという意味で読みづらいってのはありそう。
でもただリストに追加するだけ、ってのが設定ファイル上だと多発してるんで、
短くて読みやすいこっちを使ってみます。
ありがとうございました。
213:名無しさん＠お腹いっぱい。
11/12/25 14:57:06.79
xyzzyにはある機能だな
emacsはというと見当たらない気がする
214:名無しさん＠お腹いっぱい。
11/12/25 15:10:17.46
>>213
リスト展開はEmacsで普通に使えてるぞ
215:名無しさん＠お腹いっぱい。
11/12/25 15:59:36.74
>>214
すまねえ、>>213は>>200向けのレスだった
アンカーが抜けてしまったわ
216:名無しさん＠お腹いっぱい。
11/12/25 16:05:04.22
>>215
ああ、そういうことか。了解。
>>200 はxyzzyで使えるなら頑張ればEmacsにも移植出来そうなもんだね。
217:名無しさん＠お腹いっぱい。
11/12/25 17:27:51.00
バッファローカルなマクロや関数を設定する方法ってありますでしょうか？
218:名無しさん＠お腹いっぱい。
11/12/25 17:48:27.78
オーソドックスな方法はない。
obarray とか make-variable-buffer-local とか intern とか組み合わせてが
んばればもしかしたらそれっぽいことはできるかも。何がやりたいかによりそ
う。
219:名無しさん＠お腹いっぱい。
11/12/25 18:09:35.92
>>218
特定のファイル内でのみ使える使い捨ての関数を使いたかったのでした。
funcall での呼び出しで妥協するなら make-local-variable => lambda => funcall で他への影響少なく
実現出来ましたが、fset しちゃうとしっかりグローバルにマップされちゃうのが残念な感じ・・
220:名無しさん＠お腹いっぱい。
11/12/25 18:29:51.56
特定のファイル(バッファ?)内で呼び出すならそれでいいけど、
いろんなところで呼び出す関数の中でその使い捨て関数を使おうとするとだめじゃないか？
↓はevalしたバッファでなら問題なく動くけど他のバッファで say-hello するとNG
(set (make-local-variable 'somefunc) (lambda () (message "hola!")))
(defun say-hello ()
(interactive) (funcall somefunc))
221:名無しさん＠お腹いっぱい。
11/12/25 22:34:15.94
リストの中で条件に一致するものだけを抜き出す関数ってありますか？
find-if みたいな条件式を外から渡せるものが欲しいです。
222:名無しさん＠お腹いっぱい。
11/12/25 22:57:39.93
remove-if-not かな。名前分かりづらいよね。
223:名無しさん＠お腹いっぱい。
11/12/25 23:05:47.16
>>222
ありがとうございます。条件に一致しないものを全て除く、なんですね。
わかりづらいですねｗ
224:名無しさん＠お腹いっぱい。
11/12/26 20:45:07.50
>>160
すみません。ためして見ましたが他のアプリとの連携が完全に断ち切られてしまいました。
よく考えてみたらxyzzyでいうところのセレクションとリージョンの区別が
emacsには無いのかもしれないと思いました
xyzzyの説明はこれです
URLﾘﾝｸ(hie.s64.xrea.com)
希望する動作を詳しくいうと、もしもemacsにセレクションの機能があるとして
仮にメモ帳の文字をコピーしたとしてemacsに貼り付けようとするとき
セレクションの貼り付け->メモ帳からの貼り付けok
キルリングのヤンク->メモ帳からの貼り付けNG
逆も同様で、emacsで
セレクションの範囲選択からコピー->メモ帳に貼り付けok
リージョンの範囲選択からコピー->->メモ帳に貼り付けNG
セレクションが無いとするとキルリングを改変して
独立したリージョンのようなもの
（指定したキルリングのみ他のアプリと文字の受け渡し可）
を使いたいのですが可能でしょうか。何か複雑なことになってしまいましたが…
225:名無しさん＠お腹いっぱい。
11/12/26 21:13:29.20
>>224
ちょっとよく分からないけど・・
クリップボードと同期したくないだけなら
(setq x-select-enable-clipboard nil) でよかったはず。
上記の状態でキルリングではなくクリップボードから貼付けしたい時は clipboard-yank
切り取りの clipboard-kill-region と貼付けの clipboard-kill-ring-save ってのはあるんだけど
こっちは kill-ring にも入っちゃうんだよね。
クリップボードと直接やり取りしてるのは >>160 が言ってる変数の中身に指定されている関数である
x-select-text と x-get-selection-value。
セレクションについても普段使ってるプライマリの他にセカンダリ(Alt+ドラッグで指定出来る/Alt+真ん中クリックで貼付け)
ってのがあるから、それと組み合わせて何か関数作ればクリップボード連携専用セレクションは作れると思う。
226:名無しさん＠お腹いっぱい。
11/12/26 21:40:30.25
やっつけでかいてみた。
;; クリップボードとのkill/yank連携解除
(setq x-select-enable-clipboard nil)
;; クリップボードから貼付け
(global-set-key (kbd "C-c y")
(lambda ()
(interactive)
(let ((x-select-enable-clipboard t)
(x-last-selected-text nil))
(insert (or (x-get-selection-value) "")))))
;; クリップボードへコピー
(global-set-key (kbd "C-c w")
(lambda ()
(interactive)
(when (region-active-p)
(let ((x-select-enable-clipboard t))
(x-select-text (buffer-substring-no-properties
(region-beginning) (region-end)))))))
227:名無しさん＠お腹いっぱい。
11/12/26 22:43:20.34
>>226
やっつけに突っ込む & 試してないけれど、
(lambda (beg end)
(interactive "r")
(let ((x-select-enable-clipboard t))
(x-select-text (buffer-substring-no-properties beg end))))
228:名無しさん＠お腹いっぱい。
11/12/27 00:56:12.67
>>225-227
ありがとうございます！まさに意図したとおり動いています
思わず笑顔になってしまいました
>>225の説明がわかりやすくて参考になります
ありがとうございました
229:名無しさん＠お腹いっぱい。
11/12/27 11:39:39.37
windowsでファイラーの右クリックからemacsにファイルを送ると
あらたなemacsが起動してしまうのですが
emacsがすでに起動しているならそのemacs内でファイルを開くように設定できますか
230:名無しさん＠お腹いっぱい。
11/12/27 12:04:09.38
>>229
emacsclientw.exe とか？
231:名無しさん＠お腹いっぱい。
11/12/27 13:57:42.71
>>230
ありがとうございます
それを使って設定できました
232:名無しさん＠お腹いっぱい。
11/12/27 21:10:00.44
メジャーモードの作成でdefine-generic-modeを使うとき
キーワードリストで設定するのと色づけリスト内のfont-lock-keyword-faceで設定するのは
変わりないのでしょうか？
それと、予約語や組み込み関数が膨大な言語を扱うときに一つ一つを書くのではなくて
予約語一覧や組み込み関数一覧の別ファイルを読みこんでfont-lockを設定できないものでしょうか
るびきち著のemacslispテクニックバイブル10章を読んでもこのあたりのことが
書いていないのでよくわかりません。
233:名無しさん＠お腹いっぱい。
11/12/27 22:00:50.40
generic-mode ではキーワードの外出しはサポートしてないっぽいね。
↓の関数でどうでしょ。
(defun keywords-from-file (file)
"ファイルからキーワードのリストを取得。ファイル内のキーワードは改行で区切ること"
(with-temp-buffer
(insert-file-contents file)
(split-string (buffer-substring-no-properties (point-min) (point-max)) "[\r\n]" t)))
(define-generic-mode
'hogehoge-mode
'("#")
(keywords-from-file "~/.emacs.d/hogehoge-mode-keywords")
...
)
みたいな感じで。
234:名無しさん＠お腹いっぱい。
11/12/28 02:04:40.26
>>233
ありがとうございます。うまくいきました。
235:名無しさん＠お腹いっぱい。
11/12/28 10:32:52.68
C-yでyankした後にM-yで履歴を遡れますが、
うっかり戻り過ぎた時に戻るコマンドはないのでしょうか。
リングを全部もう１周するのは大変です。
C-/でundoするのも時にはありなんですが、
やっぱり違ったって時にM-yを継続できないので不便です。
簡単に履歴を行ったり来たりできないのでしょうか。
236:名無しさん＠お腹いっぱい。
11/12/28 10:39:02.54
anything-show-kill-ringを使うといいよ^^^
237:名無しさん＠お腹いっぱい。
11/12/28 10:43:02.78
標準の M-y だとあんまり器用なことはできないね。
M-1 M-y とかで yank するヒストリの位置を指定したりできるけどそんなの頭で把握していないだろうし。
素直に browse-yank とか kill-summary とか browse-kill-ring とか popup-kill-ring とかの
貼る奴を選べるタイプのを使ったほうがいいと思う。
anything でも kill-ring は扱えるらしいんだけど使っていないからちょっとそっちは分からない。
238:名無しさん＠お腹いっぱい。
11/12/28 10:55:49.77
>>235
C-u -1 M-y
239:名無しさん＠お腹いっぱい。
11/12/28 11:06:30.27
M-- M-y でいいじゃん。
anything なんか勧めるな
240:名無しさん＠お腹いっぱい。
11/12/28 11:18:09.10
そういうこと言っちゃうとまた彼がくるよ。
241:名無しさん＠お腹いっぱい。
11/12/28 11:24:06.46
実際anything使ってるの？
auto-completeの作者はanythingアンチっぽいな
242:名無しさん＠お腹いっぱい。
11/12/28 11:35:51.24
割と技術ある人はだいたいanythingアンチ。
若い人があの人の煽りに乗せられちゃってるんだよ。
243:名無しさん＠お腹いっぱい。
11/12/28 12:06:07.16
> auto-completeの作者はanythingアンチっぽいな
これソース何？その人のブログとか読んだ限りじゃanythingユーザっぽいんだが…
244:名無しさん＠お腹いっぱい。
11/12/28 12:27:14.73
過剰反応
245:名無しさん＠お腹いっぱい。
11/12/28 13:25:04.41
>>235
redo.elで検索
246:名無しさん＠お腹いっぱい。
11/12/28 14:35:05.68
技術のある人はanythingを使わない(ｷﾘ
技術のある人はるびきち本などクソだと思っている(ｷﾘｯ
vim・nviなどviではない(ｷﾘﾘｯ
247:名無しさん＠お腹いっぱい。
11/12/28 16:01:44.06
/*
test
hoge
test
hoge
*/
これ全体にヒットするelispの正規表現はどのようなものでしょうか？
/\\*[\\n.]+\\*/ と書いたのですがヒットしませんでした
248:名無しさん＠お腹いっぱい。
11/12/28 16:12:30.51
> /\\*[\\n.]+\\*/
bracket (文字クラス) の中では . の意味は失われて通常文字になる。
(re-search-forward "/\\*\\(\n\\|.\\)*?\\*/")
でとりあえずマッチする。
コメントみたいなのに正規表現はあんまりよくないんじゃないかね。
249:名無しさん＠お腹いっぱい。
11/12/28 16:18:39.47
> コメントみたいなのに正規表現はあんまりよくないんじゃないかね。
よくないって書いたのはコメントが大きくなってきたときに正規表現がオーバー
フローするって意味です。ちょっとした利用なら気にしなくていいはずです。
250:247
11/12/28 16:25:53.05
ありがとうございます。わかりました。
251:名無しさん＠お腹いっぱい。
11/12/28 17:20:48.37
るびきちとご飯を食べる会とかやってるみたいだし
elisp書いてる界隈は総じて仲良いように見えるけどな。
anything!!anything!!ってプッシュしてなきゃあの人も色々面白い記事かくいい人だと思うよ。
252:名無しさん＠お腹いっぱい。
11/12/28 17:29:19.67
どんないい記事かこうとあの情報商材みたいな文章の羅列ですべて台無しだよ。
どっかの大学にでも勤めて真っ当な研究でもすればいいのに。いや無理か。。
253:名無しさん＠お腹いっぱい。
11/12/28 17:30:56.46
うるせえ、創造的破壊するぞ
254:名無しさん＠お腹いっぱい。
11/12/28 17:33:59.06
イノベーション()
255:名無しさん＠お腹いっぱい。
11/12/28 17:38:16.02
そうだね
倭猿ごときがEmacsの伝道師なぞ恐れ多いわ
256:名無しさん＠お腹いっぱい。
11/12/28 17:41:26.13
Lisp方言ならまかせろー！ならまだいいんだけど
たかだか1エディタの設定だけだもんな
257:名無しさん＠お腹いっぱい。
11/12/28 17:46:11.19
もうちょっと手広くやればいいのにね。
Emacsだけで食べるなんて無理だよ。
100ユーザ集ったとか悪いけど嘘くさすぎる。
258:名無しさん＠お腹いっぱい。
11/12/28 17:48:25.85
まだ本業のrubyがあるからあわてる時期じゃない
259:名無しさん＠お腹いっぱい。
11/12/28 17:50:15.62
そういえば設定本にviewer.elでview-modeのmode-lineを色付けして
他のモードと区別しやすくしようなんてページがあったのだけど
載ってるスクショが白黒だた
260:名無しさん＠お腹いっぱい。
11/12/28 17:53:07.29
>>258
最後の ruby kaigi に参加したとき自分の中でrubyは三年前のままで時間が止まってるとかほざいてたぞ。
お前その名前詐欺だろと思ったわ。
261:名無しさん＠お腹いっぱい。
11/12/28 17:55:39.93
>>259
ズコーｗ
262:名無しさん＠お腹いっぱい。
11/12/28 17:57:45.09
お前ら文句いいつつもしっかり本買ってるあたり、るびきちのことなんだかんだいって好きだよな
263:名無しさん＠お腹いっぱい。
11/12/28 17:58:27.22
嫌いです。
264:名無しさん＠お腹いっぱい。
11/12/28 17:58:35.12
ひとくくりにされてもな。
265:名無しさん＠お腹いっぱい。
11/12/28 18:03:04.34
Elisp本はLisp遊びで充分です
266:名無しさん＠お腹いっぱい。
11/12/28 18:04:38.74
リスト遊びか？
267:名無しさん＠お腹いっぱい。
11/12/28 18:18:48.69
俺らるびきちなんて格下興味ないからな
268:名無しさん＠お腹いっぱい。
11/12/28 18:23:38.65
lisp遊びなんてでてたんや
269:名無しさん＠お腹いっぱい。
11/12/28 18:54:32.36
山本さんのじゃなくて?
270:名無しさん＠お腹いっぱい。
11/12/28 18:57:51.43
>>264
なあ。俺らはるびきち本がどんなにつまらん内容か確認するためだけに買ってその後捨てたわ。
271:名無しさん＠お腹いっぱい。
11/12/28 19:17:33.42
せめてbookoffに。
272:名無しさん＠お腹いっぱい。
11/12/28 19:24:54.32
少しでも無意味な本が世に出回らんようにという配慮だ
emacswikiもいらん、このスレだけで十二分だ
273:名無しさん＠お腹いっぱい。
11/12/28 19:41:22.07
俺なんか間違ってあんな本を買うやつが出ないように近くの本屋で買い占めたからな
274:名無しさん＠お腹いっぱい。
11/12/28 19:49:32.87
山本さんは今ではHaskellの人というイメージやな
275:名無しさん＠お腹いっぱい。
11/12/28 20:39:36.16
お前らかずさんのことを悪く言うのか
276:名無しさん＠お腹いっぱい。
11/12/28 20:42:01.54
emacswiki面白いけどなあ。
>>273
俺も買い占めは出来なかったけどせめての布教防止にと2冊買った。
277:名無しさん＠お腹いっぱい。
11/12/28 22:27:24.40
だれもkazuさんのことを悪く言ってない
悪く言われているのは……
278:名無しさん＠お腹いっぱい。
11/12/28 22:39:30.78
なんでルビキチって叩かれてるの？
279:名無しさん＠お腹いっぱい。
11/12/28 22:44:46.33
一流のスポーツ選手ほど叩かれる
つまりそういうことだ
280:名無しさん＠お腹いっぱい。
11/12/28 22:46:15.31
つまりルビキチは神ってことすか？
281:名無しさん＠お腹いっぱい。
11/12/28 22:49:10.02
神キチ
282:名無しさん＠お腹いっぱい。
11/12/28 23:06:09.34
キチさんってruby時代から叩かれてるよね
あの頃は顔写真まで使って叩いてて酷いと思った
283:名無しさん＠お腹いっぱい。
11/12/28 23:07:47.51
アクの強いキャラクターだからなあ
別に悪人じゃないし色々貢献している人ではあるんだけど
284:名無しさん＠お腹いっぱい。
11/12/28 23:12:26.85
いったい何に貢献してるんだ？
最近anything連呼してるだけじゃん。
285:名無しさん＠お腹いっぱい。
11/12/28 23:13:51.02
個人的にはjplの人が一番偉いと思ってる
286:名無しさん＠お腹いっぱい。
11/12/28 23:14:14.58
設定本では「筆者が開発している」anythingだったのが
elisp本では「筆者がメンテナンス・開発している」anythingになっていた
ちなみに原作者の名前はまったく出てこない。まさに神の御業である
287:名無しさん＠お腹いっぱい。
11/12/28 23:45:54.41
るびきちが残念なのはemacsの枠内でだけ考えていること
anything.elもなんだかんだ言って既存のemacsスクリプトを取り込んで拡張していったから
自ずと限界は見えてしまう
anything.elがemacsの諸ライブラリの統合だと主張するのはわかったから
つぎはvimとemacsの統合というか融合の形を見せてほしい
288:名無しさん＠お腹いっぱい。
11/12/28 23:49:42.01
なんだそりゃ
289:名無しさん＠お腹いっぱい。
11/12/28 23:55:24.14
viperでいいのでは
290:名無しさん＠お腹いっぱい。
11/12/29 00:01:08.69
いちおうるびきちのブログみる感じだとemacs内で閉じるのは×で
外部プログラム使おうぜって主張だったと思うけど。
正直emacs内のhttpライブラリとかうんこちんちんだからなあ。
ただ外部プログラム呼ぶと他の環境に移る時めんどくさい。
291:名無しさん＠お腹いっぱい。
11/12/29 00:35:35.93
>>290
>正直emacs内のhttpライブラリとかうんこちんちんだからなあ。
詳しく聞きたい
292:名無しさん＠お腹いっぱい。
11/12/29 00:40:34.06
俺達って、もう Emacs だけで第一線張っていくの無理なのかな……（涙
なんとか言ってくれよ誰か！俺達が…俺達が費した青春は何だったんだよ！
293:名無しさん＠お腹いっぱい。
11/12/29 00:47:03.98
url.el が糞な点
・POSTメソッドをサポートしてない
・非同期接続時にタイムアウト指定できない
・接続待機はコンパイル時のオプション次第によっては非同期にならない
これはあかんよ。
294:名無しさん＠お腹いっぱい。
11/12/29 01:06:16.02
>>293
postメソッドについては知らなかった
そうだったのか
295:名無しさん＠お腹いっぱい。
11/12/29 11:50:02.70
モードラインに現在のバッファの最大行数を常に表示するのにはどうしたらいいんですか？
296:235
11/12/29 12:39:55.01
外部プログラムに頼りたくないので>>239さんの
M-- M-y
を使いたいと思います。
みなさんありがとうございました。
297:名無しさん＠お腹いっぱい。
11/12/29 12:49:16.97
define-generic-modeの初期化関数リストの部分で
(custom-set-faces
'(font-lock-keyword-face ((t (:foreground "yellow")))))
のようにすると他のモードにも色が反映されてしまうのですが、
任意のモードのときにのみ特定の色をつけるということは可能でしょうか
298:名無しさん＠お腹いっぱい。
11/12/29 13:09:33.71
>>297
デフォルトのfaceを使いたくない場合は、自分でfaceを作って
font-lock に教えてあげる必要がある。
特定のフェイスの色をバッファ毎に置き換える方法はちょっと分からない。
(make-face 'hogehoge-green-face)
(set-face-attribute 'hogehoge-green-face nil :foreground "green")
(make-face 'hogehoge-red-face)
(set-face-attribute 'hogehoge-red-face nil :foreground "red")
(font-lock-add-keywords 'hogehoge-mode
'(("^GREEN: .*" . 'hogehoge-green-face)
("^RED: .*" . 'hogehoge-red-face)))
んで、
generic-mode の場合は generic-make-keyword-list って関数があって、
これだとキーワードのリストに対して任意の face を指定出来るみたいだからこっち使ったほうがいいのかもね。
詳しい使い方は関数のヘルプをみてちょうだいな。
299:名無しさん＠お腹いっぱい。
11/12/29 13:11:14.19
typo だ。
× generic-make-keyword-list
○ generic-make-keywords-list
300:名無しさん＠お腹いっぱい。
11/12/29 14:34:09.80
kbd マクロに変数を渡すとエラーになってしまいますが
どうしても変数を渡したい場合は以下の方法しかないんでしょうか？
(setq a "C-c a")
(kbd a) ;; => (wrong-type-argument integer-or-marker-p a)
(eval `(kbd ,a)) ;; => "^C"
301:名無しさん＠お腹いっぱい。
11/12/29 14:57:49.13
横レスだけど
(macroexpand '(kbd a))
で
>Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p a)
となるのはなぜなのだろう？
(macroexpand '(dolist (x '(a b c)) (print x)))
は問題ないのに
302:名無しさん＠お腹いっぱい。
11/12/29 15:32:41.59
なんでって質問にはなかなか答えられないかもしれない。。
lisp reader作っちゃうような真性lisperの集まるスレに行って聞くといいかも。
プログラム板のschemeとかclとかの。
>>300
(setq a "C-c a")
(read-kbd-macro a)
ってやっちゃうととりあえず願いは叶うんだろうけど、これじゃ不満だろうか？
kbd はシンタックスシュガーな気がするしループの中でなんかするとかそうい
う使い方じゃないんじゃなかろうか。
303:名無しさん＠お腹いっぱい。
11/12/29 15:49:18.27
>>301だけどありがとう
なるほど
304:名無しさん＠お腹いっぱい。
11/12/29 16:11:41.68
>>301
macroexpandはマクロを実行するものだから。
マクロというのはありえいにいえば処理系に置き換えてもらいたい式を返す関数。
この場合 (kbd 'a) が実行される。
305:名無しさん＠お腹いっぱい。
11/12/29 16:30:54.88
elispを編集中にカーソル下の関数の説明を見るにはどうすればよいですか？
306:名無しさん＠お腹いっぱい。
11/12/29 17:34:09.08
>>305
describe-function
C-h をバックスペースにしてなければ C-h f
307:名無しさん＠お腹いっぱい。
11/12/29 19:30:33.63
>>306
ありがとうございました。
308:名無しさん＠お腹いっぱい。
11/12/29 20:03:41.81
メジャーモードやマイナーモードで
1タブあたりの半角空白の数を指定するにはどうするのですか
309:名無しさん＠お腹いっぱい。
11/12/29 20:14:26.30
(add-hook 'なんかの-mode-hook
(lambda () (setq tab-width 4)))
310:名無しさん＠お腹いっぱい。
11/12/29 20:17:02.17
(add-hook 'hoge-mode-hook
(lambda ()
(set (make-variable-local 'tab-width) 10)
(set (make-variable-local 'tab-stop-list) '(10 20 30 40 50 60 70 80 90))))
311:名無しさん＠お腹いっぱい。
11/12/29 20:17:19.76
間違い
make-local-variable だった。
312:名無しさん＠お腹いっぱい。
11/12/29 20:35:18.17
>>309
できました。
313:名無しさん＠お腹いっぱい。
11/12/29 20:45:44.21
初心者質問増えた気がするのはrubikitch本の影響なのかなぁ。
314:名無しさん＠お腹いっぱい。
11/12/29 21:07:39.90
URLﾘﾝｸ(www.mag2.com)
るびきちの経歴をはじめて見た気がする
315:名無しさん＠お腹いっぱい。
11/12/29 21:08:33.99
>>313
Software Design とかで Emacs の特集くまれたのも関係してるのかもね。
316:名無しさん＠お腹いっぱい。
11/12/29 21:08:33.89
るびきちは責任もってにわかの処理をしろ
317:名無しさん＠お腹いっぱい。
11/12/29 21:14:15.30
とりあえず anything 使っとけで OK
318:名無しさん＠お腹いっぱい。
11/12/29 21:16:33.71
Emacs をこれからわざわざ使い始める必要はないと思うけどなあ。
Emacsのキーバインドは呪いだぞ。下手になれるとずーーーーーっと付きまとわれる。
319:名無しさん＠お腹いっぱい。
11/12/29 21:17:07.28
小指が痛いのは呪いのせいだぜ。
320:名無しさん＠お腹いっぱい。
11/12/29 21:35:38.97
>>316
URLﾘﾝｸ(www.mag2.com)
で500yen/1month払った人の相手は責任もってやります。
321:名無しさん＠お腹いっぱい。
11/12/29 21:39:04.70
内容読んでないからわからないけど
むしろ入門書よんでたら describe-function とかタブ幅設定知らないってことはないんじゃないのか？
322:名無しさん＠お腹いっぱい。
11/12/29 21:39:34.05
URLﾘﾝｸ(www.mag2.com)
> 【月額512円】 1配信あたり約 512円
これが525円? ぼったくりにもほどがある。
323:名無しさん＠お腹いっぱい。
11/12/29 21:53:46.94
512って書いてあんじゃん！
324:名無しさん＠お腹いっぱい。
11/12/29 21:54:34.37
消費税の魔力は恐ろしいな。
325:名無しさん＠お腹いっぱい。
11/12/29 22:04:44.97
テンプレに初心者はるびきちに聞けって入れとうこうぜ
326:名無しさん＠お腹いっぱい。
11/12/29 22:17:21.39
inhibit-startup-echo-area-message ってなんでわざわざあんなめんどくさい仕様なの？
327:名無しさん＠お腹いっぱい。
11/12/29 22:20:05.18
バイトコンパイルで動作が速くなるというのは.elと比べて
起動時の読み込み処理＋起動後の処理の両方が速くなるということでしょうか
328:名無しさん＠お腹いっぱい。
11/12/29 22:23:48.15
読み込みが早くなるだけで実行速度はかわらないんでないの。
読み込んだ後にどうせ内部的にコンパイルしているわけだし。
329:名無しさん＠お腹いっぱい。
11/12/29 22:49:44.35
いや、計算が多いコードだと明らかに速くなるよ。
330:名無しさん＠お腹いっぱい。
11/12/29 23:14:35.22
現行のバイトコンパイラはlucid製の最適化コンパイラで実行速度も速い。
331:327
11/12/29 23:28:18.08
分かりました
332:名無しさん＠お腹いっぱい。
11/12/30 11:12:48.18
キャラクタセット毎にフォントを指定する時の疑問なんですが、
(set-fontset-font "xxx" 'japanese-jisx0208 "SomeFont") みたいに直接指定するのと
(set-fontset-font "xxx" 'japanese-jisx0208 (font-spec :family "SomeFont"
:registry "unicode-bmp" :lang 'ja))
みたいにfont-specで指定するのってどう違いがあるんでしょう？
333:名無しさん＠お腹いっぱい。
11/12/30 11:18:48.69
set-fontset-font is a built-in function in `C source code'.
(set-fontset-font NAME TARGET FONT-SPEC &optional FRAME ADD)
FONT-SPEC may one of these:
* A font-spec object made by the function `font-spec' (which see).
* A cons (FAMILY . REGISTRY), where FAMILY is a font family name and
REGISTRY is a font registry name. FAMILY may contain foundry
name, and REGISTRY may contain encoding name.
* A font name string.
* nil, which explicitly specifies that there's no font for TARGET.
334:名無しさん＠お腹いっぱい。
11/12/30 11:44:46.71
ということは、SomeFont の特定の registry に属するものだけ指定したい場合とかだけ
font-spec 使ったり cons セル渡したりすれば良いということなんですね。
font と fontset の仕組みがなかなか理解できないなぁ・・・
list-fontsets で出てくるフォントセット名って必ずしもそこで指定された family に属してるフォントだけってわけでもないんですよね。
335:名無しさん＠お腹いっぱい。
11/12/30 12:15:08.17
> フォントセット名って必ずしもそこで
「そこ」ってどこよ? set-fontset-fontの事?
フォントセットはcreate-fontset*で作成し、その時にフォントセット名を指定する。
set-fontset-fontで指定してないフォントセット名がリストされても何も不思議じゃないんだが。
336:名無しさん＠お腹いっぱい。
11/12/30 12:29:14.72
>>335
create-fontset* したときにフォントセット名を未指定だと
そのフォントの XLFD がフォントセット名になるじゃないですか。
それがあったから自分にはわかりづらかったんですよ。
なんで Family が * じゃないのに別の Family のフォントが使えるの？？？みたいに。
フォントセット名って結局は単純に名前なだけで内容は別に XLFD とは関係ないってことなんですよね。
337:名無しさん＠お腹いっぱい。
11/12/30 12:50:29.54
set-frame-font等でフォントファミリーで指定することもできるので無関係というわけでもない。
338:名無しさん＠お腹いっぱい。
11/12/30 12:55:33.81
正月休みに読もうと、図書館でるびきち本を借りようとしたら貸し出し中だった
自分以外にも買わないで済ます奴がいるんだなｗ
339:名無しさん＠お腹いっぱい。
11/12/30 13:23:40.98
本屋で平積みになってたので
上に『いまどきのアセンブラプログラミング』を乗せてきた
340:名無しさん＠お腹いっぱい。
11/12/30 14:29:28.44
いまどきのアセンブラプログラミングちょっと気になるな
とおもって書評見に行ったらメタクソでワロタ。
中身もトンデモだった。
341:名無しさん＠お腹いっぱい。
11/12/30 14:54:17.74
キチの本は評判どうなんだろう
342:名無しさん＠お腹いっぱい。
11/12/30 15:00:56.70
るびきちのemacs本を2冊とも持っているけど
誤植が結構ある気がするんだよな（とくにemacs lispの方）
正誤表がネットにあればいいのに
343:名無しさん＠お腹いっぱい。
11/12/30 15:04:58.08
Emacsテクニックバイブルの方は正誤表あった
URLﾘﾝｸ(d.hatena.ne.jp)
Emacs Lispテクニックバイブルの方は知らん
電子書籍で販売しないあたりがオールドタイプ
344:名無しさん＠お腹いっぱい。
11/12/30 15:07:51.32
>奇跡はまだ終わりません。 ちょうど1年後、2008年にanythingの開発を引
>き継ぐことになりました。 原作者はanything開発の時間が取れないとの
>ことで、熱烈なanythingファンの筆者がすぐに次期開発者として名乗りを
>上げ、了承されました。 バグを修正し、使いやすくするために大幅に機
>能を追加しました。 その結果、コードは約4倍に膨れ上がりました。 熱
>狂的なファンも増えました。 anythingを使ったLispプログラムもたくさ
>ん登場しました。 いつしかanythingがないと生きていけない様を表す
>「anything脳」という言葉も登場しました。 anythingで生産性が上がっ
>た人がたくさんいます。 そして現在は「anythingのるびきち」として知
>られるようになりました。
きんもーい
345:名無しさん＠お腹いっぱい。
11/12/30 15:10:59.90
これもきもい
> 42歳のおっさんです。前著作とともに購入しました。
> ともに自宅用、会社用に１冊ずつ、合計４冊購入しました。
> ただ、すでに痛み始めているので、ともに、あと１冊ずつ購入することになると思います。
> メルマガも先ほど、購読の手続きを完了しました。楽しみにしています。
346:名無しさん＠お腹いっぱい。
11/12/30 15:58:14.87
別にきもくはない。年齢的にも金持ってるんだろうし、俺もリファレンス的
な本は会社と自宅で2冊買ってたりしてた。
347:342
11/12/30 16:00:32.43
>>343
ありがとう。手元にあるemacsテクニックバイブルは2刷りだけど
日本語の文章としておかしい箇所があった気がする
メモをしていなかったので場所は忘れた
コードはざっと見た限りひどい間違いはなさそう
もう一度通読してみるか
348:名無しさん＠お腹いっぱい。
11/12/30 16:55:04.23
>>293
嘘よくない…。post できるヨ…。
349:名無しさん＠お腹いっぱい。
11/12/30 18:45:36.05
無知乙。10年前ぐらいはPOSTできないのが常識だった事も知らんのか。
350:名無しさん＠お腹いっぱい。
11/12/30 19:02:40.92
誰に対して無知なんだよ…
351:名無しさん＠お腹いっぱい。
11/12/30 19:04:55.83
HTTP/0.9にはGETメソッドしかなかったからな。
352:名無しさん＠お腹いっぱい。
11/12/30 19:25:34.59
バカだとかアホだとかおよそ書籍に似つかわしくない単語が並んでた。
353:名無しさん＠お腹いっぱい。
11/12/30 21:05:55.40
>>352
？どういうこと？
354:名無しさん＠お腹いっぱい。
11/12/30 21:23:42.61
キチボンにそういう単語が並んでるってこと?
355:名無しさん＠お腹いっぱい。
11/12/30 21:29:48.87
そう。cl に関する記述の部分だったかな。
おれはこのことに怒っているぞみたいなこと書いてあった。
356:名無しさん＠お腹いっぱい。
11/12/30 21:32:26.59
ああいう表現って編集の人に止められないもんなのかね。
触らぬキに祟りなしとかで何も言わないのか。
357:名無しさん＠お腹いっぱい。
11/12/30 23:04:23.29
cl に関しては公式が正しいと思うけどな。
Common LispだけがLispじゃないんだし。
358:名無しさん＠お腹いっぱい。
11/12/30 23:09:10.31
ただ、dolist みたいな便利マクロが標準で用意されててもいいだろとは思ったわ。
どうせみんな書くんだろうし。
359:名無しさん＠お腹いっぱい。
11/12/30 23:11:07.88
>>348
リクエストメソッドをPOSTに出来るだけでしょ。
マルチパートの送信も出来ないのにPOST出来るとはとてもとても。
360:名無しさん＠お腹いっぱい。
11/12/30 23:39:38.22
>>356
clマクロを取りまく現状について
「こうしたねじれた事態は馬鹿げている」と強い口調で書いてはある
けれどバカと馬鹿げているではニュアンスがまるで違うからキとか言うのはよくない
361:名無しさん＠お腹いっぱい。
11/12/30 23:42:51.17
キについては自称だからなぁ。
362:名無しさん＠お腹いっぱい。
11/12/30 23:44:13.73
cl 使うなっていうなら標準で添付するなよなとは思うわ。
意味わからん。
363:名無しさん＠お腹いっぱい。
11/12/31 00:31:14.97
>>358
dolist, dotimes は subr.el に標準で用意されている。
正直 cl とマージすればいいと思うんだけど、何かポリシー
があるんだろうな。
364:名無しさん＠お腹いっぱい。
11/12/31 00:33:53.26
自前の使い捨てスクリプト書くときは便利だし。
パッケージとして作るものに (require 'cl) するなって意味だったような。
365:名無しさん＠お腹いっぱい。
11/12/31 00:51:35.45
> バカと馬鹿げているではニュアンスがまるで違う
単語だけ切り出したらそう思うかもしれないけど、
全体の文脈からしてかなり烈しい内容だったと思うけどな。
この辺が幼稚な印象を強くしちゃうんだよ。rbktせんせ。
366:名無しさん＠お腹いっぱい。
11/12/31 00:58:58.98
なんで subr に入れないんだろうね。
find-if とかの cl-seq の中身便利なのに。
367:名無しさん＠お腹いっぱい。
11/12/31 01:07:28.40
文字数をモード列に表示することはできるのでしょうか
368:名無しさん＠お腹いっぱい。
11/12/31 02:34:37.32
>>364
すみません、私はcl.el大好きなんですが、
eval-when-compileで囲んでもやはり使うべきではない、
というのが現在の一般的な意見、ということになっているのでしょうか?
>>366
RMSがキーワード引数が好きではないから、という説を
どこかで聞いた気がします。
369:名無しさん＠お腹いっぱい。
11/12/31 02:41:52.98
FMV-BIBLO LOOX（６インチモニタのノート）でemacs常用している猛者はいないか？
買うかどうか悩んでるんだ。ソースコード編集してC-c C-cで部分実行するだけならこの画面で十分な気がするんだけどどうだろ
370:名無しさん＠お腹いっぱい。
11/12/31 02:51:04.54
(eval-when-compile (require 'cl)) して使っていいのがCLマクロ
使っちゃダメなのがCL関数
じゃないの？
371:名無しさん＠お腹いっぱい。
11/12/31 04:32:15.06
Richard Stallmanは以下のように書いているのですが、
The rule against using CL functions at run time is for the sake of the
user. The CL functions are not a standard part of the Emacs Lisp
namespace. Thus, loading CL can conflict with the user's function
definitions.
subr.elでdefunされているremoveと、
cl-seq.elでdefunされているremove-ifとでは、
「can conflict with the user's function definitions」という点で
どのような違いがあるのでしょうか。
372:名無しさん＠お腹いっぱい。
11/12/31 09:34:41.01
皆でガンガンclの関数使って形骸化させようぜみたいなのにならなかったのだろうか
373:名無しさん＠お腹いっぱい。
11/12/31 09:38:21.89
clの実装は小汚いからな。
喜んで使うのは三流グラマだけ。
374:名無しさん＠お腹いっぱい。
11/12/31 09:52:56.96
>>371
subr.el で定義されている -> ぶつかったらユーザの責任
cl.el で定義されている -> ぶつかったら cl.el をロードしたやつの責任
という点で異なる
375:名無しさん＠お腹いっぱい。
11/12/31 10:01:45.63
下手に準拠唄うとアレがダメだこれがダメだと重箱の角ツツク
ゴミッカスが喜び勢い付くだけだからね～
376:名無しさん＠お腹いっぱい。
11/12/31 10:18:28.75
anythingに関しても今のところはつっこまれてないだけで、これからつっこま
れる可能性は高いよね。ところでanythingの標準添付の作業ってどこでされて
るんだ？trunk見ても見当たらないんだけど。
377:名無しさん＠お腹いっぱい。
11/12/31 11:45:32.41
きちさんの脳内じゃない？
cedet もそうだけどあえて一緒にしない方がいいパッケージってあるよな
378:名無しさん＠お腹いっぱい。
11/12/31 13:02:19.33
アレが添付されると臭くなりそうだな。
379:名無しさん＠お腹いっぱい。
11/12/31 13:08:23.97
emacs本体の一部として配布されるEmacs Lispコードの中でremove-ifを使いたいという要求があったとして、
仮にremove-ifがcl-remove-ifという名前でcl-seq.elでdefunされていたとすると、
-> ぶつかったらユーザの責任、なので
-> -> emacs本体の一部として配布されるEmacs Lispコードでeval-when-compileで囲まずに(require 'cl)してOK
と言えるんでしょうか?
あるいは、remove-ifがマクロなら(eval-when-compile (require 'cl))して標準配布物内で使ってOK、だとして、
remove-ifをマクロとして再実装するのはすごくたいへんなんでしょうか?
380:名無しさん＠お腹いっぱい。
11/12/31 13:14:40.25
そういや remove-if の実装どうなってんだろと思ってみにいったら
関数に cl-* の接頭辞が付きまくってて目眩がした
ネームスペースの仕組みあればねえ。
381:名無しさん＠お腹いっぱい。
11/12/31 14:00:39.92
c--がよくわかりません
describe-keyで調べたらこう出ました
(negative-argument ARG)
Begin a negative numeric argument for the next command.
C-u following digits or minus sign ends the argument.
具体的にはどういうことなのでしょうか
使い道を知りたいです
382:名無しさん＠お腹いっぱい。
11/12/31 14:12:24.79
>>381
C-- 数字 コマンド でそのコマンドに -数字 の引数を与えられるってこと。
C-- 3 C-p とかやると 三行「下に」移動する。
383:名無しさん＠お腹いっぱい。
11/12/31 14:31:15.96
>>382
なるほど、C-uの繰り返しがデフォルトで4となっていましたが、
それの基本的な機能なのですね
わかりました
384:名無しさん＠お腹いっぱい。
11/12/31 14:34:32.20
>>383
C-- はあくまで負の数な。
正の数の動作が基本だから
C-3 C-p とか M-3 C-p とかの方が普通。
385:名無しさん＠お腹いっぱい。
11/12/31 14:56:23.71
>>293
え、POSTできるけど……
386:名無しさん＠お腹いっぱい。
11/12/31 15:01:55.78
フォントを設定するとき、ある family に属するフォントが無い場合、別の family を使う、というのを実現するのに
以下のような関数を作ったのですが、もっと妥当なやり方があれば教えていただけると助かります。
(require 'cl)
(defun safe-font (&rest family-list)
"有効なフォントファミリを返す。"
(find-if (lambda (f) (find-font (font-spec :family f))) family-list))
(set-face-attribute 'default nil
:font (safe-font "あずきフォントL" "MeiryoKe_Console" "MS Gothic" "mono"))
387:名無しさん＠お腹いっぱい。
11/12/31 15:02:52.09
>>385
>>359
388:名無しさん＠お腹いっぱい。
11/12/31 15:10:04.48
flet で作ったローカルな関数をスコープから外れてからも呼ぶ方法はありませんでしょうか？
具体的にはこんな感じです。
(flet ((greeting (msg) (message "%s" msg)))
(defun say-hello ()
(greeting "hello"))
(defun say-good-bye ()
(greeting "good bye")))
(say-hello) ;; greeting が無いって怒られないようにしたい
(say-good-bye) ;; 同上
(greeting "nono") ;; でも greeting は外から見せたくない
389:名無しさん＠お腹いっぱい。
11/12/31 15:24:12.63
>>388
flet の代わりに labels を使う。
ダイナミックスコープとレキシカルスコープを調べるべし。
390:名無しさん＠お腹いっぱい。
11/12/31 15:24:53.27
macroletなら。
Emacsの関数はただのlambda式(か、それをバイトコンパイルしたもの)なので、
fletじゃ無理。実行時にgreetingが見えなければエラーになって終わり。
391:名無しさん＠お腹いっぱい。
11/12/31 15:36:12.19
>>389
ありがとうございます。macrolet だとマクロとしてその場に展開、
labels だと文脈依存の関数としてちゃんと関数として定義されるってことですね。
レキシカルとダイナミックを見てて思ったんですが、
純粋なローカル変数を使いたい場合は let より lexical-let を使うべきな気がするんですけど
(内部の関数で参照しているシンボルを不用意に束縛しないため)
そういう認識であっていますか？
392:名無しさん＠お腹いっぱい。
11/12/31 15:44:04.23
いや。クロージャとして持ち出したい場合以外は普通のletの方がいい。
なぜならEmacsには基本的にそっちしかないから。
レキシカルスコープは擬似的なものなんだよ。
基本的にはgensymで作った「変な名前の内緒のグローバル変数」に
値や式を持っておいてそれをsymbol-valueで取り出す。
labelsにせよ、lexical-letにせよ、適当な式をmacroexpand-allすればわかる。
393:名無しさん＠お腹いっぱい。
11/12/31 16:17:46.66
>>392
なるほど。そうすると let で使うシンボル名は
せめて既に使われているようなのを不用意に使わないよう気をつけるしかないですか。
394:名無しさん＠お腹いっぱい。
11/12/31 21:45:31.70
次のようなテキストファイルがあります
Test1243
(@import "./foo/foo.txt")
(@import "/usr/mytext.txt")
Pipipi
テキスト中に(@import path)と書いてある時はPathのファイルを埋め込んで別のテキストファイルとして出力したいです
Elispの正規表現でpathの文字列を取り出すのは分かるのですが
ファイルを読み込んだ上でファイルを作るのが良くわかりません
よろしくお願いします
395:名無しさん＠お腹いっぱい。
11/12/31 22:00:24.55
こんな感じのこと？
;; 文字コードてきとー
(defun hoge-func ()
(let ((in (read-file-name "入力ファイル: "))
(out (read-file-name "出力先ファイル: ")))
(with-temp-buffer
(insert-file-contents in)
(goto-char (point-min))
;; 正規表現てきとー
(while (re-search-forward "(@import \"\\([^\"]+\\)\")" nil t)
(let* ((fn (match-string 1))
(contents (save-match-data
(with-temp-buffer
(insert-file-contents fn)
(buffer-string)))))
(replace-match contents nil nil nil 0)))
(write-region (point-min) (point-max) out))))
396:名無しさん＠お腹いっぱい。
11/12/31 22:22:46.05
emacsのtext-modeで、タブを押したときにインデントを、
前の行には関係なく、一定量に設定するにはどうすればよいでしょうか？
(1)ではなく(2)となるようにしたいのですが。
(1)前の行を参照するタブ
123456789 abc
←スペースの後の位置に移動
(2)タブの移動量を8に
123456789 abc//
←ここに移動
397:名無しさん＠お腹いっぱい。
11/12/31 22:32:56.01
よーわからんけど C-q C-i でタブ文字強制入力じゃだめ？
398:名無しさん＠お腹いっぱい。
11/12/31 22:33:24.10
C-q TAB で純粋にタブ移動できるけど恒久的にやる方法はちょっとわからない。
というかいつの間に indented-text-mode = text-mode になってたんだ・・気づかなかった。
399:名無しさん＠お腹いっぱい。
11/12/31 22:41:12.31
もっとまともな方法があるとは思うけど↓でtext-modeのTABは強制的に\tになる。
(add-hook 'text-mode-hook
(lambda ()
(setq indent-line-function (lambda () (insert " ")))
))
400:名無しさん＠お腹いっぱい。
11/12/31 22:41:52.06
" " のところは C-q C-i でタブが入力されてると思ってくれ。
401:396
11/12/31 22:54:22.58
>>397-400
ありがとうございます。
>>399
これで完璧に解決しました。とても助かりました。
402:名無しさん＠お腹いっぱい。
11/12/31 23:11:00.92
TAB関連で
tab-to-tab-stop の文字位置へ移動するにはどんなコード書けばいいんだろう？
403:名無しさん＠お腹いっぱい。
11/12/31 23:14:38.73
(move-to-tab-stop)じゃあかんの？
404:名無しさん＠お腹いっぱい。
12/01/01 00:07:44.48
Elispをすらすら書ける人は
普段からlispに慣れている人なのかな
尊敬するわ
405:名無しさん＠お腹いっぱい。
12/01/01 01:15:55.55
一口にLispっつーても色々あって、それぞれノウハウ違うから
elispをスラスラ書ける人は普段からelispに慣れてる人だと思う
406:名無しさん＠お腹いっぱい。
12/01/01 01:48:01.75
リストの処理とかがスラスラ書けても
バッファの弄り方とかテキストプロパティとかオーバレイとか辺りになってくると
あんまりLisp関係ないもんね。
407:名無しさん＠お腹いっぱい。
12/01/01 12:40:54.90
暇なので elisp 紹介
■emacs で google map 表示
URLﾘﾝｸ(julien.danjou.info)
M-x google-maps して地名を入れるとpopupしたバッファに地図が表示される
そのままだと地名がアルファベットになっちゃうので以下を追加
(eval-after-load "google-maps"
'(defadvice google-maps-static-show (before google-maps-set-lang activate)
(ad-set-args 0 (append '(:language "ja")) (ad-get-args 0))))
popwin の管理下に入れておくとうっとおしくなくて良い。
408:名無しさん＠お腹いっぱい。
12/01/01 12:43:07.23
oh... ちょっと間違った
↓ね。
(defadvice google-maps-static-show (before google-maps-set-lang activate)
(ad-set-args 0 (append '(:language "ja") (ad-get-args 0))))
409:名無しさん＠お腹いっぱい。
12/01/01 13:35:41.22
>>407
㌧㌧、これはいいねぇ
410:名無しさん＠お腹いっぱい。
12/01/01 13:46:38.69
おれもー
どっかから拾ってきた奴
yankしたとき貼りつけた内容がハイライトされる
popup-kill-ring つこうてる人は popup-kill-ring-interactive-insert が t じゃないと
ちゃんと反応してくれない
(defadvice yank (after yank-highlight-string activate)
(let ((ol (make-overlay (mark t) (point))))
(overlay-put ol 'face 'highlight)
(sit-for 0.5)
(delete-overlay ol)))
(defadvice yank-pop (after yank-pop-highlight-string activate)
(when (eq last-command 'yank)
(let ((ol (make-overlay (mark t) (point))))
(overlay-put ol 'face 'highlight)
(sit-for 0.5)
(delete-overlay ol))))
411:名無しさん＠お腹いっぱい。
12/01/01 15:04:21.29
せめて unwind-protect で overlay の後始末はするべきだな。
412:名無しさん＠お腹いっぱい。
12/01/01 15:08:16.25
>>411にならって直してみた
(defadvice yank (after yank-highlight-string activate)
(let ((ol (make-overlay (mark t) (point))))
(unwind-protect
(progn (overlay-put ol 'face 'highlight)
(sit-for 0.5))
(delete-overlay ol))))
(defadvice yank-pop (after yank-pop-highlight-string activate)
(when (eq last-command 'yank)
(let ((ol (make-overlay (mark t) (point))))
(unwind-protect
(progn (overlay-put ol 'face 'highlight)
(sit-for 0.5))
(delete-overlay ol)))))
413:名無しさん＠お腹いっぱい。
12/01/01 15:11:01.01
いいですね。いただきます。
414:名無しさん＠お腹いっぱい。
12/01/01 16:34:08.50
>>412の真似して undo で文章が復帰した時にもハイライトするようにしてみた。
もうちょっとマシな書き方出来ないか誰か添削してくれると嬉しい。
やってることは、
buffer-undo-list を頭からたどっていって
・(integerp . integerp) の cons セルにあたったらその範囲をハイライトしてループ終了
・(stringp . なんか) の cons セルにあたったらループ終了
(defadvice undo (after flash activate)
(catch 'loop
(dolist (c buffer-undo-list)
(let ((beg (car c))
(end (cdr c)))
(cond ((and (integerp beg)
(integerp end))
(let ((ol (make-overlay beg end)))
(unwind-protect
(progn (overlay-put ol 'face 'highlight)
(sit-for 0.5))
(delete-overlay ol)
(throw 'loop nil))))
((stringp beg)
(throw 'loop nil)))))))
415:名無しさん＠お腹いっぱい。
12/01/01 16:57:08.39
>>412
副作用が怖いですが
アドバイス対象をinsert-for-yankにすると一つで済みました
416:名無しさん＠お腹いっぱい。
12/01/01 17:59:01.61
>>414
dolist の中から return で脱出できたような。
けれど自分ならこうするかな。
(defadvice undo (after flash activate)
(loop for (beg . end) in buffer-undo-list
if (and (integerp beg)
(integerp end))
return (let ((ol (make-overlay beg end)))
(unwind-protect
(progn
(overlay-put ol 'face 'highlight)
(sit-for 0.5))
(delete-overlay ol)))
else when (stringp beg)
return nil))
417:名無しさん＠お腹いっぱい。
12/01/01 18:23:18.31
>>416
loop を使うとシンプルになるんですね。
勉強しないといかんなーloop難しい
418:名無しさん＠お腹いっぱい。
12/01/01 19:44:03.56
>>416
わかりやすいコードでいいね
419:名無しさん＠お腹いっぱい。
12/01/02 00:40:25.00
NTEmacs スレが沈んだ
>>1が2008年9月とかのんびりした進行だっただけに誰も次スレ建てなかったわけだ
420:名無しさん＠お腹いっぱい。
12/01/02 14:53:59.03
flet で関数を置き換えた際に、その関数内で置き換え前の関数を呼ぶ方法はありませんでしょうか？
(flet ((load (file &optional noerror nomessage nosuffix must-suffix)
(load file noerror t nosuffix must-suffix)))
(load "something"))
こんな風にすると再帰してしまいます。
421:名無しさん＠お腹いっぱい。
12/01/02 14:59:40.35
symbol-function で関数の実体を取り出してどっかの変数に退避しておいてっ
て方法はある。
こんな感じかな？
(let ((original (symbol-function 'load)))
(flet ((load (file &optional noerror nomessage nosuffix must-suffix)
(funcall original file noerror t nosuffix must-suffix)))
(load "something")))
422:名無しさん＠お腹いっぱい。
12/01/02 15:15:59.61
>>421
なるほど！ありがとうございます。これでやりたいことが出来ました。
session.el でセッション復帰時のローディングメッセージを消したかったのでした。
ソースの load してるところを直接書き換えちゃえばそれで済むといえばそれまでなんですが。
(defadvice session-initialize (around session-load-silently activate)
"セッションロード時のメッセージ抑制"
(let ((org-load (symbol-function 'load)))
(flet ((load (file &optional noerror nomessage nosuffix must-suffix)
(funcall org-load file noerror t nosuffix must-suffix)))
ad-do-it)))
423:名無しさん＠お腹いっぱい。
12/01/02 15:37:23.73
>>387
URLﾘﾝｸ(www.emacswiki.org)
424:名無しさん＠お腹いっぱい。
12/01/02 15:41:37.42
>>423
そんな標準で用意されていない elisp 持ち出されても。
むしろそういうのが標準パッケージに取り込まれないあたりが話になんね。
やっぱ url.el はうんこちんちんだな。
425:名無しさん＠お腹いっぱい。
12/01/02 15:52:00.34
どうせemacsから画像のアップロードとかしないからいいんじゃね。
426:名無しさん＠お腹いっぱい。
12/01/02 16:13:53.44
Gnu pack emacsを使っています
(open-file "./index.html")のようにして
windowsの関連付けどおりにファイルを開くことは可能でしょうか
それらしき関数が見当たらなかったので質問しました
427:名無しさん＠お腹いっぱい。
12/01/02 16:19:35.26
gnusで仕様的に正しいmime multipartなメッセージ作れるんじゃないの？と思ってみてみたけど
multipart/mixedとかは良い感じに実装されてるのにmultipart/form-dataはないのな。惜しいな。
428:名無しさん＠お腹いっぱい。
12/01/02 16:22:33.06
>>426
gnupack で cygwin もセットで導入しているなら
(defun open-file (file)
(interactive)
(start-process "cygstart" nil "cygstart" file))
cygwin いれてないなら cygstart を start に置き換えればいいんじゃないかな。
429:名無しさん＠お腹いっぱい。
12/01/02 16:26:41.04
>>428
interactiveなのに引数必須とはいかがなものか。
(defun open-file (&optional file)
(interactive "fFile: ")
(start-process "cygstart" nil "cygstart" file))
430:名無しさん＠お腹いっぱい。
12/01/02 17:08:05.60
>>429
file が nil だとエラーになるだろうし、
&optional がいらない。
431:名無しさん＠お腹いっぱい。
12/01/02 17:08:59.52
ニワカが増えたな。
432:名無しさん＠お腹いっぱい。
12/01/02 17:11:57.96
るびきちのせいだ
433:名無しさん＠お腹いっぱい。
12/01/02 17:19:09.42
>>429 水準の間違いは昔からだろ。ただの勘違いかもしれないけど。
434:名無しさん＠お腹いっぱい。
12/01/02 17:20:19.64
神社で除夜の鐘ならせるところってあるんだ？
てっきり寺だけかと思ってたんだが。
435:名無しさん＠お腹いっぱい。
12/01/02 17:25:14.37
るびきちはemacs内で完結しないでどんどん外部のプログラムをelisp内から使えよって言ってるけど
外部のプログラムが入ってくると色んな環境で動かす時めんどくさくてやだ。
elispで完結してる方がいいよ。
436:名無しさん＠お腹いっぱい。
12/01/02 17:58:55.73
elisp遅いし正規表現うんこだし非同期がアレじゃないの?
まあ確かに面倒だしキチは嫌いだけどな
437:名無しさん＠お腹いっぱい。
12/01/02 20:06:07.02
emacs に喋らせたくて google 翻訳使ったのを作ったんだけど、日本語含むのがちゃんと動かない。
url-hexify-string の中で encode-coding-string utf-8 してるから問題ないと思ったんだけど何が不味いんだろう。
助言をください・・・
(require 'url-http)
(defvar speech-default-language "en"
"デフォルトの言語。")
(defvar speech-sound-player "cmd /c start %s"
"mp3音声再生プログラム。%s にファイル名が入る。") ;; windows 向け設定
(defun speech-message (text &optional lang)
"指定された文章を音声再生する。"
(interactive "sMessage: ")
(let ((coding-system-for-read 'binary)
(coding-system-for-write 'binary)
temp-file)
(with-current-buffer
(url-retrieve-synchronously
(format "URLﾘﾝｸ(translate.google.com)"
(or lang speech-default-language)
(url-hexify-string text)))
(set-buffer-multibyte nil)
(setq temp-file (make-temp-file "speech-" nil ".mp3"))
(write-region (point-min) (point-max) temp-file nil 'silent)
(apply 'start-process "player" nil
(split-string (format speech-sound-player temp-file))))))
;; 以下を評価でしゃべる
(speech-message "a happy new year!")
(speech-message "a happy new year!" "ja") ;; 言語指定
(speech-message "あけましておめでとうございます" "ja") ;; 動作がおかしい...
438:名無しさん＠お腹いっぱい。
12/01/02 20:21:32.48
temp-file の中身のぞいてみたら？日本語の結果には明らかに mp3 っぽくな
いものが入ってくるけど。google に投げるパラメータが正しいのか確認を。
で、気になったのが英語の方は再生できるとなると、http ヘッダがファイル
に残ってても再生できるってことなのか？
439:名無しさん＠お腹いっぱい。
12/01/02 20:46:38.58
>>438
ヘッダ切り出ししなきゃいけなかったんですね。
MediaPlayerでためしてたからか、先頭にゴミがつまってても再生できてたみたいでした。
>>437 の一部を直してヘッダを切り取ってみましたが、状況変わらずでした。
(point-min) (point-max) temp-file nil 'silent)
↓
(goto-char (point-min))
(write-region (search-forward-regexp "\n\n") (point-max) temp-file nil 'silent)
↓を評価して出来上がる文字列を chrome で表示するとちゃんと「あけましておめでとう・・」って音声が出てくるので
emacs側の文字コード変換とかが間違っているんでしょうか・・・
(format "URLﾘﾝｸ(translate.google.com)"
"ja" (url-hexify-string "あけましておめでとうございます"))
↓
"URLﾘﾝｸ(translate.google.com)"
440:名無しさん＠お腹いっぱい。
12/01/02 20:47:47.37
URL間違ってた・・・
↓です。
URLﾘﾝｸ(translate.google.com)
441:名無しさん＠お腹いっぱい。
12/01/02 21:43:52.50
あとは chrome で送ってる http ヘッダと url-http.el で送ってる http ヘッ
ダを調べながら試してくしかないかなぁ。
どうやら User-Agent で弾いてはいないみたいだが。
442:名無しさん＠お腹いっぱい。
12/01/02 22:02:11.86
>>441
url-debug を t にしてみてみたところ、emacs 側でリクエスト文字列が途中で書き変わってたりということはありませんでした。
他でどうなんだろうとおもって wget で試してみたところ User-Agent に何か適当なのが入っていないと
403 エラーになりました。
指定して取得した結果は英語は大丈夫、日本語は Emacs の時とまったく同じ変な結果が返されてきました。
おっしゃるとおり Chrome のリクエストヘッダと比較して差分を調べて見ることにします。何か足りていないんでしょうね。
ありがとうございました。
443:名無しさん＠お腹いっぱい。
12/01/02 22:45:45.02
うまくいきましたので報告します。
結論から言って User-Agent でした。"Safari/" が含まれていないとなんでか半分ぐらいに切れた結果が返ってきてしまうようです。
(なのでIEでもEmacsと同じ壊れ方になりました。)
あと長過ぎてもダメだったりもするみたいですね。これは通常の Webインターフェースからでも制限かかってるみたいでした。
最終的に以下のようになりました。これで sdic で発音チェックしたり読み方わからない漢字読ませたり出来そうです。
;; (speech-message "鮃より鰆を食べたい。" "ja")
;; (speech-message "Learn basic keystroke commands." "en")
(defvar speech-default-language "en"
"デフォルトの言語。")
(defvar speech-sound-player "cmd /c start %s"
"音声再生プログラム。%s にファイル名が入る。")
(defun speech-message (text &optional lang)
"指定された文章を音声再生する。"
(interactive "sMessage: ")
(let ((coding-system-for-read 'binary)
(coding-system-for-write 'binary)
(url-privacy-level 'paranoid)
(url-request-extra-headers '(("User-Agent" . "Emacs/URI Safari/0"))))
(with-current-buffer
(url-retrieve-synchronously
(format "URLﾘﾝｸ(translate.google.com)"
(or lang speech-default-language) (url-hexify-string text)))
(let* ((coding-system-for-read 'binary)
(coding-system-for-write 'binary)
(temp-file (make-temp-file "speech-" nil ".mp3"))
(cmdlist (split-string (format speech-sound-player temp-file))))
(set-buffer-multibyte nil)
(goto-char (point-min))
(write-region (search-forward-regexp "\n\n") (point-max) temp-file nil 'silent)
(apply 'call-process (car cmdlist) nil nil nil (cdr cmdlist))))))
444:名無しさん＠お腹いっぱい。
12/01/02 22:50:38.11
>>443
環境や目的によるけれど、
open-jtalk なら日本語発声できるよ。
日本語のパースや発音方法を自前でするなら
mbrola などでもできる。
445:名無しさん＠お腹いっぱい。
12/01/02 23:03:14.58
>>443
url.elは糞だ、外部プログラム呼ぶのはキチだって話してる最中にいい度胸だな。
446:名無しさん＠お腹いっぱい。
12/01/02 23:09:56.87
おもしろいね
(setq speech-sound-player "mpg123 %s")
447:名無しさん＠お腹いっぱい。
12/01/02 23:19:58.45
おもしろいじゃん
カーソル位置の単語を喋らせるのつくってみたよ
(defun speech-at-point ()
(interactive)
(speech-message (thing-at-point 'word)))
(global-set-key (kbd "C-c C-s") 'speech-at-point)
これで日本語対象にしてみたらダメだった
文字列から言語判別出来るようにすればよさそうだな
448:名無しさん＠お腹いっぱい。
12/01/03 00:37:02.55
自分なりに改造してみた。
取り敢えず非同期に & >>447 の機能をいれた。
> 文字列から言語判別出来るようにすればよさそうだな
これはできてない。
あと、エラーになったときにバッファやファイルが削除されないかも。
(defun speech-callback (status &rest cbargs)
(unwind-protect
(progn
(set-buffer-multibyte nil)
(goto-char (point-min))
(lexical-let ((temp-file (make-temp-file "speech-" nil ".mp3")))
(let ((coding-system-for-read 'binary)
(coding-system-for-write 'binary)
(cmdlist (split-string (format speech-sound-player temp-file))))
(write-region (search-forward-regexp "\n\n") (point-max) temp-file nil 'silent)
(set-process-sentinel (apply 'start-process (car cmdlist) nil cmdlist)
(lambda (process event)
(delete-file temp-file))))))
(kill-buffer)))
(defun speech-message (text &optional lang)
"指定された文章を音声再生する。"
(interactive (list (read-string "Message: " (thing-at-point 'word))))
(let ((coding-system-for-read 'binary)
(coding-system-for-write 'binary)
(url-privacy-level 'paranoid)
(url-request-extra-headers '(("User-Agent" . "Emacs/URI Safari/0"))))
(url-retrieve (format "URLﾘﾝｸ(translate.google.com)"
(or lang speech-default-language) (url-hexify-string text))
'speech-callback)))
449:名無しさん＠お腹いっぱい。
12/01/03 02:44:31.02
手抜きで
(or lang (and (string-match "\\cj" text) "ja") speech-default-language)
450:名無しさん＠お腹いっぱい。
12/01/03 12:03:34.70
ちょいとうざいがベルの代わりに声で叱ってもらう
'("もう" "だめよ" "しかたないこね" "ちょっとだけよ")とかもいいな
(defvar speech-bell-messages '("おい" "こら" "いい加減にせいや" "いてまうぞわれ")
"御叱りの言葉")
(defvar speech-bell-language "ja"
"御叱りの言語")
(defvar speech-bell-cur nil)
(defun speech-bell-function ()
"声で叱る"
(let ((ring-bell-function nil))
(unless speech-bell-cur
(setq speech-bell-cur speech-bell-messages))
(speech-message (pop speech-bell-cur) speech-bell-language)))
(setq ring-bell-function #'speech-bell-function)
451:名無しさん＠お腹いっぱい。
12/01/03 13:41:41.56
そういやemacspeakってのあったよな。
452:名無しさん＠お腹いっぱい。
12/01/03 13:44:26.85
す、すばらしい
(speech-message "C'est parfait!" "fr")
453:名無しさん＠お腹いっぱい。
12/01/03 13:58:29.87
>>448
おおー
set-process-sentiel で終了を検知すれば後始末が出来るんですね。
勉強になります。
454:名無しさん＠お腹いっぱい。
12/01/03 14:50:57.48
Windowsでcmd /c start とかで再生しちゃうとiTunesだのMediaPlayerとかだのでてうざかったから
mplayerのWindows用gui無し版を入れたらはかどった。mpg123のwindowsビルドだとなんでか再生うまくいかなかったので。
URLﾘﾝｸ(www.mplayerhq.hu)
(setq speech-sound-player "mplayer -really-quiet %s")
455:名無しさん＠お腹いっぱい。
12/01/03 15:00:57.91
今年こそは脱emacsしたい
456:名無しさん＠お腹いっぱい。
12/01/03 15:05:52.66
>>453
>>448 だと lexical-let を使ったけれど、
(let ((process (apply 'start-process (car cmdlist) nil cmdlist)))
(set-process-plist process `(temp-file ,temp-file))
(set-process-sentinel process
(lambda (process event)
(delete-file (get 'temp-file
(process-plist process))))))
という風にするほうが真っ当かもしれない。
457:名無しさん＠お腹いっぱい。
12/01/03 15:08:39.08
( ) 脱ｲ･･････
( )
| |
ヽ('A`)ﾉ ﾏｯｸｽ!!!
( )
ﾉε|
__[警]
( ) ('A`)
( )Ｖノ ）
| | | |
458:名無しさん＠お腹いっぱい。
12/01/03 15:18:16.09
おやくそくの
alias emacs=vim
459:名無しさん＠お腹いっぱい。
12/01/03 15:52:40.25
>>428-430
できました。ありがとうございます。
460:名無しさん＠お腹いっぱい。
12/01/03 16:00:41.47
一応NTEmacsスレ立てといた
NTEmacs スレッド 3
ｽﾚﾘﾝｸ(software板)
461:名無しさん＠お腹いっぱい。
12/01/03 19:09:55.27
>>395
完璧です。どうもです。
462:名無しさん＠お腹いっぱい。
12/01/03 19:38:37.96
anythingを入れています。
emacs起動後に*scratch*などで評価（作成）した関数が
anythingの候補一覧に載ってほしいのですが
どうすればよいのでしょうか
463:名無しさん＠お腹いっぱい。
12/01/03 19:43:29.24
るびきちに聞けやボケぇ
464:名無しさん＠お腹いっぱい。
12/01/03 19:49:26.67
anything使ってる人なんて都市伝説だろ
465:名無しさん＠お腹いっぱい。
12/01/03 21:12:08.20
複数の関数に同じ advice を付けたいのですが、うまく書けません。
第一引数に変数を持ってくる正しい書き方はどのようにしたらよいのでしょう？
;; func-a と func-b に同じadviceをつける
(dolist (func '(func-a func-b))
(defadvice func (before ad-func activate) (message "before")))
これだと func 変数についてしまったようで func-a と func-b には何もなしでした。
466:名無しさん＠お腹いっぱい。
12/01/03 21:17:05.44
どこからつっこめばいいかわからない。
467:名無しさん＠お腹いっぱい。
12/01/03 21:18:12.97
るびきちの責任は重いな
468:名無しさん＠お腹いっぱい。
12/01/03 21:25:45.54
>>466
マクロと関数と引数の評価は初心者が嵌りそうなところだと思うけれどなあ。
469:名無しさん＠お腹いっぱい。
12/01/03 21:29:06.07
るびきちは責任もってニワカを引き取れよ
470:名無しさん＠お腹いっぱい。
12/01/03 23:25:19.84
500円払えよ
471:名無しさん＠お腹いっぱい。
12/01/03 23:26:58.36
本買ってやったじゃん。さっさと教えないと捨てるぞ。
472:465
12/01/03 23:50:32.16
色々調べて書きなおしてみました。
これで正しいのか、なんでうまくいっているのかいまいち理解できていないですが動いているのでよしとしました。
(dolist (func '(func-a func-b))
(eval `(defadvice ,func (before ,(intern (format "ad-%s" (symbol-name func))) activate)
(message "before"))))
>>466
すみませんでした。本買って勉強しなおしてきます。
473:名無しさん＠お腹いっぱい。
12/01/04 00:05:35.25
Anything無いと途方に暮れる。
C-:にanything-filelist+を割り当ててるけど、これ以上素早く
ファイル(バッファ)を開く術は無いと思うけど。
あと、Semanticを有効にした状態でのimenuも便利過ぎる。
474:名無しさん＠お腹いっぱい。
12/01/04 13:03:01.19
うわっ・・・私のEmacs起動、遅すぎ・・・？
(message "init time: %d msec"
(+ (* (- (nth 1 after-init-time) (nth 1 before-init-time)) 1000)
(/ (- (nth 2 after-init-time) (nth 2 before-init-time)) 1000)))
=> init time: 5172 msec
475:名無しさん＠お腹いっぱい。
12/01/04 13:09:54.22
M-x emacs-init-time
476:名無しさん＠お腹いっぱい。
12/01/04 13:24:41.72
M-x emacs-init-time
1.2 seconds
普通こんくらい。
477:名無しさん＠お腹いっぱい。
12/01/04 13:38:19.83
9.4 seconds
478:名無しさん＠お腹いっぱい。
12/01/04 13:46:51.94
yasnippet を入れないと 1秒台、入れないと3秒台
479:名無しさん＠お腹いっぱい。
12/01/04 13:53:28.13
15.1 seconds だ。
Emacs 起動と同時に Gnus も起動してるともっとかかる、多分 1 分ぐらい。
480:名無しさん＠お腹いっぱい。
12/01/04 14:12:44.28
15秒っていったいどんだけのファイルロードしてるんだ・・・
481:名無しさん＠お腹いっぱい。
12/01/04 14:55:50.16
12.3 secondsだった
結構かかっているな
482:名無しさん＠お腹いっぱい。
12/01/04 14:59:19.82
みなさんキーボードはハッピーハッキングキーボードなのでしょうか
ハッピーハッキングキーボードだとＣＧソフトのBlenderがうまく使えないので
乗り換えるべきか迷うのですが
ハッピーハッキングキーボードのメリットってなんでしょう？
483:名無しさん＠お腹いっぱい。
12/01/04 15:04:58.86
そんなこと悩む時点でメリットなんて特にない。
あれは呪いにかかった人が仕方なく使うアイテム。
484:名無しさん＠お腹いっぱい。
12/01/04 15:27:43.87
ぶっちゃけ中二病アイテムでしかないよな
ワナビ御用達って感じ
485:名無しさん＠お腹いっぱい。
12/01/04 15:58:04.74
20.5秒だった
486:479
12/01/04 16:12:44.06
>>480
もしかして、自分はここの人たちと比べても変態なのか……！？
PC のスペックが Intel(R) Atom(TM) CPU N455 @ 1.66GHz
と低いことに原因があるのかな。
487:名無しさん＠お腹いっぱい。
12/01/04 16:25:04.74
Atomだから遅いのかもね。
あとうちでは一回目と二回目で起動時間の差が生じたな。
初回は7秒ぐらいだったのが2回目は1秒ぐらいになってた。
ディスクキャッシュとかフォントとかそこら辺のせいっぽいなあ。
488:名無しさん＠お腹いっぱい。
12/01/04 19:16:11.14
imenuとかこんなに便利なもの全然しらなかったよ
menubar関係かと思ってスルーしてた
るびきちの本はニワカだったら買って損ないわ
知ったかして敬遠してて損した
489:名無しさん＠お腹いっぱい。
12/01/04 19:32:28.19
ステマか
490:名無しさん＠お腹いっぱい。
12/01/04 19:42:10.48
あからさマ
491:名無しさん＠お腹いっぱい。
12/01/04 19:55:25.37
とうとうこんな僻地のEmacsスレにまでステマの波が・・・
492:名無しさん＠お腹いっぱい。
12/01/04 20:25:01.45
放置しておくべきなんだろうけど。
あいつよっぽど生活苦しいんだろうな。
493:名無しさん＠お腹いっぱい。
12/01/04 20:35:53.09
買い支えてやれよ。
どうせならLisp極めてそれ系の本出したほうがかっこいいのにね。
494:名無しさん＠お腹いっぱい。
12/01/04 20:50:22.94
なんでelispに拘り続けるのかわからんよね。
elispをバネに他の言語にも拡げればいいのに。
rubyに挫折して大した能力がないと自覚しちゃったのかな？
だとしたら、気の毒で憐れなやつだよな。
495:名無しさん＠お腹いっぱい。
12/01/04 20:51:17.33
Emacs Lispテクニックバイブル正誤 - (rubikitch loves (Emacs Ruby CUI Books))
URLﾘﾝｸ(d.hatena.ne.jp)
496:名無しさん＠お腹いっぱい。
12/01/04 21:16:02.43
>>495
>完全メールサポートつきで初月無料
>でなので安心して誤登録ください。
errata で誤字とか lisp 的でいいな。
497:名無しさん＠お腹いっぱい。
12/01/04 21:18:40.48
誤って登録しても初月無料ですから安心してっていいたかったんじゃない？
498:名無しさん＠お腹いっぱい。
12/01/04 21:28:39.22
なるほど
499:名無しさん＠お腹いっぱい。
12/01/04 21:54:57.85
>>494
るびきちより有能な奴10000人が書き込むこのスレって天才たちの社交場だな
500:名無しさん＠お腹いっぱい。
12/01/05 05:00:09.62
>>499
ああ、こういうのを負け犬の遠吠えっていうんだな。
501:名無しさん＠お腹いっぱい。
12/01/05 10:55:29.78
emacs24はクロージャ正式にサポートかよ
502:名無しさん＠お腹いっぱい。
12/01/05 11:57:07.33
今年こそは真面目に脱Emacsをはかるぜ
リハビリにしばらくWindowsのメモ帳だけで生活してやる
503:名無しさん＠お腹いっぱい。
12/01/05 12:11:07.06
おもむろに elisp 紹介
・Ace jump mode - emacs 用 hit-a-hint 風カーソル移動
URLﾘﾝｸ(github.com)
(require 'ace-jump-mode)
(global-set-key (kbd "C-;") 'ace-jump-mode)
ってやって C-; a とか押すと画面上の a のところにアルファベットの連番が振られて
押せばジャンプできる。
504:名無しさん＠お腹いっぱい。
12/01/05 12:17:38.59
isearchでよくね？
505:名無しさん＠お腹いっぱい。
12/01/05 12:21:35.58
バッファ開きまくってる人がこれで統計とると面白そうだ
(defun buffer-mode-histogram ()
"Display a histogram of emacs buffer modes."
(interactive)
(let* ((totals '())
(buffers (buffer-list()))
(total-buffers (length buffers))
(ht (make-hash-table :test 'equal)))
(save-excursion
(dolist (buffer buffers)
(set-buffer buffer)
(let
((mode-name (symbol-name major-mode)))
(puthash mode-name (1+ (gethash mode-name ht 0)) ht))))
(maphash (lambda (key value)
(setq totals (cons (list key value) totals)))
ht)
(setq totals (sort totals (lambda (x y) (> (cadr x) (cadr y)))))
(with-output-to-temp-buffer "Buffer mode histogram"
(princ (format "%d buffers open, in %d distinct modes\n\n"
total-buffers (length totals)))
(dolist (item totals)
(let
((key (car item))
(count (cadr item)))
(if (equal (substring key -5) "-mode")
(setq key (substring key 0 -5)))
(princ (format "%2d %20s %s\n" count key
(make-string count ?+))))))))
506:名無しさん＠お腹いっぱい。
12/01/05 12:44:35.74
emacs ユーザ分布
URLﾘﾝｸ(maps.google.com)
日本人いねーぞこら
507:名無しさん＠お腹いっぱい。
12/01/05 12:55:44.01
>>501
そもそもいつ正式リリースなの？
508:名無しさん＠お腹いっぱい。
12/01/05 13:03:05.07
emacs を heroku で動かす。マジキチ
URLﾘﾝｸ(github.com)
509:名無しさん＠お腹いっぱい。
12/01/05 13:10:03.26
>>502
頑張れ
ちゃんとそれを周りの人間にも広めるんだぞ
510:名無しさん＠お腹いっぱい。
12/01/05 20:27:35.45
>>502
copy con ファイル名
でおk
511:名無しさん＠お腹いっぱい。
12/01/05 20:31:29.98
じゃあ俺は type con > ファイル名ちゃん！
512:名無しさん＠お腹いっぱい。
12/01/05 20:48:11.81
半角空白と全角空白とタブに色をつけて区別したいのですが
どうすればよいのでしょうか
513:名無しさん＠お腹いっぱい。
12/01/05 21:02:06.09
>>512
whitespace-mode
標準だと全角には対応していないと思うので、
適当に whitespace-space-regexp などを変更する。
514:名無しさん＠お腹いっぱい。
12/01/05 21:10:29.22
find-dired の結果が綺麗に縦並びにならないのは仕様と思って諦めるしかないんでしょうか。
515:名無しさん＠お腹いっぱい。
12/01/05 21:22:02.03
>>499, >>500
痛いところ突いちゃってごめん。反省してます。
人を傷付けると自分も傷つきますね。
516:名無しさん＠お腹いっぱい。
12/01/05 21:34:42.64
はやく答えろよるびきち以下の低能ども
517:名無しさん＠お腹いっぱい。
12/01/05 21:41:08.82
世界最高のエディタで世界最先端の研究を行い
IT業界すなわち世界経済を支える
るびきちに逆らえるのは各国首脳クラスから。
2ちゃんねらーは常に「るびきち様」と呼ばなければいけない。
518:514
12/01/05 21:50:47.17
find-dired の日付フォーマットは変更出来るのでしょうか？
find-ls-option の ls 部分に '--time-style=+%Y/%M/%D' とかつけたところ
出力の日付は望みどおりになったのですが、その代わり dired が正しくファイルを認識して
くれなくなってしまいました。
519:名無しさん＠お腹いっぱい。
12/01/05 21:54:29.66
>>514
diredなんて窓から投げ捨てるのが正しいと思う。
あんな表示すら満足に変えられない前世紀の遺物を使うやつの気がしれん。
520:名無しさん＠お腹いっぱい。
12/01/05 22:19:14.76
投げ捨てられないやつがemacs使ってるんだよ。
ただ、ゴミはあってもゴミじゃない。
521:名無しさん＠お腹いっぱい。
12/01/05 23:38:44.28
RMSが離れたとたんリリースサイクルが速くなったような気がする
522:名無しさん＠お腹いっぱい。
12/01/05 23:50:17.07
もうrmsも老害か。lose32ってやってるの見ててなんか色々思っちゃった。
523:名無しさん＠お腹いっぱい。
12/01/05 23:51:11.63
>>519
少しカスタマイズしたdiredですこぶる快適に使えているが。
とりあえず何が不満なのか言ってみ。
524:名無しさん＠お腹いっぱい。
12/01/06 00:24:49.33
レジスタ使いこなしてる人ってどんだけいるんだろう
525:名無しさん＠お腹いっぱい。
12/01/06 00:34:22.55
bf-mode と popwin の相性が今ひとつで悲しい
526:名無しさん＠お腹いっぱい。
12/01/06 10:30:11.51
>>513
ありがとうございます。
できました。
527:名無しさん＠お腹いっぱい。
12/01/06 12:36:51.01
find-grep-dired でも lv 付属の lgrep を使いたいんですがうまく動作できません。
うまく動かせている方はいらっしゃりますでしょうか？
find-grep-dired のソースを見てみると、lgrep が対応していないオプション -e がハードコーディングされていたので
defadvice で書き換えたのですが、こんどは lgrep に出力無しにするオプションがないため
dired 側がまともに動かなくなりました。
528:名無しさん＠お腹いっぱい。
12/01/06 13:15:53.03
過去ログ眺めてるとるびきちがいかに愛されているかよくわかっていいな。
529:名無しさん＠お腹いっぱい。
12/01/06 13:20:10.22
* このスレでのコミュニケーションを前スレ以上に活発にすること (用がなくとも、毎日の書き込みが理想)
* 部外者/非Emacsユーザーの書き込みも可。但し、女性の書き込みは場の雰囲気を乱すので不可
530:名無しさん＠お腹いっぱい。
12/01/06 13:26:07.82
>>527
find-grep-dired で lgrep を使うメリットは何？
531:名無しさん＠お腹いっぱい。
12/01/06 13:26:47.90
auto-complete.elで候補選択にカーソルキーではなくてC-nとC-pを使うようにするには
どうすればよいですか
候補選択時だけカーソルキーまで手を伸ばすのに違和感がありますので
532:名無しさん＠お腹いっぱい。
12/01/06 13:32:39.48
>>530
日本語で検索したかったので。
色んなエンコードのファイルが散らばっているのです。
533:名無しさん＠お腹いっぱい。
12/01/06 13:32:56.08
(setq ac-use-menu-map t)
534:530
12/01/06 13:33:41.70
>>532
わり、勘違いした。
535:531
12/01/06 13:49:57.19
>>533
探していたのはまさにそれです
ありがとうございます。
536:名無しさん＠お腹いっぱい。
12/01/06 13:53:42.91
最近カキコが多いな、なんで？
537:名無しさん＠お腹いっぱい。
12/01/06 13:55:35.12
メルマガから人ながれてきてるんだろ
538:名無しさん＠お腹いっぱい。
12/01/06 13:59:10.09
例のメルマガか
539:名無しさん＠お腹いっぱい。
12/01/06 14:06:22.37
(read-string)で入力を要求しバッファ内の文字列とヒットするなら再度入力を求め、
ヒットしないならコマンドを呼び出した位置に入力した文字列を装飾して挿入したいです
(interactive)
(let ((str (read-string "input: ")))
(save-excursion
(while (search-forward str nil t) ; バッファ内の文字列とヒットしてしまった
;; ここで(read-string)を再度呼び出したい
))
;; save-excursionを抜けてからstrを使って挿入する
(insert (format "%s" (make-my-decoration str))))
このような処理を考えたのですが
(read-string)を二度書かない方法はあるでしょうか
540:名無しさん＠お腹いっぱい。
12/01/06 14:07:36.00
すみません一行分抜けていました
(save-excursion
は
(save-excursion
(goto-char (point-min))
です
541:名無しさん＠お腹いっぱい。
12/01/06 14:09:26.25
2度書かないって、再度入力する必要があるなら2度呼ばなきゃいけないんじゃ・・
それとも再帰的に処理したいってことか？
542:名無しさん＠お腹いっぱい。
12/01/06 14:29:08.57
(defun somefunc ()
(interactive)
(let ((buf (save-excursion
(save-restriction
(widen)
(buffer-substring-no-properties (point-min) (point-max)))))
str)
(save-match-data
(while (and (setq str (read-string "input:"))
(string-match (regexp-quote str) buf))))
(insert (format "%s" (make-my-decoration str)))
))
543:名無しさん＠お腹いっぱい。
12/01/06 14:38:52.45
>>542
widen するかどうかは処理内容によるんじゃないのか？あとバッファ全コピはやりすぎだ
(defun somefunc ()
(interactive)
(let (str)
(save-match-data
(while (and (setq str (read-string "input:"))
(save-excursion
(goto-char (point-min))
(search-forward str nil t))))
(insert (format "%s" (なんか str)))
)))
544:名無しさん＠お腹いっぱい。
12/01/06 14:54:56.86
最近elispはじめました！なコード貼る奴増えたな。
545:名無しさん＠お腹いっぱい。
12/01/06 14:56:12.28
elispを編集しているとcomment-dwimの便利さに驚きます
そこでdefine-generim-modeで作ったモードにも同様の機能を盛り込みたいのですが
どうすればよいのですか
elispのコメントの仕様と同じものを希望します
具体的には、文字列が入力されている行なら行末に;１つ
（私の環境ではelispでは行末から20文字くらい右につきます）
リージョンが設定されているか
行に何も書いていなければ行頭に;２つ
よろしくお願いします
546:名無しさん＠お腹いっぱい。
12/01/06 14:59:19.24
>>544
いいことだな。
547:名無しさん＠お腹いっぱい。
12/01/06 15:01:11.90
おいおいゴミかきこが増えたな
るびきちのせいでこのスレのレベルが低下するのは勘弁だぜ
548:名無しさん＠お腹いっぱい。
12/01/06 15:01:27.84
>>545
外してたらすまんが、define-generic-mode の引数で正しくコメントの書式設定してたら
commend-dwim で普通にその動作にならない？
549:名無しさん＠お腹いっぱい。
12/01/06 15:02:47.50
2chなんぞよりredditがよっぽど有意義な盛り上がりを見せてるぞ。
URLﾘﾝｸ(www.reddit.com)
550:名無しさん＠お腹いっぱい。
12/01/06 15:14:40.55
,.,.,.,.,.,.,.,.,__
,,;f::::::::::::::::::::::ヽ
i::/'￣￣￣ヾi::l
|::| ／ ＼,|::|
|r-（ ・ );（ ・ )-|
( ヽ :::(__)..:: } ＜・・・で？
,＿＿__／ヽ -==- /
r'"ヽ t､ ヽ＿＿_/
/ ､､i ヽ＿＿,,/
/ ヽﾉ j , j |ヽ
|⌒`'､__ / / /r |
{ ￣''ｰ-､,,_,ﾍ＾ |
ゝ-,,,＿＿＿＿_）--､j
/ ＼__ /
551:名無しさん＠お腹いっぱい。
12/01/06 15:40:58.79
>>539
別解っぽいものを書いてみた。
call-interactively は使わないほうが行儀が良いような気がする。
>>544
変だったら指摘してくれると大助かり。
(defun somefunc (str)
(interactive "sinput: ")
(if (save-excursion
(goto-char (point-min))
(save-match-data
(search-forward str nil 'noerror)))
(call-interactively 'somefunc)
(insert str)))
ただし call-interactively は使わないほうが行儀が良い気がする。
552:名無しさん＠お腹いっぱい。
12/01/06 17:21:25.66
Emacs 用バイブコントローラ
URLﾘﾝｸ(www.youtube.com)
553:名無しさん＠お腹いっぱい。
12/01/06 17:31:06.54
sdic が独自のポップアップ表示してるせいで popwin 管理下に置けなくてストレスMAX
554:名無しさん＠お腹いっぱい。
12/01/06 17:45:38.45
>>553
ほれ
;; popwin 管理下におく
(add-to-list 'popwin:special-display-config `(,sdic-buffer-name))
;; sdic-display-buffer 書き換え
(defadvice sdic-display-buffer (around sdic-display-buffer-normalize activate)
"sdic のバッファ表示を普通にする。"
(let ((p (or (ad-get-arg 0)
(point))))
(and sdic-warning-hidden-entry
(> p (point-min))
(message "この前にもエントリがあります。"))
(goto-char p))
(display-buffer (get-buffer sdic-buffer-name)))
555:名無しさん＠お腹いっぱい。
12/01/06 17:53:07.75
>>554
ありがとでも sdic-describe-word-at-point がちょっと変な気がする
556:名無しさん＠お腹いっぱい。
12/01/06 17:59:14.72
>>555
ほれ。あとちょっと挙動違ってた部分もついでになおした。
;; sdic-display-buffer 書き換え
(defadvice sdic-display-buffer (around sdic-display-buffer-normalize activate)
"sdic のバッファ表示を普通にする。"
(setq ad-return-value (buffer-size))
(let ((p (or (ad-get-arg 0)
(point))))
(and sdic-warning-hidden-entry
(> p (point-min))
(message "この前にもエントリがあります。"))
(goto-char p)
(display-buffer (get-buffer sdic-buffer-name))
(set-window-start (get-buffer-window sdic-buffer-name) p)))
557:名無しさん＠お腹いっぱい。
12/01/06 18:14:46.00
追加。閉じる時の変なチラチラも消える。
(defadvice sdic-other-window (around sdic-other-normalize activate)
"sdic のバッファ移動を普通にする。"
(other-window 1))
(defadvice sdic-close-window (around sdic-close-normalize activate)
"sdic のバッファクローズを普通にする。"
(bury-buffer sdic-buffer-name))
558:名無しさん＠お腹いっぱい。
12/01/06 18:20:47.72
>>554
>(add-to-list 'popwin:special-display-config `(,sdic-buffer-name))
を
(add-to-list 'popwin:special-display-config `(,sdic-buffer-name ,sdic-window-height))
に直したら大分良くなった
559:名無しさん＠お腹いっぱい。
12/01/06 18:21:28.63
ミスった
(add-to-list 'popwin:special-display-config
`(,sdic-buffer-name :height ,sdic-window-height))
560:名無しさん＠お腹いっぱい。
12/01/06 18:33:53.57
ありがてえ・・・
561:名無しさん＠お腹いっぱい。
12/01/06 19:08:58.15
速攻でコード書いてくれて凄腕って思うだろ？
こいつらみんな無職なんだぜ……
562:545
12/01/06 19:46:26.97
>>548
ありがとうございます。確認してみました。
(define-generic-mode 'my-mode
'(";")
こういう書き出しではじまるgeneric-modeで
;の出力される位置は行頭行末とも適切だとわかったのですがただ行頭が;;になりません
普通generic-modeでこう設定すると行頭は;;となるのでしょうか
563:名無しさん＠お腹いっぱい。
12/01/06 20:19:12.42
>>562
emacs-lisp-mode みてみたら、どうやら
comment-add って変数で ; の数を制御しているみたい。
モードのセットアップしてるところで
(setq (make-local-variable 'comment-add) 1) ってやってみて。
564:名無しさん＠お腹いっぱい。
12/01/06 20:19:20.55
ここがサポート掲示板か
565:名無しさん＠お腹いっぱい。
12/01/06 20:20:28.45
まちがった
setq じゃなくて set ね
566:名無しさん＠お腹いっぱい。
12/01/06 20:23:51.57
にわかはるびきちが引き取れって言ってるだろうが！！
567:545
12/01/06 20:28:48.11
>>563
ありがとうございます。意図した通りの結果が出てきました！
568:名無しさん＠お腹いっぱい。
12/01/06 20:31:57.02
きちぼんは誰かに献本されなかったのだろうか。
思うにあいつかなりドケチだよな。
569:名無しさん＠お腹いっぱい。
12/01/06 20:41:56.80
書店が献本したがレビューが後回しにされてる
URLﾘﾝｸ(d.hatena.ne.jp)
lispじゃなくて普通の方だな
570:539
12/01/06 21:11:16.68
>>542-543 >>551
ありがとうございます。save-match-data の使い方を勉強します。
>>541
説明が不足でした。重複している処理なので
whileのたぐいで一度だけ書けばどうにかならないかと悩んでいました。
書き方は再帰でもloopでもかまいませんでした。
571:名無しさん＠お腹いっぱい。
12/01/06 21:23:48.68
>>570
save-match-data は >>542 が string-match 使った時に混入しただけで
search-forward 使う分には入れる必要ないかと。
572:名無しさん＠お腹いっぱい。
12/01/07 00:03:43.68
あとは bf-mode が popwin 対応すればもう勝利は目前だな。
573:名無しさん＠お腹いっぱい。
12/01/07 00:07:29.32
必死でアピールしてるな。
574:名無しさん＠お腹いっぱい。
12/01/07 00:30:53.33
bf-modeみたいなメンテナのはっきりしないelispは埋もれていく定め
575:名無しさん＠お腹いっぱい。
12/01/07 01:04:50.46
もしかして eval-after-load の中のフォームってバイトコンパイルされなかったりする？
576:名無しさん＠お腹いっぱい。
12/01/07 01:23:09.55
てst
577:名無しさん＠お腹いっぱい。
12/01/07 10:32:37.89
Android 版ありますか?
578:名無しさん＠お腹いっぱい。
12/01/07 10:42:25.69
iOS版は確かあったけどAndroid版はまだじゃないかなあ
と思ったら一応出来ないことはないみたい
URLﾘﾝｸ(www.emacswiki.org)
579:名無しさん＠お腹いっぱい。
12/01/07 11:44:15.55
emacs から emacs を立ち上げれば
elisp だけでの並列プログラミングが実現出来るんじゃないか？
マルチスレッドじゃなくマルチプロセスだけど。
580:名無しさん＠お腹いっぱい。
12/01/07 11:46:26.85
Androidのバージョンとか不明ですが
Emacs for Android
URLﾘﾝｸ(d.hatena.ne.jp)
581:名無しさん＠お腹いっぱい。
12/01/07 12:25:49.29
>>579
emacs24からはポート指定でサーバ立ち上げられるし
server-eval-at なんてのも追加されてるからあながち間違ったアプローチじゃないとおもう。
582:名無しさん＠お腹いっぱい。
12/01/07 14:14:17.26
replace-regexpについて質問します
このようなテキストがあるところで
akasatana
hamayarawa
ikisitini
「元のテキスト 元のテキスト」のようにテキストを複製するかのような処理を
正規表現の置換で行いたいのですがうまくいきません
置換対象の文字列検索はre-builderでは大丈夫でした
replace-regexp [ret]
\\(.+\\) [ret]
\\1 \\1 [ret]
何を修正すればよいのでしょうか
583:名無しさん＠お腹いっぱい。
12/01/07 14:21:09.16
\ を \\ と書く時ってのはどういう理由でそれが必要だったのか考え直せ
584:名無しさん＠お腹いっぱい。
12/01/07 14:39:22.04
emacs の正規表現はもうちょっとなんとかならんのかと常々思うわ。
585:名無しさん＠お腹いっぱい。
12/01/07 15:03:07.77
似たような問題はどんな言語いじっててもあるからね。
586:582
12/01/07 16:00:50.27
>>583
なるほど、re-builderは""内に書くから\\(\\)と書かなければならなくて、
replace-regexpは""内に書かないから\(\)と書くということですね
すっきりしました
587:名無しさん＠お腹いっぱい。
12/01/07 16:21:58.76
ELPAの作者がemacsをcommon lispで書き直そうとしているみたい
The Cliffs of Inanity ？ Emacs and Common Lisp URLﾘﾝｸ(tromey.com)
そうなると長い目で見ればcommon lispを知っておいた方がよさそう
588:名無しさん＠お腹いっぱい。
12/01/07 16:26:03.17
EmacsをCommon Lispでって・・・・
10年前に Erik Naggum が言ってたのと同じことやん。
歴史は繰り返す。
589:名無しさん＠お腹いっぱい。
12/01/07 16:53:47.36
climacs があるけれど、elisp の便利な資産が使えないからなあ。
590:名無しさん＠お腹いっぱい。
12/01/07 17:10:02.39
>>588
このあたりの話が関係するか。emacsをcommon lispで、っていうのは真っ正面から議論されていたのかな？
Island Life - 「Cで書くコードの方がCommon Lispで書くより速いって人がいたら、それは彼のCの技量が高すぎるってことだね。」
URLﾘﾝｸ(blog.practical-scheme.net)