07/10/09 15:42:41
(message ">>1 乙")
3:デフォルトの名無しさん
07/10/10 01:16:09
(setq >>1 "乙")
4:デフォルトの名無しさん
07/10/13 00:14:53
System.out.println(">>1 乙");
5:デフォルトの名無しさん
07/10/13 00:17:01
スパイがいるぞ
6:デフォルトの名無しさん
07/10/13 22:02:03
ここまでバレバレだとスパイというより罠だな
そんなことよりコンスセルの話をしようぜ
7:デフォルトの名無しさん
07/10/13 22:37:42
いやでゴンス
8:デフォルトの名無しさん
07/10/14 18:51:50
ところで、lexbindはもうtrunkにマージされた？
9:デフォルトの名無しさん
07/10/14 19:43:25
elisp で perl みたいなテキスト処理をしたいんだけど、
ファイルから一行読み込む、ってどうやるの？
ファイルは馬鹿でかいから、バッファに全部は読み込めない。
10:デフォルトの名無しさん
07/10/14 20:13:06
insert-file-contents かな
11:デフォルトの名無しさん
07/10/29 23:54:17
リージョン内の文字列を対象に、ファイルサイズを知りたいです。
リージョンを指定して M-| wc -c だと、改行コードなどがバッファのものと違う、
string-width だと TAB が 8 にカウントされる、改行がカウントされない、
length だとマルチバイト文字も 1 文字とカウントする、
など、どれもちょっと期待と違います。
ちなみに、最終的には mode-line に表示させたいので、
外部プロセスなどは使わずにすませたいところです。
何かいい方法ないでしょうか？
12:デフォルトの名無しさん
07/10/30 02:23:12
buffer-file-coding-system に encode-coding-string して length 取る、とか…
13:デフォルトの名無しさん
07/10/30 11:33:17
毎回やるのか、それ。遅そう……。
14:デフォルトの名無しさん
07/10/31 00:20:40
>>11です。
>>12 を参考にコードを書いてみましたが、
1MBくらいのファイルになるとスクロールに影響がありました。
私の組み方も悪かったのかも知れませんね。
バッファ全体を substring して temp-buffer に insert して encode して length… だったので。
きっと、もちょっと効率良くできるのでしょう。
で、mode-line の表示をどうしたものかと xdisp.c を眺めていたのですが、
mode-line-format に %i や %I が使えることが分かったので、
もうこれでいいコトにします。
ありがとうございました。
15:デフォルトの名無しさん
07/10/31 23:46:14
> 1MBくらいのファイルになるとスクロールに影響がありました。
変更がなければ再計算する必要ないと思うが。
16:デフォルトの名無しさん
07/11/02 01:15:53
バッファに変更がないことを知るのは難しいよね？
undo-list はアテにならないから使えないと思うんだけど、
バッファに変更があったことをどうやって知ればいい？
17:デフォルトの名無しさん
07/11/02 03:27:25
buffer-modified-tickとか。
buffer-undo-listじゃどうアテにならないのかおせーて。
18:デフォルトの名無しさん
07/11/02 23:30:07
buffer-undo-list って、メジャーモードによっては消えたりするじゃない、
…と思ったけど、変化したら再計算するんだから、十分アテになるね。
19:デフォルトの名無しさん
07/11/04 10:58:58
after-change-functions
20:デフォルトの名無しさん
07/11/06 23:59:32
>>19
おお、これなら…、と思ってやってみましたが、
少し速くタイプすると描画がついてきませんでした。これは CPU の性能のせいかな？
もちろん、スクロールには影響なかったですよ。ありがとうございます。
after-change-functions 自体は便利そうなので、別の何かに使います。
21:デフォルトの名無しさん
07/11/25 23:44:53
昨日からelispを勉強しています。
Rubyが一応は書けます。
OSはUbuntu7.10を使っています。
質問なのですが
yatexは.elファイルをどっかに置いているのだと思いますが
これはどこに置いてあるのですか？
rpm系を使っていて
rpm -ql yatexのような事が出来ればいいのですが良く分かりません。
まずこれについて方法を教えていただければと思います。
次に、
例えば/usr/libとかに.elファイルが置いてあるとして
emacsはどこに書いてある命令でこれを読みに行くのでしょうか？
最後に
.emacsというのにelispを書くとemacsをカスタマイズ出来るそうですが
.emacsに例えば
(set-language-environment "Japanese")
(set-default-coding-systems 'euc-japan)
(set-terminal-coding-system 'euc-japan)
と書いた場合、確認した中では
何もファイルを指定せずにファイルを開いた場合と
.rbファイルを開いた場合に設定が反映されましたが、
.texの時は変わらず、JISのままでした。
例えば/usr/libにyatex.elというのがあると仮定して、
おそらくここにJISにしなさいという命令が書いてあるものと思われ
それにより上書きされているものと思われますが、
同一種の命令の場合、
.emacsの設定の方を優先順序を上にするにはどうすればいいですか？
22:デフォルトの名無しさん
07/11/25 23:54:29
>>21
ライブラリの場所は M-x locate-library でわかるよ
23:デフォルトの名無しさん
07/11/26 00:02:34
ありがとうございます。
無理やりですが
locate yatexで調べました。
/usr/share/emacs/site-lisp
とかにそれらしきパッケージが入っていますね。
しかしどうやって読み込んでるのかとか
どうやってyatexを使用した場合でも.emacsに書いたeuc-jpを使いなさい
という命令を優先させる事が出来るのかが分かりません・・・
24:デフォルトの名無しさん
07/11/26 03:19:52
yatexが入っているならそのinfoも入っているはずなので、
C-h iでyatexを探して読んでみるといい。
文字エンコーディングの設定方法はそこに書いてある。
25:デフォルトの名無しさん
07/11/26 13:07:15
このスレはEmacs設定スレじゃないと思うんだが……
26:デフォルトの名無しさん
07/12/09 06:15:49
Emacs Lispの成分解析結果 :
Emacs Lispの55%は陰謀で出来ています。
Emacs Lispの39%は祝福で出来ています。
Emacs Lispの6%は成功の鍵で出来ています。
27:デフォルトの名無しさん
07/12/11 23:00:49
リストの n 番目の要素を置き換えるような関数はありますか？
&optional な引数で、上書きと挿入を切り替えることができると嬉しいです。
(setq test '(A B C D E))
(func test 3 X)
=> (A B C X E)
(func test 3 X t)
=> (A B C X D E)
みたいなものがあったら嬉しいのですが、標準関数でこれと同じようなものはありますか？
自分でやると
(append (reverse (nthcdr (- (length lst) n ) (reverse lst)))
X
(nthcdr n lst))
みたいになってしまうのです。
28:デフォルトの名無しさん
07/12/12 01:45:09
;; 破壊的挿入
(setf (nthcdr n lst) (cons new (nthcdr n lst)))
;; 非破壊的挿入
(let ((lst (copy-list lst)))
(setf (nthcdr n lst) (cons new (nthcdr n lst)))
lst)
;; 破壊的上書き
(setcar (nthcdr n lst) new)
;; 非破壊的上書き
(let ((lst (copy-list lst)))
(setcar (nthcdr n lst) new)
lst)
or
(substitute-if new 'identity lst :count 1 :start n)
setfとsubstitute-ifはCL。あとは詳しい人が降臨するのを待とう。
おれもここは苦手なんだ。
29:デフォルトの名無しさん
07/12/12 09:05:50
>>27
仕様バグ。使い方は
(setq test (func test 3 x t))
でないとダメ。
なぜなら0番目に挿入がありえるから。
30:デフォルトの名無しさん
07/12/13 04:04:57
>>29
？？？
そういうこともあるから値返してんじゃないの？
どのへんがバグなのか分からないオレははんぶん素人です。
31:デフォルトの名無しさん
07/12/13 13:25:22
変更箇所を色分けするhighlight-changes-modeで、
保存のたびに色が変化する（tomato→black）ようにしたくて、以下を.emacsに書いたのですが、エラーが出てしまいます。
小関氏の『入門Meadow/Emacs』に載っているソースを真似たのですが、どこが問題なのでしょうか？
よろしくお願いします。
●.emacs
(setq highlight-changes-colours
(let ((r 255)(g 99)(b 71) ret) ;初期値tomato
(while (> (+ r g b) 0) ;だんだん色褪せる
(setq ret (append ret (list (format "#%02x%02x%02x" r g b))))
(setq r (* (/ r 10) 8)
g (* (/ g 10) 8)
b (* (/ b 10) 8)))
ret))
●エラー
Wrong type argument: symbolp, (* (/ b 10) 8)
32:デフォルトの名無しさん
07/12/13 14:07:35
じっと目を凝らしても君には見えないんだろうな。
33:デフォルトの名無しさん
07/12/13 19:21:51
>>31
Emacsが日本語でやさしく教えてくれるようになるまで別のもの使っときw
34:デフォルトの名無しさん
07/12/13 19:35:30
>>31
setqのgの後ろに幽霊が居るぞ
35:デフォルトの名無しさん
07/12/13 20:41:01
develockで赤くしました。
36:デフォルトの名無しさん
08/01/27 15:44:35
develockって一度有効にしちゃったらoffにできないよね……
37:デフォルトの名無しさん
08/01/28 19:23:27
バージョンが古いんじゃないの？
38:デフォルトの名無しさん
08/01/28 19:30:05
と思ったら、なんか変だね…
39:デフォルトの名無しさん
08/02/10 17:03:58
関数内で、自身の関数名を取得する方法はありますか？
40:デフォルトの名無しさん
08/02/10 18:17:53
backtrace-frame()
41:デフォルトの名無しさん
08/02/10 20:18:00
>>40
(defun hoge()
(interactive)
(setq self (second (backtrace-frame 3)))
(message "%s" self)
)
お、できた。
サンクス
42:デフォルトの名無しさん
08/02/13 17:30:07
let使えよ
selfが汚染されるだろ
43:デフォルトの名無しさん
08/02/17 23:27:54
変数 arg が string で空ではない事を判定するのは
こんな感じだと思うんですが
(and (stringp arg) (not (string= arg "")))
これに相当する標準のコマンドってありますか？
44:デフォルトの名無しさん
08/02/17 23:34:22
(equal arg "")じゃダメなん?
45:デフォルトの名無しさん
08/02/17 23:37:09
ああnonempty stringで真にしたいのか。ない、そんなの。
46:デフォルトの名無しさん
08/02/21 02:30:34
lisp のファイル内に時々 ^L (Control-L) だけの行があるけど
あれ何のためにあるの？
47:デフォルトの名無しさん
08/02/21 04:11:13
改ページ
48:デフォルトの名無しさん
08/02/21 10:15:45
Lispに限らず見かけるけど。
a2ps-j とかはそれを認識して改ページしてくれるので、
見やすくするために入れる。
49:デフォルトの名無しさん
08/02/21 13:19:31
EmacsのCソースコードにも入ってるよ。
一つのソースファイルをいくつかのセクションに分けたいときに使ってるね。
Emacsではbackword-page (C-x [), forward-page (C-x ])でページ単位で移動できる。
50:デフォルトの名無しさん
08/02/22 00:51:29
>>47-49
なるほど。勉強になりました。
51:デフォルトの名無しさん
08/03/28 02:29:22
文字列を N 回結合する関数ってありますか？
(defun foo (str num)
(let (i result)
(dotimes (i num result)
(setq result (concat result str)))))
こんなのを作るしかないんですかね？
52:デフォルトの名無しさん
08/03/28 02:48:27
ないんじゃないかな、こんなのやってみたけど
(defun X (s n) (apply 'concat (make-list n s)))
53:デフォルトの名無しさん
08/03/28 03:10:46
>>52
おお、素晴らしい。
そっちの方が色々応用できそうですね。
54:デフォルトの名無しさん
08/03/28 03:21:42
>> 53
カキコしたあと思い出したんだけど、前スレで同じ質問あったな。いくつかレスがついてる。
ｽﾚﾘﾝｸ(tech板:936番)
> perl の x 演算子みたいな関数って無い？
> make-string の文字列版というか、
> (hogefunc 3 "abc")
> => "abcabcabc"
> みたいなやつ。
55:デフォルトの名無しさん
08/03/28 03:31:06
>>53
mapconcat の方がいろいろ対応できるよ
56:デフォルトの名無しさん
08/03/28 03:36:39
>>54
確認しました。 ありがとうございます。
941 ：デフォルトの名無しさん：2007/09/08(土) 00:20:18
ということは、まとめると
(mapconcat 'identity (make-vector 3 "abc") nil)
が一番速いのかね
>>55
みたいですね。
こういうコードをさらっと書けるように修行します。
57:デフォルトの名無しさん
08/03/28 08:20:28
(reduce 'concat (make-vector 3 "abc")) ;; ==> "abcabcabc"
ぱっとみて思いついた。
58:Zeno ◆5nZQbNmQPs
08/03/28 09:47:16
>>57
でもそれは >>51 のように順々に concat していくのと同様だから遅すぎである。
(reduce 'concat (make-vector 10000 "abc"))
Time: 5182 ms
(mapconcat 'identity (make-vector 10000 "abc") nil)
Time: 2 ms
59:デフォルトの名無しさん
08/03/28 10:29:12
>>58
さっさと本スレで初心者にやさしく答えてあげてください。
60:デフォルトの名無しさん
08/03/28 22:07:36
こっちの方が速かった。
(mapconcat (lambda (x) "abc") (make-bool-vector 10000 nil) nil)
くり返し回数が十分大きい場合はこっちのが速い
(with-temp-buffer
(let* ((n 10000) (s "abc") (l nil))
(while (/= n 0)
(setq l (cons (= 1 (logand n 1)) l))
(setq n (lsh n -1)))
(while (progn (if (car l) (insert s)) (setq l (cdr l)))
(insert-buffer-substring (current-buffer) (point-min) (point-max)))
(buffer-string)))
61:デフォルトの名無しさん
08/03/28 22:50:02
>>60
思いつく柔軟さはいいと思うけど、
そんなコード氾濫してたら嫌だというのが正直なとこだな
62:デフォルトの名無しさん
08/03/29 14:02:44
ならinline functionにすればいいじゃない
63:デフォルトの名無しさん
08/04/19 05:38:06
Perlの
$foo =~ s/abc/def/;
みたいにして変数の中身を正規表現を使って置換することはEmacsLispで出来ますか？
perfume-replaceをどう使っていいのか分かりません
64:デフォルトの名無しさん
08/04/19 06:58:41
>>63
replace-regexp-in-string
65:デフォルトの名無しさん
08/04/19 06:58:49
>>63
replace-regexp-in-string でいいんじゃね? と思ったが、
s/abc/def/ じゃなくて s/abc/def/g になっちまうな。
(let ((foo "abc123abc"))
(setq foo (replace-regexp-in-string "abc" "def" foo)))
⇒ "def123def"
replace-match なら s/abc/def/ になるかな。
(let ((foo "abc123abc"))
(string-match "abc" foo)
(setq foo (replace-match "def" nil nil foo)))
⇒ "def123abc"
66:デフォルトの名無しさん
08/04/19 07:09:01
>>65
あー s/abc/def/gでいいんです。すいません
とりあえずreplace-regexp-in-stringとstring-matchの使い方を覚えます
どうもありがとうございました
67:デフォルトの名無しさん
08/04/27 07:34:32
ヘルプでcount-mathesの説明を見るとhow-manyのアライアスだということで
how-manyのソースを見てみたところ
(defun how-many (regexp &optional rstart rend)
と、引数を3つしかとらないみたいなのですが
バッファ内で(how-many "aa" nil nil nil)と引数を4つ渡して評価しても何故か
普通に動作します。
どうして引数を4つ渡しても動作するんでしょうか？
emacsのバージョンは22です
68:67
08/04/27 07:50:01
すみません
使ってるバージョン(22)と見たソースのバージョン(21)が異なってただけでした。orz
22のソースだとちゃんと引数は４になってました。
あともう1つわからない点があって、22のcount-matchesの説明をc-h fで見ると
the function behaves in all respects has if it had been called interactively.
という英文があるんですが、これはどういう意味なんでしょうか？
特にin all respects has という部分がわかりません。
69:Zeno ◆5nZQbNmQPs
08/04/27 08:12:30
>>68
その英文は少々不自然である。 例えばそれは
if interactive is t, the function behaves as if it had been called interactively (in every respect).
(もし `interactive' が t であるならば、この関数は interactive に呼ばれた時と同じ動作をする。)
と訂正されるべきだろう。 "has" は "as" であって、単純なタイポである。
70:67
08/04/27 08:23:11
>>69
変な英文だと思ったらtypoだったんですね。
わかりました、ありがとうございます。
71:Zeno ◆5nZQbNmQPs
08/04/27 08:40:00
>>70
貢献できて嬉しいよ。
72:デフォルトの名無しさん
08/04/30 03:42:36
関数のカリー化はできないのでしょうか？
73:デフォルトの名無しさん
08/04/30 03:52:54
ﾌﾟ
74:デフォルトの名無しさん
08/04/30 20:39:14
emacs lisp からcommon lispのcl-whoなどのパッケージを使う方法ないでしょうか？
75:デフォルトの名無しさん
08/05/05 15:16:22
Google Desktop の検索結果に time というプロパティがあり、それを通常の日付／時間表示に変換する方法が分かりません。どうすればいいのでしょうか？
;Google Deskitop の time の値(milie second): 128542440648970000
; 試してみたこと。
; current-time-string に渡すため (high low)のフォーマットにしようとこころみた。
(let* ((second 128542440648970)
(high (/ second 65535))
(low (logand second 65535)))
(List high low))
;こんな結果になる。
(-380 28938)
76:デフォルトの名無しさん
08/05/05 19:21:47
(let* ((second "128542440648970")
(high (calc-eval (concat second " / 65535")))
(low (calc-eval (concat "and(" second ",65535"))))
(list high low))
=> ("1961431916.52" "28938")
で結果は正しい？
77:デフォルトの名無しさん
08/05/08 12:32:31
>>76
レスありがとう。
'high' が integer じゃないって怒られた。だめみたいです。
78:デフォルトの名無しさん
08/05/08 13:15:07
それくらい自分で型変換しようぜ…
79:デフォルトの名無しさん
08/05/08 14:11:31
>(concat second " / 65535")
65535 じゃなくて 65536 じゃないか?
80:デフォルトの名無しさん
08/05/08 16:53:42
emacs21 --batch --eval "(hoge ...) "
の出力が日本語を含むリストのはずなのですが
\222 が連続して並んでます
nkfでも変換できないみたいです
どうすれば普通の日本語にできるのでしょうか？
81:デフォルトの名無しさん
08/05/08 17:05:32
>>80
--batch の出力は必ず iso-2022 になるはず。
82:デフォルトの名無しさん
08/05/11 18:02:06
emacsで.emacs.elファイルが開かれている場合、閉じるときにeval（してエラーがあれば警告し）たいのですが、良い方法をお分かりの方、教えてくださると幸いです。
ちなみに、
URLﾘﾝｸ(www.jaist.ac.jp)
の、保存時に自動バイトコンパイルするよう設定を参考に、(byte-compile-file "~/.emacs.el")を(eval-current-buffer)に書き換えたりしてみたのですが、それだと、Emacsが重くなってダメでした。
高林哲氏のauto-save-buffersを使っているせいもあるんでしょうが。
83:デフォルトの名無しさん
08/05/11 22:45:10
>>82
その真上にある終了時に byte-compile ってやつはダメなの？
84:デフォルトの名無しさん
08/05/12 02:51:56
>>82
kill-buffer-query-functions で eval してはどうでしょうか。
(add-to-list 'kill-buffer-query-functions
(lambda ()
(when (string= (expand-file-name "~/.emacs.el")
(buffer-file-name))
(eval-buffer))
t))
85:82
08/05/12 05:10:30
>>84 的確なレスありがとうございます。
さっそく試したところ、うまいこと動きました。
ただ、やはり、バッファ終了時ではなく、手動保存時に
add-hookすることができればそれがベストかなと、
思い直した次第です。
つまり、'after-save-hookだとauto-save時にも適用されてしまいますが、自分でC-x C-sした時だけeval-bufferするようなことって、できますでしょうか？
たびたびすいませんです。これで最後の質問にいたします。
86:デフォルトの名無しさん
08/05/12 08:28:30
>>85
eval-bufferして本来の動作をするようなelispを定義して
C-xC-s のコマンドに上書きすればいいだけじゃないか。
87:デフォルトの名無しさん
08/05/12 08:28:31
そういうコマンド書いて C-x C-s に割り当てればいいんじゃないかな。
88:デフォルトの名無しさん
08/05/12 08:58:59
>>85
interactive-p で auto-save かどうかを判定できるかも。
89:デフォルトの名無しさん
08/05/12 09:30:03
選択範囲内のすべての行の先頭にタブを入れたいのですが，
どうすればいいですか？
わかる方がいましたら教えてください。
90:デフォルトの名無しさん
08/05/12 09:43:01
>>89
マークして C-x r t C-q TAB RET
基本的な操作は本スレで質問しような。
91:デフォルトの名無しさん
08/05/12 15:52:28
>>81
なぜかうちの環境ではならない
ubuntu7.10
92:デフォルトの名無しさん
08/05/13 12:03:29
>>90
そんな長いコマンドがちょっといやで，
C-c C-tあたりでできるようにしたいです
93:デフォルトの名無しさん
08/05/13 13:28:35
>>92
じゃあチラシの裏に書く前にさっさとそうしてください。
94:デフォルトの名無しさん
08/06/20 07:24:04
opensuse11 初心者だけど、manページが文字化けする。。。。
95:デフォルトの名無しさん
08/07/04 09:18:57
elispでもマクロがあるんだねぇ。しらなかった。試しに作ったけど
(defmacro definsert (name str)
(let ((dstr (gensym)) (len (gensym)))
`(defun ,name ()
(let* ((,dstr (concat ,str ,str)) (,len (length ,str)))
(insert ,dstr)
(backward-char ,len)))))
( definsert insert-double-aho "aho")
(insert-double-aho) => ahoaho カーソルの位置 最初のahoの後ろ
インデントは適当になおしてね。また、これは車輪の再発明でinsert-pairが
標準であることを付け加えておきますね。
96:デフォルトの名無しさん
08/09/28 07:16:03
一行コピーの一番エレガントな実装を教えてください。
取り合えず手元にあるものではこんな感じ。
(defun duplicate-line (n)
(interactive "p")
(save-excursion
(copy-region-as-kill (line-beginning-position)
(progn (forward-line 1) (point)))
(dotimes (i n)
(yank))))
ちなみに、コピー後のカーソル位置は任意です。(カラムが移動するのはイヤン)
97:デフォルトの名無しさん
08/09/28 08:05:33
;; エレガントかどうか知らんけど、最終行でも動作が変わらないようにしてみました
(defun duplicate-line (n)
(interactive "p")
(save-excursion
(let ((str (concat (buffer-substring (line-beginning-position)
(line-end-position))
"\n")))
(forward-line)
(when (= (line-end-position)
(point-max))
(insert "\n"))
(dotimes (i n)
(insert str)))))
98:デフォルトの名無しさん
08/09/28 10:44:45
(fset 'duplicate-line
[?\C-a ?\C- ?\C-e escape ?w ?\C-m ?\C-y ?\C-a ?\C-p])
99:96
08/09/28 11:13:49
ありがとうございます。
>>97
確かに最終行が改行で終わってないと動作がおかしいですが、
ある意味正しいというか、あまりないことなので現状でも
いいかなという気もします…
>>98
マクロも考えたんですが、カーソルのカラム位置が移動しちゃうのと
一回のUndoで元に戻らないのがちょっと微妙です。
100:96のお父さん
08/09/28 11:34:40
(insert (save-excursion (concat (buffer-substring (line-beginning-position) (line-end-position)) "\n")))
101:96のお父さん
08/09/28 11:36:45
失礼。
× (insert (save-excursion (concat (buffer-substring (line-beginning-position) (line-end-position)) "\n")))
○ (save-excursion (insert (concat (buffer-substring (line-beginning-position) (line-end-position)) "\n")))
どっちでもいいけどな。
102:デフォルトの名無しさん
08/11/22 13:26:48
質問です。
grep-find で、あちこちの .svnディレクトリ以下を無視したいのですが、
参考：.svnを除外してfindする
URLﾘﾝｸ(snak.tdiary.net)
今は毎回、-name .svn -prune -o を手で付け加えていて面倒なのです。
そこで、デフォルトでこのオプションが追加されるようにしたいのですが、で
きたらgrep.elはそのままで、.emacs.el で設定したいのです。どうしたら良い
でしょうか？
103:デフォルトの名無しさん
08/11/22 13:35:06
なんか自己解決しました。grep-findじゃなくてrgrepだと.svnディレクトリを
デフォルトで無視してくれてるみたいです。
もっと調べてから質問するべきでした。すみません。
104:デフォルトの名無しさん
08/11/22 14:24:45
すみません、>>102-103です。
Emacs本スレに書いたつもりの誤投稿でした。本当にごめんなさい。
105:デフォルトの名無しさん
08/12/03 11:27:34
Emacs Lispでwgetみたいなことはできますか？
106:デフォルトの名無しさん
08/12/03 15:34:26
質問です。
x と lst が与えられたとき、x を lst から取りだす CAR と CDR の適用列を返す
関数 co を定義しなさい。 coは、そのような適用列が存在しない場合は NIL を
返すものとする。
107:デフォルトの名無しさん
08/12/03 15:43:05
>>106
> x と lst が与えられたとき、x を lst から取りだす CAR と CDR の適用列を返す
> 関数 co を定義しなさい。
この文章は 命令 とか 指示 とかいった文章で
> coは、そのような適用列が存在しない場合は NIL を返すものとする。
この文章は 補足 とか 追加説明 とかいった文章だな。
で質問は何？
108:デフォルトの名無しさん
08/12/03 17:02:51
;; >>106 エスパーして作ってみた
(mapc 'require (cl el-expectations))
(defun co (x lst &optional acc)
(assert (listp lst))
(macrolet
((recur (&rest lst) `(co ,@lst)))
(let ((cur (car lst)))
(cond ((null cur) nil)
((and (atom cur)) (if (eq x cur) (cons 'car acc)
(recur x (cdr lst) (cons 'cdr acc))))
((listp cur) (or (recur x (car lst) (cons 'car acc))
(recur x (cdr lst) (cons 'cdr acc))))
(t (error "unexpected lst: %s" cur))))))
;; test cases
(expectations
(error (co 'a '()))
(expect (co 'not-found '()))
(expect (co 'a '(a)) '(car))
(expect (co 'b '(a b c)) '(car cdr))
(expect (co 'c '(a b c)) '(car cdr cdr))
(expect (co 'x '((x) a b c)) '(car car))
(expect (co 'x '((a b c x) d e f)) '(car cdr cdr cdr car))
(expect (co 'x '(a b (c x d) e f)) '(car cdr car cdr cdr)))
109:デフォルトの名無しさん
08/12/03 17:04:03
(mapc 'require '(cl el-expectations))
ね
110:デフォルトの名無しさん
08/12/03 18:41:44
>>106
どこの学校の宿題 ?
111:デフォルトの名無しさん
08/12/03 21:04:29
戸塚ヨットスクール
112:デフォルトの名無しさん
08/12/03 21:40:53
;; とりあえず質問者からの動作報告求む
(defun* co (x lst &optional (compare 'eq))
"COMPAREで比較関数を指定できるようにしてみた。
引数無しでは`eq'を使って比較する。"
(assert (listp lst))
(labels ((f (lst acc)
(let ((cur (car lst)))
(cond ((null cur) nil)
((and (atom cur)) (if (funcall compare x cur) (cons 'car acc)
(f (cdr lst) (cons 'cdr acc))))
((listp cur) (or (f (car lst) (cons 'car acc))
(f (cdr lst) (cons 'cdr acc))))
(t (error "unexpected lst: %s" cur))))))
(f lst '())))
;; てすけ
(expectations
(error (co 'a '()))
(expect (co 'not-found '()))
(expect (co 'a '(a)) '(car))
(expect (co 'b '(a b c)) '(car cdr))
(expect (co 'c '(a b c)) '(car cdr cdr))
(expect (co 'x '((x) a b c)) '(car car))
(expect (co 'x '((a b c x) d e f)) '(car cdr cdr cdr car))
(expect (co 'x '(a b (c x d) e f)) '(car cdr car cdr cdr))
(expect (co "foo" '("bar" "foo") 'string=) '(car cdr)))
113:デフォルトの名無しさん
08/12/04 15:17:06
遅くなりました106です。
関数coを定義しなさいという問題でした。
みなさんのおかげできました。
ありがとうございました。
114:デフォルトの名無しさん
08/12/05 16:07:00
質問をさせてください。
read-string等でminibufferから読み込みをしている最中にC-x C-bとかすると
(if enable-recursive-minibuffers
(error "Command attempted to use minibuffer while in minibuffer")
(error "Cannot switch buffers in minibuffer window"))
なんですが
condition-caseでは捕まえられないし（switch-to-buffer中のエラー？）
*Backtrace*でqを押すとread-stringが戻る事無くトップレベルに返ってしまいます。
こういう場合はどう対処すればよいのでしょうか？
非同期プロセスと通信するプログラムを書いているので
いきなりtop-levelに返ってもらっては困るのです。
よろしくお願いします。
115:114
08/12/05 16:18:25
ifのthen式とelse式が逆でした
116:デフォルトの名無しさん
08/12/17 23:20:41
すみません、
>>106を>>108>>112
より簡単に書けませんか？
よく分かりません
117:デフォルトの名無しさん
08/12/17 23:50:38
宿題をここで教えてもらうような人間が提出するには
コードが綺麗すぎて困っているのですね、わかります。
118:デフォルトの名無しさん
08/12/18 15:56:12
(defun co (x lst)
(let ((f (lambda (node acc)
(cond ((eq node x) acc)
((consp node)
(or (funcall f (car node) (cons 'car acc))
(funcall f (cdr node) (cons 'cdr acc))))))))
(funcall f lst '())))
119:デフォルトの名無しさん
08/12/24 16:57:33
ある eval に時間のかかる式を
開発中に eval-buffer したときは eval せずに,
compile 時のみに eval したいんですが,
どうするんでしょうか?
(eval-when (compile) (hoge))
これはうまくいっていないように思う.
Emacs 22.
120:デフォルトの名無しさん
08/12/24 22:25:20
eval-when-compile
121:デフォルトの名無しさん
08/12/25 00:44:53
eval-when-compile は eval-buffer でも eval される.
質問の仕方を変えると, byte compiling 中のみ Non-NIL に
なる変数はどうすれば定義できるか?
(defvar hoge-byte-compiling-p ...)
122:デフォルトの名無しさん
08/12/25 09:15:49
>>119と>>121じゃ問題が全然違うだろ。
123:デフォルトの名無しさん
08/12/25 12:25:52
質問がへたでごめんなさい.
eval-when-compile は eval-buffer のときも byte-compile のときも eval されるが,
今どちらなのかを区別したいです.
124:デフォルトの名無しさん
08/12/25 16:32:59
>>121
backtrace/backtrace-frame を使って byte-compile-form あたりの有無で判定
できると思う.
125:デフォルトの名無しさん
09/02/07 11:11:43
大学2年です
春休みを使って、emacs lispを勉強して、より快適な環境を作り、雑多な手間を省きたいんですが
どのくらいのレベルに行けば、emacs lispを扱えるレベルと言えるんでしょうか？
現在、自分はレベル1でしょうか
実は、Pythonのほうが興味があって、Pythonのほうがメインの勉強だったりします
Pythonでも下記のリンクのようなことは、できそうですよね？
Lisp(emacs lispとの違いがまだよくわかっていませんが)のほうがスマートなんでしようか
古いネタですが、叩き台のネタに
Scheme:Schemeプログラマのレベル10
URLﾘﾝｸ(practical-scheme.net)
126:デフォルトの名無しさん
09/02/07 23:23:43
新しいmajor-modeを書いたり、標準のelispとか誰かが作ったelispのバグを取ったり拡張を書いたり
できるようになれば十分扱えてるといっていい状態だろうね
それ以外の項目については何が言いたいのかよくわからない
127:デフォルトの名無しさん
09/02/08 00:28:15
Lispの方がスマートに解ける問題もあればPythonの方が良い場合もあるでそ。
なんとなく思いだしたのでこれ貼っとく。
URLﾘﾝｸ(www.aoky.net)
128:デフォルトの名無しさん
09/02/08 06:58:22
>>127
リンク、サンクスです
この人の寸評だと、このころはRubyのほうが優れた言語とされていたんだね
elispで何ができるかというのは、漠然とだけど、掴めるんだけど
Schemeでなにができるかがよく掴めない(どういう用途に優れているとか)
単なる教養としての言語なのかな
言語仕様として一貫性があるとか、そんな感じなのかな
Scheme関連のチュートリアルを読んでみます
129:デフォルトの名無しさん
09/02/08 11:50:11
一応言っておくけど、Lispを学びたいからEmacs Lispをやるっていうのなら、
括弧になれるとか入口程度に思っておいた方がいいよ。
Emacs Lispは、見た目、Lispなだけだから。
末尾再帰を最適化できないから、再帰で書くことが事実上できなかったり、色々とLispらしくないから。
130:デフォルトの名無しさん
09/02/08 12:40:51
Emacs Lispはテキストエディタのマクロとは思えないほど多機能だけど
>>129に書かれてるような問題があるよということを>>127の人の最近のポストで書いてるね。
URLﾘﾝｸ(steve-yegge.blogspot.com)
Emacs LispでJavascriptを実装しちゃうってのも凄い話だけど。
あとLispの方言の説明がおもろい。
>Lisp is a whole family of languages, and can be broken down approximately as follows:
> * Scheme is an exotic sports car. Fast. Manual transmission. No radio.
> * Emacs Lisp is a 1984 Subaru GL 4WD: "the car that's always in front of you."
> * Common Lisp is Howl's Moving Castle.
131:デフォルトの名無しさん
09/02/08 13:02:07
>>130
コメント欄みてみるとハウルネタがやたらウケてるな。このアニオタどもめ！
132:デフォルトの名無しさん
09/02/08 13:11:50
言語仕様に問題のあるEmacs Lispだけどlispの総合環境としてはソースレベルデバッガあり、トレーサあり、
プロファイラあり勿論ディスアセンブラもありと割と至れり尽せりだったりする
133:デフォルトの名無しさん
09/02/08 13:43:30
>>130
ハウル、みていないんだがｗ
Emacs Lisp の"the car that's always in front of you."をYahooに訳させたら、
いつもあなたの正面にある車。と訳したんだけど、どういう意味だ
1984 Subaru GLは
URLﾘﾝｸ(farm1.static.flickr.com)
らしいけど、古い4WDって話か
>>132
そういう通常利用の一個上を行く使い方ってどういうのがあるんですかね
潜在能力が高いなら、もっと踏み込んで勉強したいところなんですが
ちょっとEmacs Lispをかじっただけですが、けっこうのことをEmacs１つでできそうだなと想像するんですが
Lisp関連であと2日ぐらいググって、今後のカリキュラムを組もうかな
言語仕様50ページだったSchmeは、ちょっとやりたくなるね
Schmeをやってから、Emacs Lispをやったほうが言語仕様も理解しやすいかな
関数名が長いのってEmacs Lispだけじゃなくて、Schmeもそうなんだね
略記もあるみたいだけど
個人的に長いほうが好きかも
保守しやすそうだし
チラシの裏
年齢(生まれ)比較
Lispは1958年生まれの51歳
Schmeは1970年代生まれの30代
Comon Lispは1984生まれの25歳
Emacs本体(Emacs Lisp)は約1976年生まれ, 32～33歳
Pythonは1991生まれの18歳
C言語は1972年生まれの37歳
134:デフォルトの名無しさん
09/02/08 16:19:28
>>133
"the car that's always in front of you."
は、俺だったら
「いつもそこにある車」 って訳すかな
（＝古くてダサくて定番中の定番で面白くないけど、結局乗るのはこの車なんだよね、
的な意味で）
あと、「Scheme」 だぞ。typoかと思ったけど全部Schmeって書いてるってことは
本気で勘違いしてる？
135:デフォルトの名無しさん
09/02/08 16:27:08
schemeやelispはhogeライブラリのfoo関数ってのをhoge-fooみたいに定義せにゃならんからね
この規則を使って階層になったライブラリの関数、hogeライブラリの中にあるfooライブラリの関数fの名前を付けると
hoge-foo-fのようになってしまう
長くなるのは仕方ないけど、この規則ででかいアプリケーションは書きたくないよね
136:デフォルトの名無しさん
09/02/08 16:31:26
the car that's always in front of you というネタの原型はフォードT型。
あまりに売れすぎて、「どんなレーシングカーもフォードTの前に出ることはできない。どれだけ抜いてもまだ前にもう1台いる」というジョークが生まれたので。
スーパーカーとの対比で、性能はプアだけどみんなが使ってる普及版っていうニュアンスだろうな。
elispはよくも悪くもEmacsと切り離せないものなので、本当に言語の勉強をしたいならcommon lispかschemeのほうがいいよ。
逆にEmacsいじって遊びたいならelisp使うしかないし。
137:デフォルトの名無しさん
09/02/08 16:39:45
>>136
134だが勉強になった。トン
138:デフォルトの名無しさん
09/02/08 18:12:24
>>136
> elispはよくも悪くもEmacsと切り離せないものなので、本当に言語の勉強をしたいならcommon lispかschemeのほうがいいよ。
言語の勉強したいまでは、まだ至っていません
Emacsを使いこなせるようになりたいだけで
Schemeは、知っていて損はなさそうですね
チュートリアルの語彙も特徴的で好奇心をそそられる
英語・日本語の資料も豊富そうで資料には、困らないだろうし
プログラマとしての幅が広がるなら、なおうれしいかな
139:デフォルトの名無しさん
09/02/14 00:26:28
俺はバッファ、リージョン、選択範囲なんか用の
map関数を書いてよく使ってるんだがこれ便利よ
色々関数を別途定義しといて
関数を行に対して呼び出す
2chに書き込むときによくやるのは
タブ→スペース変換と
半角スペース→nbsp変換
こうするとプログラムはインデントされて見やすい
ところで、久しぶりにここきたんだが
xyzzyスレってどこいったの？
見つからないんだけど
140:デフォルトの名無しさん
09/02/14 00:34:37
ソフトウェア板とWindows板に1つずつあるよ。
141:デフォルトの名無しさん
09/02/14 00:45:02
あったあった、さんきゅー
142:デフォルトの名無しさん
09/02/19 18:25:06
行の(半角相当で)80文字目の位置をを色づけしたいとおもったんですが,
とりあえず思いついた
'(("^......................................................\
.........................\\(.\\)" 1 highlight-long-line-face append))
というのをfont-lock-add-keywordsして加えたところ、
当然ながら全角文字をいれると後ろにずれました
半角で80文字目の位置をを色づけする方法について、
なにかお知恵を拝借できませんでしょうか？
143:デフォルトの名無しさん
09/02/19 19:21:13
URLﾘﾝｸ(www.emacswiki.org)
144:デフォルトの名無しさん
09/02/19 22:19:43
質問者じゃないけど
めちゃめちゃ重いなそれｗ
145:デフォルトの名無しさん
09/02/20 15:29:29
>>143
ありがとうございます
そんなものが作られてたんですね、試してみます
146:デフォルトの名無しさん
09/02/23 22:05:35
>>144
うまい工夫をしないと速くならないだろうからなぁ。常に80文字目を数えるって
いうことだしね。
147:デフォルトの名無しさん
09/02/23 23:00:47
cygwin環境下でgaucheをリッチに使いたくて
行ごとに色を変えたいんですが教えてください
まさに自分がやりたいことがこれ
URLﾘﾝｸ(pitecan.com)
上のプログラムをざっと読んだ感じ、
色の変更に関するプリミティブな部分ってのは
「put-text-propertyに背景色を設定したfaceを設定する」
というように感じたのですがあってますか？
それらしきコードを書いてみたのですがうまくいかず・・
(setq symbol (make-symbol "test"))
(setq face (make-face symbol))
(set-face-background face "DarkSeaGreen1")
(point)
134 ←評価結果
(point)
146 ←評価結果
(put-text-property 134 146 'face face)
148:デフォルトの名無しさん
09/02/23 23:02:07
あ、補則。このコードは行は意識してなくて、とりあえず指定箇所の背景色を変えたいだけです
149:デフォルトの名無しさん
09/02/24 00:19:05
とりあえずfont-lock-faceにしたら動いたけど
(put-text-property 1 20 'font-lock-face 'highlight)
150:デフォルトの名無しさん
09/02/24 00:39:13
ありがとうございます。
それを実行したときはtが返るんですよね？
M-x list-faces-displayで書いてあるフェイスをいくつかうちこんでは見ましたが
自分の環境ではnilが返ってきて色が変わらないです
↓動作はよくわかってませんが、これを切り替えた場合はちゃんと色が変わります
(global-font-lock-mode t)
(global-font-lock-mode nil)
今日は寝て、また明日調べてみますわ
151:デフォルトの名無しさん
09/02/25 12:19:45
ver22で拡張された \,(function \1) みたいなのが
replace-match では使えない(不正な\エラーになる)のは何で？
こんな感じ↓
(re-search-forward "\\(.+\\)" nil t)
(replace-match "\\,(my-func \\1)" nil nil)
=> Invalid use of `\' in replacement text
152:デフォルトの名無しさん
09/02/25 15:06:59
est
153:デフォルトの名無しさん
09/02/25 17:08:20
>>151
君の頭が腐っているというのを疑った方がいいよ
154:デフォルトの名無しさん
09/02/27 00:26:35
>>151
プログラマブル正規表現だっけ？
よくわからん
155:デフォルトの名無しさん
09/02/27 01:11:40
プログラマブルなのが使えるのは、インタラクティブに実行した場合だけでしょ。
NEWS
*** When used interactively, the commands `query-replace-regexp' and
`replace-regexp' allow \,expr to be used in a replacement string,
ちなみに replace-regexp を実行したら次のように展開された(repeat-complex-command)。
(replace-regexp "\\(.+\\)"
(quote
(replace-eval-replacement replace-quote
(my-func (match-string 1))))
nil
(if (and transient-mark-mode mark-active)
(region-beginning))
(if (and transient-mark-mode mark-active)
(region-end)))
で、replace-regexp をプログラムの中で使うのはbadなので、
(while (re-search-forward "\\(.+\\)" nil t)
(replace-match (my-func "\\1") nil nil))
156:151
09/02/28 01:47:45
>> 154
そんな名前があるとは知らなんだ。
google先生は記号の検索には弱いしね・・・
>> 155
サンクス。インタラクティブ専用だったんだ。
よく使う置換の組を「お気に入り」みたいに登録して一発で呼び出せるlispを作ってたんだけど、
仕組み上、正規表現は自由に指定可能だから関数決めうち実行ができなくて。
プログラマブル正規表現は非対応とあきらめるしかないか。
157:デフォルトの名無しさん
09/02/28 03:23:53
>> と数字の間は開けないで
158:デフォルトの名無しさん
09/02/28 22:18:39
起動時にインタラクティブな関数を自動的に呼び出すにはどうしたらいい？
2画面で起動して、片方にSchemeインタプリタを起動したい
2画面の分割は、.emacsに(split-window-vertically)を追記したらうまくいったが
M-x run-schemeが呼び出せないんだ
159:デフォルトの名無しさん
09/02/28 22:50:34
(run-scheme) ではだめなのけ？
160:デフォルトの名無しさん
09/02/28 23:14:03
だめぽ。そうするとこんなわけわからんエラーが出る
Wrong number of arguments: #[(cmd) "\304\305!\204^Y^@\306^H!^Y\307\310\311 @\312 A%q\210\313 \210)^H^R\305^S\314\305\
!\207" [cmd cmdlist scheme-program-name scheme-buffer comint-check-proc "*scheme*" scheme-args-to-list apply make-comint "s\
cheme" nil inferior-scheme-mode pop-to-buffer] 6 ("/usr/share/emacs/21.2/lisp/cmuscheme.elc" . 6428) (list (if current-pref\
ix-arg (read-string "Run Scheme: " scheme-program-name) scheme-program-name))], 0
161:デフォルトの名無しさん
09/02/28 23:18:46
describe-function(C-h f)ぐらい覚えような
162:デフォルトの名無しさん
09/02/28 23:29:14
>>160
(run-scheme scheme-program-name)
163:デフォルトの名無しさん
09/03/01 09:48:57
(call-interactively 'run-scheme)
164:デフォルトの名無しさん
09/03/01 14:28:41
>>161-163
㌧牛㌧牛トーン・・カツ！
すばらしく快適な環境になった
165:デフォルトの名無しさん
09/03/01 17:07:00
>>164
(call-interactively 'run-scheme)
これしらんかった、すげぇ勉強になった、ありがとう
いままでintaractive関数の機動失敗時はいつも.elの中調べてた。
166:デフォルトの名無しさん
09/03/26 03:01:42
elispで呼び出し元の関数名を調べるにはどうしたらよいのでしょう？
167:デフォルトの名無しさん
09/03/26 15:59:27
Meadow3(Emacs22)の画像インライン展開で質問です。
ヘルプ見る限り、create-imageはファイルからだけじゃなくデータも直接読んで
画像を作ってくれるみたいなんですが、うまくいきません。
insert-file-contents-literallyでテンポラリバッファに読み込んで渡してるんですが
なにかやり方に問題があるのでしょうか？
(insert-image (create-image "~/hoge.gif"))
だと画像が出ますが、
(insert-image (create-image (with-temp-buffer
(insert-file-contents-literally "~/hoge.gif")
(buffer-string)) 'gif))
だとトウフが出てしまいます。
168:デフォルトの名無しさん
09/03/26 16:33:41
>>167
set-buffer-multibyte -> nil
DATA-P -> t
でどうです。
169:デフォルトの名無しさん
09/03/26 16:43:04
>>168
素早い指摘陳謝です。
無事表示されるようになりました。
ヘルプはちゃんと読まないとだめですね。
unibyteとかmultibyteはまだよく理解してないので勉強します。
ありがとうございました。
170:デフォルトの名無しさん
09/03/28 13:49:09
自分でメジャーモードとか作ろうと思った時に
Infoとか書籍以外にこれは参考にすべきといったパッケージってなにがありますか?
色々眺めてるんですがみんな結構やり方が違っててよくわからなくなってきました。
171:デフォルトの名無しさん
09/03/28 15:03:54
>>170
Infoによるとtext-modeが最もシンプルだと言うから、text-modeがいいと思うよ。
Emacs22からdefine-derived-modeが使われててより簡単に作れるようになってる。
たった1行でも実行可能なのを今やってみて初めて知った。
(define-derived-mode hoge-mode nil "Hoge")
あとは、キーマップを定義するだけ。
ま、そういうわけでEmacs21と22のtext-modeが参考になる。
172:デフォルトの名無しさん
09/03/28 15:55:22
>>171
回答ありがとうございます。
見てみましたが雛形に丁度良い感じですね。
text-modeを足掛りにして頑張ってみようと思います。
標準配布されてるパッケージのコードは
基本的に正しいやり方(?)で書かれていると思ってよいんですよね？
#もっとスマートな方法があるのに変なやり方で無駄に処理を増やしてるとか
#メモリを無駄に使ってしまう書き方だったりとか....
173:デフォルトの名無しさん
09/03/28 17:33:24
>>172
必要なことを必要なだけ書けばいいんですよ。
メジャーモードとして機能するためには最低限何が必要か。
そこに、自分が欲しいものを追加していくだけです。
またそのために、例えばsyntax-tableを独自に定義した方がいいならそうするし。
defcustomなんかはdefvarで済ますこともできるけど、ひとが作ったパッケージを
利用するときはdefcustomの方が分かりやすいと思うので、そう考えるならそうするしとか。
コードを書く上では、自分でこれでいいと思うコードを書けばいいんです。
あとは、慣習に従うと。
174:デフォルトの名無しさん
09/03/30 18:51:55
コロン付きのキーワードシンボルってあんまり使われてない気がするんですが、
なにか歴史的理由とかバージョン間互換性とかの理由があったりするんでしょうか？
alistのcarとかオプショナルな引数が沢山ある関数での&restで引数とる時のラベリングとか
値を取らないことを明示的に示してて便利だと思うんですけど(elispモードで色分けもされるし)、
色々ソース眺めた感じ、使ってるパッケージはガンガン使ってるんですが、
まったく使ってないところはcustomとかtext-property等ぐらいでしか使ってません。
175:デフォルトの名無しさん
09/04/15 16:51:29
URLﾘﾝｸ(www.bookshelf.jp)
176:デフォルトの名無しさん
09/04/15 18:05:50
よもや返事がくるとは思わなかったw
値が設定出来無い=ラベルとか専用ってことがコンパイラレベルで保証されてて
よさげだと思うんですが・・・
とりあえずassocのcarはシンボル、plistと関数のrestはキーワードシンボルで
書き進めちゃってるんですが、いいんだろか・・・
177:デフォルトの名無しさん
09/04/15 20:11:53
コードリードしてるとき、コメントアウトうざいなーと思うことが多々あったので、
こんなコード書いてみました。スマートじゃない部分あるのでまだ改良しますが、
方向性として他に方法ないかアドバイスお願いします。
178:デフォルトの名無しさん
09/04/15 20:13:51
改行多すぎと怒られたのでbase64-encode-region
KGRlZnVuIGhpZGUtY29tbWVudC1mYWNlICgpIAogICJmYWNlIGNvbW1lbnQgaGlkZSIgCgkoaW50
ZXJhY3RpdmUpCiAgIDs7JygxIDIgMyAuLi4uIGNvbW1lbnQgZmFjZSBwb2ludCBsaXN0KQoJKHNl
dHEgY29tbWVudC13YWxrCgkJCQkobG9vcCBmb3IgeCBmcm9tIDEgdG8gKHBvaW50LW1heCkKCQkJ
CQkJCWZvciBsb2ZhY2UgPSAobGlzdCAoZ2V0LXRleHQtcHJvcGVydHkgeCAnZmFjZSkgeCkKCQkJ
CQkJCWlmIChvcgoJCQkJCQkJCQkobWVtYmVyICdmb250LWxvY2stY29tbWVudC1kZWxpbWl0ZXIt
ZmFjZSBsb2ZhY2UpCgkJCQkJCQkJCShtZW1iZXIgJ2ZvbnQtbG9jay1kb2MtZmFjZSBsb2ZhY2Up
CgkJCQkJCQkJCShtZW1iZXIgJ2ZvbnQtbG9jay1jb21tZW50LWZhY2UgbG9mYWNlKQoJCQkJCQkJ
CQkpIGNvbGxlY3QgKG50aCAoLSAobGVuZ3RoIGxvZmFjZSkgMSkgbG9mYWNlKSkpCgkoYWRkLXRv
LWxpc3QgJ2NvbW1lbnQtd2FsayAnLTEpIDsgYmFkIGNvZGUKCShhZGQtdG8tbGlzdCAnY29tbWVu
dC13YWxrICctMiB0KSA7IGJhZCBjb2RlCgogICA7Oycoc3RhcnQgZW5kIHN0YXJ0IGVuZCBzdGFy
dCBlbmQgLi4ub3ZlcmxheSByZWdpb24gbGlzdCkKCShzZXRxIGNvbW1lbnQtd2FsawoJCQkJKGxv
b3AgZm9yIHJpZ2h0U3RlcCBpbiBjb21tZW50LXdhbGsKCQkJCQkJCWZvciBsZWZ0U3RlcCBpbiAo
Y2RyIGNvbW1lbnQtd2FsaykKCQkJCQkJCWlmIChub3QgKGVxICgrIHJpZ2h0U3RlcCAxKSBsZWZ0
U3RlcCkpIGFwcGVuZCAobGlzdCByaWdodFN0ZXAgbGVmdFN0ZXApKSkKCShzZXRxIGNvbW1lbnQt
d2FsayAoZGVscSAnLTEgY29tbWVudC13YWxrKSkgOyBiYWQgY29kZQoJKHNldHEgY29tbWVudC13
YWxrIChkZWxxICctMiBjb21tZW50LXdhbGspKTsgYmFkIGNvZGUKCgkoc2V0cSBjb21tZW50LW92
LWxpc3QKCQkJCShsb29wIGZvciBzdGFydCBpbiBjb21tZW50LXdhbGsgYnkgIydjZGRyIAoJCQkJ
CQkJZm9yIGVuZCBpbiAoY2RyIGNvbW1lbnQtd2FsaykgYnkgIydjZGRyIGNvbGxlY3QgKG1ha2Ut
b3ZlcmxheSAoLSBzdGFydCAxKSBlbmQpKSkKICAgOzsgd2h5IG5lZWQgcmVzPwoJKGxldCAocmVz
KQoJCShkb2xpc3QgKG92IGNvbW1lbnQtb3YtbGlzdCByZXMpCgkJCShvdmVybGF5LXB1dCBvdiAn
Y2F0ZWdvcnkgJ2hpZGUtY29tbWVudC1mYWNlKQoJCQkJCQkJCQkJCQkJCQkJCQkJCTsJCShvdmVy
bGF5LXB1dCBvdiAnY2xlYW51cCB0KQoJCQkob3ZlcmxheS1wdXQgb3YgJ2ludmlzaWJsZSB0KQoJ
CQkJCQkJCQkJCQkJCQkJCQkJCTsJCShvdmVybGF5LXB1dCBvdiAnZGlzcGxheSAiIikKCQkJKSkp
179:デフォルトの名無しさん
09/04/15 20:16:39
連投ごめんなさい、コード内容は、
コメントのfaceを見て、overlay作成し不可視にするlispです。
180:デフォルトの名無しさん
09/04/15 20:29:36
ろくに読まずに発言するけど、
ループのところってnext-property-changeで検索じゃだめなん？
181:デフォルトの名無しさん
09/04/15 20:34:18
>>175
elisp-manual-21-2.8.tar.gz を見てみたが、
keyword-symbols-constant-flag はすでになかった。
182:177
09/04/15 20:37:10
>>180
ありがとございます、それ知らなかったので調べてみたら、
自分がやってることは非効率極まりないことまでわかりました。
ちょっと書き換えてみます。
183:デフォルトの名無しさん
09/04/15 20:37:21
というよりkeyword-symbol自体がそんなに沢山使われてない。
184:デフォルトの名無しさん
09/04/15 20:43:06
>>182
自分は使ったことないけど、
comment-search-forward と backward なんていう
もっとよさげな関数があったよ。
185:デフォルトの名無しさん
09/04/16 23:21:38
>>176
Emacs19 用 Elisp マニュには keyword で始まる名前自体がなくて : に関する記述もなさげだから
Emacs20 あたりで追加された新機能だと思われ
古い Emacs との互換性が不要なら使ってもいいんでないかな
186:デフォルトの名無しさん
09/04/17 16:03:55
自分自身を remove-hook するような hook は邪道でしょうか？
具体的にはバッファの内容を別の形式で別ウィンドウに表示するアプリを作っています。
編集中の内容をリアルタイムに反映させるため post-command-hook で監視を行なおうと思っているのですが、
変換後の表示バッファが消されていた場合、自分自身で remove-hook して後始末をしたいなと・・・
187:デフォルトの名無しさん
09/04/17 16:44:34
自分自身でremove-hook するって、子bufferの有無をずっと監視するってこと？
別ウィンドウで表示しているbufferのkill-buffer-hookに
buffer local で post-command-hookのhookをremove するものを
仕掛けておくって思いついたんだけど、どうかな？
188:デフォルトの名無しさん
09/04/17 17:12:30
>>187
なるほど!
どう考えてもその方がスマートですよね。一々 buffer-live-p しなくて済みますし。
ありがとうございます。
189:デフォルトの名無しさん
09/04/24 01:48:31
/bin/shとかだと``でコマンドの実行結果をテキストで得られるけど
同じことをelispでしたい場合どうすれば良い？
バッククォートはlispでは別な意味なのでアレだが
(print `date`)で"Fri Apr 24 01:47:15 JST 2009"のようなことは出来ないかな
190:デフォルトの名無しさん
09/04/24 01:55:51
>>189ドゾー
(print (shell-command-to-string "date"))
191:デフォルトの名無しさん
09/04/24 23:42:19
さんきゅー！
192:デフォルトの名無しさん
09/05/05 12:11:19
buffer中で使った単語をリストアップするlispを書いてます。（想定する用途は、coding中にtypoした単語がないかチェックする）
単語とその出現回数のAssociationListを作って、新規に作ったbufferにinsertするようにしました。
できないのがありまして、
アルファベット順にsortするのが上手くできないです。（出現回数の方も同様にオプションでsortするようにしたいけど、後回しになってます）
(sort (mapcar '(lambda (x) (car x)) word-alist) 'string-lessp)
とsortしたら、sort対象のcar部分だけでなく、元のリストがsortされて、値がもどってくるにはどうしたらいいのでしょう？
(defun my-list-words ()
(interactive)
(save-excursion
(goto-char (point-min))
(let (word word-alist cu-word)
(while (re-search-forward "[-_a-zA-Z]+" nil t)
(setq word (buffer-substring (match-beginning 0) (match-end 0)))
(if (assoc word word-alist)
(setcdr (assoc word word-alist) (1+ (cdr (assoc word word-alist))))
(setq word-alist (cons (cons word 1) word-alist))))
;;;この下のS式が、上手く表現できない
(setq word-alist (sort (mapcar '(lambda (x) (car x)) word-alist) 'string-lessp))
(pop-to-buffer "*words list*")
(erase-buffer)
(mapc '(lambda (x) (insert (format "%s\n" x))) word-alist)
)))
他の点でもアドバイスがあれば、お願いします。
193:デフォルトの名無しさん
09/05/05 15:35:33
>>192
sort は破壊的関数。元のリストを残して置きたいならリストのコピーを sort する。
でも、この場合には必要ないと思う。
比較関数の例: (lambda (x y) (> x y)) == '>
word を取得するには、match-string が使える。
局所変数を使えば、assoc の呼び出しは1回でいい。
push を使ってもいい。
194:192
09/05/05 17:54:22
>>193さん、ありがとうござます。
おかげさまで、想定通りに動くようになりました。
比較関数の書き方もわかりました。
pushについては、後ほど調べて、また書き込みます。
直したところ：
match-string
(setq word (match-string 0))
局所変数、
(let、、に入れて、(setq current-word (assoc word word-alist))
比較関数の書き方を直しました。
(sort word-alist '(lambda (x y) (string-lessp (car x) (car y))))
このようになりました。
(defun my-list-words ()
(interactive)
(save-excursion
(goto-char (point-min))
(let (word word-alist current-word)
(while (re-search-forward "[-_a-zA-Z]+" nil t)
(setq word (match-string 0))
(setq current-word (assoc word word-alist))
(if current-word
(setcdr current-word (1+ (cdr current-word)))
(setq word-alist (cons (cons word 1) word-alist))))
(sort word-alist '(lambda (x y) (string-lessp (car x) (car y))))
(pop-to-buffer "*words list*")
(erase-buffer)
(mapc '(lambda (x) (insert (format "%s\n" x))) word-alist))
))
195:192
09/05/05 18:22:13
すいません、少し間違えてました。
sortした結果を
(setq re-list (sort word-alist '(lambda (x y) (string-lessp (car x) (car y)))))
のように受けないといけませんでした。
sort対象のリストは、破壊されてしまうのですね。sortされるように破壊されると思い込んでました。
(setq lst '((banana . 1) (apple . 2) (orange . 1)))
(setq r (sort lst '(lambda (x y)(string-lessp (car x) (car y)))))
r => ((apple . 2) (banana . 1) (orange . 1))
lst => ((banana . 1) (orange . 1)
もう一度、直したものを張っておきます。
(defun my-list-words ()
(interactive)
(save-excursion
(goto-char (point-min))
(let (word word-alist current-word)
(while (re-search-forward "[-_a-zA-Z]+" nil t)
(setq word (match-string 0))
(setq current-word (assoc word word-alist))
(if current-word
(setcdr current-word (1+ (cdr current-word)))
(setq word-alist (cons (cons word 1) word-alist))))
(setq re-list (sort word-alist '(lambda (x y) (string-lessp (car x) (car y)))))
(pop-to-buffer "*words list*")
(erase-buffer)
(mapc '(lambda (x) (insert (format "%s\n" x))) re-list))
))
196:デフォルトの名無しさん
09/05/05 18:52:20
ｃｌの作法に則るとこんなんじゃろか。
URLﾘﾝｸ(paste.lisp.org)
197:デフォルトの名無しさん
09/05/05 19:17:11
hash を使って CL なしでやってみたよ。
URLﾘﾝｸ(paste.lisp.org)
198:デフォルトの名無しさん
09/05/05 19:37:33
あ、hashあるんだ。
>>197の方が圧倒的に速いね。
199:デフォルトの名無しさん
09/05/05 20:40:33
hash って emacs lisp の info にあんまり使うなって書いてあった気がするから
なんでも assoc で済まそうって癖がついてしまった。
200:デフォルトの名無しさん
09/05/05 20:53:17
>>199
ｋｗｓｋ
201:デフォルトの名無しさん
09/06/24 03:26:29
>>199
infoには、10項目以内なら連想リストの方が速いけど、それ以上の場合は
ハッシュを使ったほうがいいと書いてあるぞ。
202:デフォルトの名無しさん
09/07/02 23:02:53
elispの&optionalって省略されたときnilが設定されるようだが
使い方はこんな感じで良いのでしょうか？
(defun iota (count &optional start step)
(or start (setq start 0))
(or step (setq step 1))
(loop for n from start to (+ start (* (1- count) step)) by step collect n))
203:デフォルトの名無しさん
09/07/03 00:02:58
そんな感じ
省略時にnil以外の値という扱いのときはdocstringに書いておいた方がいいかな
204:202
09/07/03 00:59:59
>>203
docstringね
ありがとう
それとこの場合はこうか
(setq start (or start 0))
(setq step (or step 1))
205:202
09/07/03 01:05:03
(setq start (or start 0) step (or step 1))
206:デフォルトの名無しさん
09/07/03 02:58:28
(eval-when-compile (require 'cl))
(defun* foo (a &optional b (c 5)
&key d (e (user-login-name)))
(list 'a a 'b b 'c c 'd d 'e e))
(foo 1)
(a 1 b nil c 5 d nil e "bar")
clだと全部使える。やっぱ、clはいいね。
207:デフォルトの名無しさん
09/07/03 12:19:01
clにformat*ってのがあるといいんだけどなぁ
208:デフォルトの名無しさん
09/07/27 01:26:01
作れよ
209:デフォルトの名無しさん
09/08/11 17:39:12
emacs-lisp 上での common lisp の関数/マクロ名と
ピュアな common lisp の関数/マクロ名との
マッピングの在処を知っている方いませんか？
例えば、
defun* → defun
(cl*/el → cl)
とかです。
210:デフォルトの名無しさん
09/08/11 17:47:10
clモジュールのことか？
cl.el を見ればわかるんじゃね？
CL と emacs-lisp では根本的に違うところもあるから
必ずしも一対一に対応してるとは限らんが
211:デフォルトの名無しさん
09/08/14 06:09:19
Emacs Lisp が末尾再帰を最適化していない理由って何ですか？
212:デフォルトの名無しさん
09/08/14 09:02:49
みんな末尾再帰を使わないから
213:デフォルトの名無しさん
09/08/14 09:06:49
>>212
最適化が成されていないから使う必要がない。
だから末尾再帰を使う人がCLに比べるとかなり少なくなる。
それは最適化していないことの理由ではない。
違いわかるよね？
214:デフォルトの名無しさん
09/08/14 11:48:42
末尾再帰しててもアドバイス定義したら末尾再帰にならなくなったりするんじゃね？
コンパイル時に最適化してしまうと後で困る。
よく誤解している人がいるけど、
cl や emacs-lisp は関数型言語なんかじゃありませんから!!
215:デフォルトの名無しさん
09/08/14 11:58:15
じゃあなんなんだよ。
そんなの「吉野屋やすき屋は牛丼なんかじゃありませんから！」並の理屈だぞ。
216:デフォルトの名無しさん
09/08/14 12:11:12
URLﾘﾝｸ(en.wikipedia.org)
手続的、関数的、オブジェクト指向の連携をサポートしたマルチパラダイム言語
217:デフォルトの名無しさん
09/08/14 12:52:25
勝手に末尾再帰されるようなマクロ書けってスタンスじゃね？
マルチパラダイムうんぬんは関係ないかと
218:デフォルトの名無しさん
09/08/14 14:27:05
>>214
emacs-lisp は "ほぼ" 関数型言語。
cl は関数型言語。
219:デフォルトの名無しさん
09/08/14 21:49:36
吉野屋やすき屋は牛丼じゃない
220:デフォルトの名無しさん
09/08/14 22:20:31
>>211
実装が面倒くさいから。
ってcompile.elのソースに書いてあったと思ったよ
ソースすら読まない馬鹿は本当にしょうがないな
221:デフォルトの名無しさん
09/08/15 03:33:36
……何にどう書いてあるって？
222:デフォルトの名無しさん
09/08/15 03:38:57
＼
＼
∧ﾆユ／￣ヽ
＼ （ ´∀/） i
＼.＼ ＿（｣つ/とl) . | ＼
;::;::＼i＼ 匚レ| .〈/ ） | ＼
｡::;;:'＼.＼ （＿,）ｰ' |_,, -'''"!
^人;:'::;ﾟ:;.＼l＼ _,,, -''"|_,, -''"|
^＾从::;;:｡':＼.＼_,, -''"|_,, -''"| . :|
へ ^へ;;::';;:'＼l_,, -''" . | 从＾ ～
^ ＾ﾍ^人从::;;;:| ,ｨ人^. | ^ ＾へ^＾
～ ＾.へ' ＾':レ＾从 へ' | ～ ＾
へ ^＾ へ ～人^ ＾ へ～ ～
223:デフォルトの名無しさん
09/08/15 15:50:25
>>220
最近 emacs スレッドにもいる、前頭葉が未発達で可哀想な方ですよね。
わかります。
$ grep -E '\b(tail|recursion)\b' compile.el | wc -l
0
224:デフォルトの名無しさん
09/08/16 16:02:44
emacsclient の、標準入力って使えないのかな？
こんな感じに
% date | emacsclient
これとか、
% date | emacsclient -
% date | emacsclient --eval '(read)'
試したんだけど、違った。
225:デフォルトの名無しさん
09/08/16 22:25:43
>>220
> ってcompile.elのソースに書いてあったと思ったよ
byte-opt.elの間違いじゃないの?
>>223
もうちょっと頭使えば正解にたどり着けたのにね
226:デフォルトの名無しさん
09/08/16 22:30:13
泣きながらgrepしたんだねｗ でも面倒くさいからなんて書いてないからｗｗｗ
227:デフォルトの名無しさん
09/08/16 22:41:08
とgrep厨が申しております
228:デフォルトの名無しさん
09/08/17 00:10:51
じゃあ私はemacs厨!
229:デフォルトの名無しさん
09/08/17 12:31:16
キッチンシンクなだけに厨がよく似合います
230:デフォルトの名無しさん
09/08/17 20:21:52
うまいな
231:host-130-64-82-173.medford.tufts.edu
09/08/21 00:23:18
Xubuntu8.04 にEmacs Speaks Statistics を入れています。
起動時に
URLﾘﾝｸ(bugs.launchpad.net)
と同様、
Error while loading 50a2ps
のメッセージが出て気持ち悪いです.(動くことは動く)
patchのあて方が分かりません.どなたか教えてください.
232:デフォルトの名無しさん
09/08/21 07:48:16
>>231
Emacs Lisp全く関係ないと思うけど、
URLﾘﾝｸ(ja.wikipedia.org)
URLﾘﾝｸ(www.linux.or.jp)
でも、そこにあるパッチって、一ヶ所クォートするだけだから、
どう考えてもエディタで編集した方が早いよ。
233:デフォルトの名無しさん
09/08/21 18:50:29
Emacs LispにCommon Lispの merge-pathnames に相当する関数はありますか？
234:デフォルトの名無しさん
09/08/21 21:05:19
>>233
expand-filename ?
235:デフォルトの名無しさん
09/08/21 21:41:25
>>234
expand-file-name ですね。
ありがとうございます。期待通りの動作ができました。
236:231
09/08/22 04:16:29
sudo patch -p0 < 50a2ps.patch
でいけました。lispとは関係なかったですか。
237:デフォルトの名無しさん
09/08/22 07:09:48
>>236
だって、知りたいのはpatchコマンドの使い方だったわけじゃない？
例えば、LinuxカーネルがC言語で書かれてるからって、
C言語のスレでカーネルのコンパイルの仕方とか聞かないでしょ？
diffとpatchは、UNIX系のOSを使う上で知っていると便利だから、
当て方、作り方、読み方は知っておくといいと思う。
ともあれ、無事に当たって良かったね。
238:名無しさん＠そうだ選挙に行こう
09/08/30 11:07:48
Python だと、例えば
def foo (*args):
...
の関数を
L = (1, 2, 3)
foo(*L) # foo(1, 2, 3) と同じ意味
と実行することが可能なのですが、emacs lisp でも同様に
(defun foo (&rest args)
...)
の関数の引数をpre-expandすることは可能ですか？ イメージとしでは
(setq L '(1 2 3))
(foo *L)
のような感じです。
239:名無しさん＠そうだ選挙に行こう
09/08/30 11:19:51
applyを使う
詳しい使い方は(info "elisp")見てくれ
(let ((strs '("foo" "bar" "baz")))
(assert (string= (apply 'concat strs)
(concat "foo" "bar" "baz"))))
240:名無しさん＠そうだ選挙に行こう
09/08/30 11:28:59
やはりその用途だと apply を使うしかなさそうですか。
ありがとうございました。
241:名無しさん＠そうだ選挙に行こう
09/08/30 11:40:52
度々質問すみません。
`sleep-for' は "without updating display" なので、
(insert foo)
(sleep-for n)
をしても foo の中の文字列がバッファ上に表示される前に
n 秒止まる作用があるのですが、 foo の内容を "表示させた後" に
sleep する方法はありますか？
242:名無しさん＠そうだ選挙に行こう
09/08/30 11:44:27
>>241
自己解決しました。 (redisplay t)
243:デフォルトの名無しさん
09/09/01 16:21:41
mode line と echo area を消す方法はありますか？
244:デフォルトの名無しさん
09/09/02 14:43:29
しかし、emacsコアのソースコードは綺麗だなー。
245:デフォルトの名無しさん
09/09/03 03:31:39
Emacsで独自コマンドを定義したいのですが
M-x hoge 3
の用に引数を与えるか、もしくは
M-x hoge
Input number:
の用にプロンプトを出したいです。
両方の方法について調べてみたのですが
どちらについても解説が見つかりませんでした。
どのようにすれば良いのかご教授ください。
246:デフォルトの名無しさん
09/09/03 04:06:45
>>245
前者は interactive の引数に N だか p だかを加える。
後者は (defun hoge () (read-number "Input number: "))
247:デフォルトの名無しさん
09/09/03 04:26:39
ありがとう御座います。
助かりました.
248:デフォルトの名無しさん
09/09/03 22:16:51
interactive に n ってのがあるよ。
249:デフォルトの名無しさん
09/09/05 17:29:11
(defun hoge (num)
(interactive "nInput number:")
(message "%d" num))
250:デフォルトの名無しさん
09/09/05 18:10:26
interactive は関数型的ではないので嫌い。
便利そうに見せかけて逆にプログラムを汚くするから嫌い。
コードレターが文字列に混ざっていてキモイので嫌い。
251:デフォルトの名無しさん
09/09/05 18:23:59
どうしたいんだ？文句いうだけ？
252:デフォルトの名無しさん
09/09/05 19:58:02
>>251
たった今、今年一番のセックルしてきたからこの際素直になるわ。
ごめん、文句言うだけだった。
253:デフォルトの名無しさん
09/09/06 11:39:53
emacs(parentプロセス)が死んだ時に、emacsから立ち上げた
特定のchildプロセスは生き残るようにする方法はありますか？
254:デフォルトの名無しさん
09/09/06 13:31:57
>>253
daemon化するのと同じような処理をする。
二段forkしたり、ttyやプロセスグループを切り離したり。
255:デフォルトの名無しさん
09/09/06 14:22:33
>>254
いままでは bash 経由でそれを実現していたのですが、
emacs の関数でそういったオプション指定は可能なのかと思って質問しました。
256:デフォルトの名無しさん
09/09/11 10:26:26
sense-region.el は使えるんだが、コードがちと orz なんだよな。
emacs 23.* コンパイラーでwarningがでないように、コードクリーンアップ
した人いる？
257:デフォルトの名無しさん
09/09/13 16:36:02
したよ。
rm ./sense-region.el
258:デフォルトの名無しさん
09/09/13 16:48:22
>>257
つまらない。
259:デフォルトの名無しさん
09/09/13 17:36:23
つまらなくはない。
むしろ本質をついたレスだと思う。
哲学的な嫌いはあるけどね。
260:デフォルトの名無しさん
09/09/13 18:34:10
うん、つまらないね。
261:デフォルトの名無しさん
09/09/13 18:51:22
デカルトになぞらえていえば
sense-region.elある故に問題あり
一つの正答だろう。
262:デフォルトの名無しさん
09/09/13 19:06:25
つまらんだろ普通に。
263:デフォルトの名無しさん
09/09/13 19:21:47
つまらなくない。
264:デフォルトの名無しさん
09/09/13 19:24:23
＼もうね、アボカド／ ＼バナナかと／
┌┐
ヽ ／ /
γ⌒^ヽ ／ / i
/:::::::::::::ヽ | (,,ﾟДﾟ)
/::::::::(,,ﾟДﾟ) |（ノi |）
i:::::（ﾉDole|） | i i
ﾞ､:::::::::::::ノ ＼_ヽ＿,ゝ
U"U U" U
265:デフォルトの名無しさん
09/09/13 22:27:05
>>261
コードがちと orz 故に問題あり
と思われ
266:デフォルトの名無しさん
09/09/15 17:23:24
アホな質問すいません。
dired-do-shell-command したところ、
*Shell Command Output*
のバッファーが kill-bufferで削除できなくなりました。
emacs -Q で起動して試すと削除出来たので、
自分で入れているelispの設定だと思うのですが、
見当がつきません。
kill-bufferで削除できなくするflagとか有りませんでしょうか?
それを単語を元にひっかけようかと思うんですが…
267:Zeno ◆5nZQbNmQPs
09/09/15 17:36:11
>>266
(progn
(setq kill-buffer-hook nil)
(ignore-errors (ad-disable-advice 'kill-buffer 'any ".")))
を実行してみたまえ。
268:266
09/09/16 00:42:32
>>267
レス、どうもです。
上記、S式を評価しても、削除出来ませんでした。
その後、しばらくイジっても削除できず、
結局、再起動したのちshell-command を使って、
そのbufferを削除すると、出来ました。
そして、おかしくなった前回のsessionでやったようなことを順番に行っては
shell-command -> buffer の削除
と、繰り返してみたのですが、すべて削除できてしまいました。
この事象は、今回だけではなく、少し前にも起きたことなので、
まるっきり偶発的でもないと思っています。
ただ、どのような仕組みで、bufferが削除できないのか良く判らないので、
ご存知の方、教えてください。
; 実害は、ないんですけどね。
; 結果を見た後、C-x k を押して、bufferが残ってると
; ちょっと、イラッとくるぐらいで。
269:デフォルトの名無しさん
09/09/24 19:45:25
quote や lambda の内部で予め式を評価する方法がわかりません．
例えば
(let ((v 10))
(lambda (n) (+ n v)))
=> (lambda (n) (+ n v))
これを以下のように評価することは可能でしょうか．
(lambda (n) (+ n 10))
初歩的な質問で申しわけありませんが，ご教示願います．
270:デフォルトの名無しさん
09/09/24 20:19:27
(let ((v 10))
`(lambda (n) (+ n ,v)))
271:デフォルトの名無しさん
09/09/24 20:36:03
>> 270
ありがとうございます．
やはり方法があったんですね，非常に助かりました!!
272:Zeno ◆5nZQbNmQPs
09/09/25 08:16:26
>>269
>>270
その場合は意味合い的に
(lexical-let ((v 10))
(lambda (n) (+ n v)))
とした方が良い。
273:デフォルトの名無しさん
09/09/25 08:49:41
>>272
しかしこういう場合には>>270のやり方の方がいいんではなかろうか。
(setf foo nil)
(lexical-let ((v 10))
(push (lambda (n) (+ n v)) foo)
(incf v)
(push (lambda (n) (+ n v)) foo))
(message (format "%S" (cons (funcall (car foo) 1) (funcall (cadr foo) 1)))) => (12 . 12)
274:Zeno ◆5nZQbNmQPs
09/09/25 09:03:55
>>273
"こういう場合には" とは言うが、そのような
馬鹿げたコードを書く人間は放置されるであろう。
同様のことをしたいのであれば、以下のように書けば良い
(というか、以下のスタイルにするべき)。
(setf foo nil)
(defun bar (v)
(lexical-let ((v v))
(lambda (n) (+ n v))))
(push (bar 10) foo)
(push (bar 11) foo)
(message (format "%S" (cons (funcall (car foo) 1) (funcall (cadr foo) 1))))
=> "(12 . 11)"
275:デフォルトの名無しさん
09/09/25 14:43:03
lexical-let 使うなら (require 'cl-macs) 書いておくべきだろ
276:デフォルトの名無しさん
09/09/25 18:14:35
いつからか知らないけど、少し前から autoload ついてるよ。
277:デフォルトの名無しさん
09/09/26 01:26:35
let と let* で二つに分ける理由ってなんですか？
ついでにもう一つ、macroexpand-系を使って、
マクロ動作を勉強してるんですが、
*Message*バッファには省略形のリストしか表示されないです。
全部理解するには、edebug-defunでデバッガ起動するしかないのですか？
278:Zeno ◆5nZQbNmQPs
09/09/26 03:08:07
>>277
> let と let* で二つに分ける理由ってなんですか？
(let* ((x 1)
(y x))
(cons x y))
=> (1 . 1)
(let ((x 1)
(y x))
(cons x y))
=> Error ...
let* は (let 変数定義1 (let 変数定義2 (let ...)))
という風にletでネストされていると考えても良い。
分かったら固定ハンドルを付けろ。
279:デフォルトの名無しさん
09/09/26 03:09:45
いや意味の違いじゃなくて”何故”両方ある必要があるのかって質問でしょ
280:Zeno ◆5nZQbNmQPs
09/09/26 03:11:02
>>279
> いや意味の違いじゃなくて”何故”両方ある必要があるのかって質問でしょ
| let* は (let 変数定義1 (let 変数定義2 (let ...)))
| という風にletでネスト
するのが面倒だから。
281:269
09/09/26 04:27:21
>>272-276
回答頂きありがとうございます．
まだ未熟でコードの善し悪しの判別は付きませんが，提示頂いた lexical-let
を使って書くことにしました．
ちなみに quote 内で評価する場合は(回答頂いた中では) >>270 でしか展開さ
れないみたいですね．
(lexical-let ((s "test"))
(quote s))
=> s
(let ((s "test"))
`(quote ,s))
=> "test"
非常に勉強になりました!!
282:Zeno ◆5nZQbNmQPs
09/09/26 04:41:58
>>281
> ちなみに quote 内で評価する場合は(回答頂いた中では) >>270 でしか展開さ
> れないみたいですね．
当たり前だ。 quote は数ある special form の一つで、
その引数は評価されないまま内部に渡される。
根本的に理解できていないようだから、まずは common lisp から
学んでみることを勧める。
わかったらさっさと本屋に直行しろ。
283:Zeno ◆5nZQbNmQPs
09/09/26 04:47:51
私は emacs スレを長らく留守にしていたのだが、
フンバリャーウンコ・ヨーデルは現れなかったかね？
フンバリャーウンコ・ヨーデルはいるかね？ 見ているなら返事をしたまえ。
284:269 ◆PC9p7J5igw
09/09/26 05:59:41
>>282
quote については理解しているつもりですが，
今回は引数を渡す前に例外的に評価されるようにしたかったのです．
quote でも渡される前に評価されると思ったのは， lambda が function で内
包して返すマクロだからです．
(macroexpand (lambda () "test"))
=> (function (lambda nil "test"))
しかし，function でも渡される前に評価されるわけではないんですね
(lexical-let ((s "test"))
(function s))
=> s
そもそも help に書いてありました...
>lambdas inside BODY will create lexical closures
lisp を理解できていないのは自覚しているのでアドバイス通り common lisp
から勉強したいと思います．
285:デフォルトの名無しさん
09/09/26 08:39:51
復刊なった「はじめての人のためのLisp」が発売されたら、
少しは、「少しは本を読め」な質問減るかなぁ。
286:デフォルトの名無しさん
09/09/26 09:37:27
CommonLispを勉強したら
EmacsLispが嫌になっちゃったりして。
287:デフォルトの名無しさん
09/09/26 11:05:12
そしたらようこそwin&xyzzy
Macで使えたらなぁ…
288:デフォルトの名無しさん
09/09/26 11:12:08
ソース公開されてるよ。C++で書かれていたので面倒くさくて読んでないけど。
289:デフォルトの名無しさん
09/09/26 18:52:57
Common Lisp と Emacs Lisp の関数の対照表みたいなのってある？
290:Zeno ◆5nZQbNmQPs
09/09/26 20:56:17
>>289
ああ、在る。
291:Zeno ◆5nZQbNmQPs
09/10/02 16:10:23
>>284
頑張れよ
URLﾘﾝｸ(www.gnu.org)
292:デフォルトの名無しさん
09/10/05 22:29:10
Emacs LispとCommon Lispの違いは何でしょうか？
私はUbuntuにclispをインストールし、端末上でClispを起動した後,(format t "Hello World")と打ち込んでEnterを押しました。
実行結果として、端末にHello Worldと表示されました。
しかし、Emacs上で上記を打ち込んでCtrl + jを押しますと、エラーらしき文章が・・・
Emacs Lisp と Common Lispというのは方言の違いを表しているのでしょうか、
実際に、出来ることと出来ないことの差というものもあるのでしょうか？
293:デフォルトの名無しさん
09/10/05 22:37:44
そりゃ別のものだからね。差もあるだろう。
294:デフォルトの名無しさん
09/10/05 22:43:04
>>293
Emacs lispの使われる用途
Common lispの使われる主な用途
を教えてください。
また、上記両方のlispに関して参考サイトとしての大御所・・・と言えるような海外サイトがあれば教えて頂きたい
295:デフォルトの名無しさん
09/10/05 22:50:08
Emacs Lisp はそりゃ Emacs を拡張したり開発したりするのに使う。
Common Lisp はもっと計算速度が欲しいとか大規模なものを作る人々が使う。
大御所ねぇ。権威が欲しいならHaskellとかScalaとかピカピカのやつやったほうがいいと思うよ。
296:デフォルトの名無しさん
09/10/05 22:53:29
成る程・・・
わかりました。最初はCommon Lispから始めようと思います。それでは
297:デフォルトの名無しさん
09/10/05 22:54:26
オイオイ…
Emacs Lisp は Emacs の名を冠するだけあって Emacs の拡張・カスタマイズ用に決まっておろうが。
Emacs は本当に基本的なコアを除いて Emacs Lisp で書かれてるんだぜ。
Common Lisp の主な用途って言っても汎用言語の主な用途なんて言ってもしょうがないと思う。
とりあえず Common Lisp スレがあるからそっち行け。
298:デフォルトの名無しさん
09/10/05 23:10:48
っURLﾘﾝｸ(www.ice.nuie.nagoya-u.ac.jp)
299:デフォルトの名無しさん
09/10/06 09:26:11
lispは方言が多い言語としても有名なんだったよね。
300:デフォルトの名無しさん
09/10/06 23:01:43
ruby
301:デフォルトの名無しさん
09/10/07 00:35:00
JavaScript も Lisp in C's Clothing だ
302:デフォルトの名無しさん
09/10/07 00:39:37
標準ライブラリみたいなもんって lisp だと何？
303:デフォルトの名無しさん
09/10/07 00:42:55
CL なら CLtL2
Scheme なら SRFI
304:デフォルトの名無しさん
09/10/07 17:19:58
Emacs Lisp でウェブアプリって書けないかな？
ウェブできればグラマーの幅が広がって共有ノウハウも増えるはずなんだけど。
305:デフォルトの名無しさん
09/10/07 18:11:57
グラマー?
306:デフォルトの名無しさん
09/10/07 18:40:55
トランジスタ？
307:デフォルトの名無しさん
09/10/07 19:13:58
>>304
そりゃ書けると思うけどグラマーの幅が広がるって意味がわからん。
ウェブアプリってのもクライアントなのかサーバアプリなのかわからん。
前者なら普通に存在してるよ。
あと昔Emacsで動くhttpdなんてのも作られてたよ。
こんなん。
URLﾘﾝｸ(sachachua.com)
URLﾘﾝｸ(elserv.sourceforge.net)
308:デフォルトの名無しさん
09/10/07 22:58:12
>>304
ウェブのソフトウェアなんてシェルスクリプトでも書けるんだぜ。
Emacs のノウハウを心配するより、君自身のノウハウを増やした方が良いと思うぞ。
309:デフォルトの名無しさん
09/10/09 12:57:59
GNU Emacs 23.1.1 (i386-mingw-nt5.1.2600) of 2009-07-30 on SOFT-MJASON で EmacsWiki から持ってきた
anything, anything-config を使っています。
anything-sources に anything-c-source-* 一つずつ足していって試してみているのですが
anything-c-source-info-elisp を足したところで
progn: Symbol's function definition is void: Info-find-node
とエラーを吐いて止ってしまいます。
Enter Debugger on Error を使ってみたところ、*Backtrace*に次のようなメッセージ(次レスに貼ります)が出ました。
どうやら Info-find-node が定義されていないとのことですが
どう対処してよいかわかりません。
何かアドバイスをいただけませんでしょうか？
310:デフォルトの名無しさん
09/10/09 12:59:28
Debugger entered--Lisp error: (void-function Info-find-node)
(Info-find-node "elisp" "Index")
(progn (Info-find-node "elisp" "Index") (setq anything-c-info-elisp (split-string ... "\n")) (Info-exit))
(unwind-protect (progn (Info-find-node "elisp" "Index") (setq anything-c-info-elisp ...) (Info-exit)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ...) (and ... ...)))
(with-current-buffer temp-buffer (unwind-protect (progn ... ... ...) (and ... ...)))
(let ((temp-buffer ...)) (with-current-buffer temp-buffer (unwind-protect ... ...)))
(with-temp-buffer (Info-find-node "elisp" "Index") (setq anything-c-info-elisp (split-string ... "\n")) (Info-exit))
(if anything-c-info-elisp nil (with-temp-buffer (Info-find-node "elisp" "Index") (setq anything-c-info-elisp ...) (Info-exit)))
(unless anything-c-info-elisp (with-temp-buffer (Info-find-node "elisp" "Index") (setq anything-c-info-elisp ...) (Info-exit)))
(save-window-excursion (unless anything-c-info-elisp (with-temp-buffer ... ... ...)))
(lambda nil (save-window-excursion (unless anything-c-info-elisp ...)))()
apply((lambda nil (save-window-excursion (unless anything-c-info-elisp ...))) nil)
(let ((anything-source-name ...)) (apply func args))
anything-funcall-with-source(((name . "Info Elisp") (init lambda nil (save-window-excursion ...)) (candidates lambda nil (loop for i in anything-c-info-elisp if ... collect ...)) (ここで改行を挿入)
(action lambda (candidate) (Info-find-node "elisp" "Index") (Info-index ...)) (volatile) (requires-pattern . 2)) (lambda nil (save-window-excursion (unless anything-c-info-elisp ...))))
311:デフォルトの名無しさん
09/10/09 12:59:35
(while --cl-dolist-temp-- (setq func (car --cl-dolist-temp--)) (anything-funcall-with-source source func) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
(let ((--cl-dolist-temp-- ...) func) (while --cl-dolist-temp-- (setq func ...) (anything-funcall-with-source source func) (setq --cl-dolist-temp-- ...)) nil)
(catch (quote --cl-block-nil--) (let (... func) (while --cl-dolist-temp-- ... ... ...) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
(block nil (let (... func) (while --cl-dolist-temp-- ... ... ...) nil))
(dolist (func (if ... ... it)) (anything-funcall-with-source source func))
(if it (dolist (func ...) (anything-funcall-with-source source func)))
(let ((it ...)) (if it (dolist ... ...)))
(anything-aif (assoc-default sym source) (dolist (func ...) (anything-funcall-with-source source func)))
(while --cl-dolist-temp-- (setq source (car --cl-dolist-temp--)) (when (symbolp source) (setq source ...)) (anything-aif (assoc-default sym source) (dolist ... ...)) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
(let ((--cl-dolist-temp-- ...) source) (while --cl-dolist-temp-- (setq source ...) (when ... ...) (anything-aif ... ...) (setq --cl-dolist-temp-- ...)) nil)
(catch (quote --cl-block-nil--) (let (... source) (while --cl-dolist-temp-- ... ... ... ...) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
(block nil (let (... source) (while --cl-dolist-temp-- ... ... ... ...) nil))
(dolist (source (anything-get-sources)) (when (symbolp source) (setq source ...)) (anything-aif (assoc-default sym source) (dolist ... ...)))
anything-funcall-foreach(init)
ad-Orig-anything-initialize()
(setq ad-return-value (ad-Orig-anything-initialize))
(let (ad-return-value) (setq anything-c-adaptive-done nil) (setq ad-return-value (ad-Orig-anything-initialize)) ad-return-value)
anything-initialize
312:デフォルトの名無しさん
09/10/09 19:30:54
info.el ロードされてないんだな。anything より前に
(require 'info)
とでも書いたらどうかな。
313:デフォルトの名無しさん
09/10/09 19:53:14
>>312
ありがとうございました。できました。
314:デフォルトの名無しさん
09/10/10 00:32:01
Emacs怖い。数十年後もEmacs使ってそう。
315:デフォルトの名無しさん
09/10/10 21:12:34
選択した語をサーチエンジンで検索してw3mで表示するelispってあります？
316:デフォルトの名無しさん
09/10/10 22:31:51
どっかで拾った google.el ってのがそんな挙動だな。
内容は region が活性だったら google 用の検索 URL 作って
browse-url で デフォルトのブラウザ呼び出すだけのシンプルなのだったけど。
317:デフォルトの名無しさん
09/10/10 22:54:01
EmacsWikiのdim-google.elっていうのが求めるものでした
探せばすぐに見つかるものでしたね
お手数をかけました
318:デフォルトの名無しさん
09/10/10 23:37:36
孫にEmacsの手ほどきをするのが老後の夢
319:デフォルトの名無しさん
09/10/10 23:55:47
emacsをp2pで繋ぐのが夢だ
320:デフォルトの名無しさん
09/10/15 16:27:56
Emacsがmacびいきな名前だからEwinsにするのが俺の夢だ。
321:Zeno ◆5nZQbNmQPs
09/10/15 16:41:39
>>320
自分でソースを引っ張ってきて、ソース内、そしてファイル名に含まれる
[Ee]macs を [Ee]wins に変換すれば良いだろうが。
322:Zeno ◆5nZQbNmQPs
09/10/15 16:45:56
>>320
それと一応教えておくが、MacよりもEmacsの方が先だ。
もしそういうことにしたいのであれば「Emacsがmacびいきな名前」ではなく、
「MacがEmacsびいきな名前」と解釈するのが正しい。
323:デフォルトの名無しさん
09/10/15 17:14:51
いまどきEmacsなんか使ってたら厨か老人扱いだろ。
なんでそうなったかっていうと、圧倒的大多数を占めるWindowsに
インターフェースを合わせなかったからだろうな。
標準をWindowsに合わせて、オプションで旧Emacsを選べるのが
本来の正しい姿。
324:デフォルトの名無しさん
09/10/15 17:17:24
>>323
君面白いねw
というかWindowsがEmacsにあわせるべき。
Macはもう合わせてる。
325:Zeno ◆5nZQbNmQPs
09/10/15 17:31:04
中身が理解できていない為、デフォルトの見た目について
あれこれ文句を言うことしかできない真性の阿呆は放っておけ
326:デフォルトの名無しさん
09/10/15 17:35:42
xkeymacsでええやん
327:デフォルトの名無しさん
09/10/15 19:00:12
「窓使いの憂鬱」も忘れないで!
328:デフォルトの名無しさん
09/10/15 20:07:39
ありゃキーロガーだから死すべきもの
329:デフォルトの名無しさん
09/10/15 21:24:17
>>320
URLﾘﾝｸ(www.ueda.info.waseda.ac.jp)
Emacs ライクな Scheme ベースのエディタ Edwin
ただし日本語は通らないらしいが
330:デフォルトの名無しさん
09/10/15 22:15:20
なんでEmacsはwindowsで使えないの？
windowsアンチなの？
331:デフォルトの名無しさん
09/10/15 22:28:12
なんでwindowsではEmacs使えないの？
Emacsアンチなの？
332:デフォルトの名無しさん
09/10/15 22:41:05
なんでwindowsでEmacs使えないと思ってるのかが謎だ
333:デフォルトの名無しさん
09/10/15 23:12:35
meadowもemacsだろ
334:デフォルトの名無しさん
09/10/16 00:20:17
emacsでパソコンとお友達になれますか？
335:デフォルトの名無しさん
09/10/16 00:29:15
オフィシャルに Windows のバイナリもあるというに。
336:デフォルトの名無しさん
09/10/16 00:42:28
いまどきMeadowはないだろ。。。
337:デフォルトの名無しさん
09/10/16 00:46:58
meadowはemacsenだけどNTEmacsはEmacsだよな
338:デフォルトの名無しさん
09/10/16 16:43:29
xyzzy も忘れずに
339:デフォルトの名無しさん
09/10/16 19:42:53
Windows マシンを持ってないんだけど、xyzzy って Emacs ユーザから見て実際どうなの?
・これだったら Emacs で十分だぜ
・これなら十分 Emacs の代替になるな
・こ、これは Emacs より断然スゲー！
340:デフォルトの名無しさん
09/10/16 19:52:42
mgみたいなもの
341:デフォルトの名無しさん
09/10/16 20:10:49
それは elisp が使えなければ Emacs に非ずって事かな?
342:デフォルトの名無しさん
09/10/16 20:18:49
Emacs 的に見るとまがいもんだけど、
エディタ全般的に見ると xyzzy には xyzzy の良さがある。
着想の元が Emacs だとしても今では別物。
比較するようなもんじゃない。
343:デフォルトの名無しさん
09/10/16 20:26:26
なるほど、別物なのか…
ありがと。
344:デフォルトの名無しさん
09/10/16 22:59:31
Emacsとして見ようとすると違和感があるけど、
Windowsアプリとして見るとEmacsより違和感が無いって感じ(´・ω・｀)
345:デフォルトの名無しさん
09/10/16 23:00:56
メモ帳感覚で使えて、かなりemacsぽくもつかえる
346:デフォルトの名無しさん
09/10/16 23:08:32
正直、Windowsつこうてる時は、Emacsよりもxyzzy使うことのほうが多い僕は異端児。
347:デフォルトの名無しさん
09/10/17 08:41:20
ただ細かい部分でEmacsと違うから
Emacs好き好きすぎるとかえってストレスたまるかもしれんね。
348:デフォルトの名無しさん
09/10/17 09:17:51
Emacs好き好きだったら当然Window上でも本物Emacs入れてるでしょ。
今のWindows用EmacsはUSBに入れて持って歩けるしね。
349:デフォルトの名無しさん
09/10/24 18:44:32
emacsそのものより利用者が作ったライブラリとか付属のelispを使う為ってのが大きい
350:デフォルトの名無しさん
09/10/24 20:49:56
>>349
大昔にマイコンさわったときの最初のエディタがmince(micro emacs)だったと言うだけでemacs以外さわれない体になった俺みたいなのもいる（普通はwordmasterだった頃）
RPN電卓さわってしまった工学系学生とおなじようなもんだけど
351:デフォルトの名無しさん
09/10/24 20:56:13
よく「最初にXXXXをさわったからXXXXしか使えなくなった」って言う人がいるけど
単に適応能力が普通の人に比べて足りてない能無しってだけだよね。
価値のある体験談でもないし勿論自慢にはならない。
352:デフォルトの名無しさん
09/10/24 21:09:32
さわれないっていうよりさわりたくない、ぐらいだろね
必要にせまられればどんなエディタでも結構なんとかなったりする
353:デフォルトの名無しさん
09/10/24 21:26:45
>>351
もちろん君はQwerty配列でもDvorak配列でも全く同等に使えるんだよね？
354:デフォルトの名無しさん
09/10/24 21:41:26
>>351
emacsとvi好きに喧嘩売るとはなんという宗教戦争マニア！
355:デフォルトの名無しさん
09/10/24 21:47:06
>>351
エディタとか割とよく使うもの（鉛筆とノートのように）だと最初の原体験で得た物と次にさわった物の間で入力速度に差があると二度と他に移りたくなくなる物だよ
今の時代のようにしょっちゅう入れ替えができたり物が選べる時代じゃないならなおのことだ(当時はストレージがFDドライブ二個が上限だったしエディタ買うのだってものすごく高価だった）
今でも各種IDEのキーバインドにエディタ名を冠した設定がある事がそれを物語ってるよ
356:デフォルトの名無しさん
09/10/25 01:38:28
仕事だとそんなふぬけたこと言ってらんないんだけどね。
357:デフォルトの名無しさん
09/10/25 01:51:57
>>353
それ、良い喩えだね。面白い。
358:デフォルトの名無しさん
09/10/25 02:00:11
>>353
どっちも十分に経験していれば、当然どっちも十分に使えるだろうね。
普通の人は。
脳に欠陥のある人は、二つ目の経験が一つ目を吹き飛ばしてしまうかも。