07/11/27 05:52:35 qHIOEO6N0
copy-to-clipboard に kill-new を引っかけたり、
適当なタイミングで >>150 みたいなのを呼ぶようにしたりして
kill-ring とクリップボードを完全同期にして使ってるのは俺だけかね。
まあ各自使いやすいスタイルで使えば良いと思うけどさ。
160:名無しさん＠お腹いっぱい。
07/11/27 12:01:40 NNiH/VWr0
同期しないで別々に使ってる。
xyzzy の中だけならほとんど kill-ring しか使わない。
たまにしばらく取っておきたい文字列があるとレジスタに。
161:名無しさん＠お腹いっぱい。
07/11/27 13:29:13 d7SGse2I0
レジスタ = クリップボード？
162:名無しさん＠お腹いっぱい。
07/11/27 13:44:30 CCKsojsL0
レジスタ
URLﾘﾝｸ(www2.ocn.ne.jp)
163:名無しさん＠お腹いっぱい。
07/11/27 21:24:07 OKniN1l/0
unix脳になってしまいそう
164:名無しさん＠お腹いっぱい。
07/11/28 04:58:49 qHQSBq/J0
お国に I/O
165:名無しさん＠お腹いっぱい。
07/11/30 15:24:31 24A0/Nxi0
2ch-modeのスレ表示時、選択範囲にある複数のURLを
全てブラウザに送るなんて都合のいい機能ないですか
166:名無しさん＠お腹いっぱい。
07/11/30 16:08:24 uVEELOnE0
こんなの？
(defun open-browser-all ()
(interactive)
(save-excursion
(save-restriction
(selection-start-end (start end)
(narrow-to-region start end)
(goto-char (point-min))
(while (scan-buffer "h?ttps?://[-_.!~*'()a-zA-Z0-9;/?:@&=+$,%#]+" :regexp t :tail t)
(2ch::thread-open-browser))))))
167:名無しさん＠お腹いっぱい。
07/11/30 16:13:35 uVEELOnE0
間違えた。
thread-open-browser じゃURL開けないてば。
(defun open-browser-all ()
(interactive)
(save-excursion
(save-restriction
(selection-start-end (start end)
(narrow-to-region start end)
(goto-char (point-min))
(while (scan-buffer "h?ttps?://[-_.!~*'()a-zA-Z0-9;/?:@&=+$,%#]+" :regexp t :tail t)
(save-excursion (backward-char)
(2ch::thread-jump)))))))
168:名無しさん＠お腹いっぱい。
07/11/30 17:46:36 yrWLiMct0
>>167
できました！ありがとうございます。
選択範囲と言っといてなんなんですが
リージョンで同じことするときは
(selection-start-end (start end)
(narrow-to-region start end)
の二行を
(narrow-to-region (mark) (point))
に置き換える、で合ってるでしょうか。
169:名無しさん＠お腹いっぱい。
07/12/02 17:43:05 ++JYDaAU0
>>168
(defun f (from to)
(interactive "r")
(save-excursion
(save-restriction
(narrow-to-region from to)
(goto-char (point-min))
(while (scan-buffer "h?ttps?://[-_.!~*'()a-zA-Z0-9;/?:@&=+$,%#]+" :regexp t :tail t)
(save-excursion (backward-char)
(2ch::thread-jump)))))))
170:168
07/12/03 22:24:42 J44c04NW0
(interacive "r")でリージョンのマーク位置とポイント位置を引数に渡せる…と。
ども。いただきます。
171:名無しさん＠お腹いっぱい。
07/12/07 12:18:38 apSI9g0c0
矩形選択範囲をupcase-selectionしたかったんですが
普通に矩形選択してコマンド打ってもダメでした。
これはできないもんなんでしょうか？
172:名無しさん＠お腹いっぱい。
07/12/07 18:53:02 nvzdmXo+0
できないかも。
矩形のヤツは自分で色々増やしてるけど
全く使わないので確かな話じゃないけど。
173:名無しさん＠お腹いっぱい。
07/12/07 19:28:03 ECpn8uD50
*rectangle-kill-buffer*をstring-upcaseかな
続きはrectangl.lで
174:名無しさん＠お腹いっぱい。
07/12/07 21:04:58 oOiAbzxk0
練習問題のつもりで>>173のやりかたで作ってみた。
矩形使わないんでいつもちゃんと動くかは知らん。
(defun upcase-rectangle-selection (from to)
(interactive "*R")
(let (*rectangle-kill-buffer*)
(save-excursion
(when (kill-rectangle-selection)
(goto-char (min from to))
(setq *rectangle-kill-buffer*
(let (result)
(dolist (str *rectangle-kill-buffer* (nreverse result))
(push (string-upcase str) result))))
(yank-rectangle)))))
175:名無しさん＠お腹いっぱい。
07/12/08 04:29:54 qe0PXIZ60
ありがとうございます
今の所問題なく動いてます！
176:174
07/12/08 10:02:44 uQ9fQwbw0
mapcar の存在を忘れてた俺涙目。
あとやっぱりというか、選択の仕方によっては大変なことになりますね。
左上～右下と選択するぶんには問題ないみたいですが。
177:名無しさん＠お腹いっぱい。
07/12/08 10:36:57 ULL8QVhU0
なるほどmapカー
178:名無しさん＠お腹いっぱい。
07/12/08 14:43:05 TTmRbK+Y0
そんなクダーらないことをいってはいけません
179:名無しさん＠お腹いっぱい。
07/12/08 16:27:42 /C/kEQdZ0
URLﾘﾝｸ(xyzzy.s53.xrea.com)
を見るに、おもいつくままxyzzyが多分タイムラグ中なんですけど、ミラーしてる方いますか？
180:名無しさん＠お腹いっぱい。
07/12/09 00:48:12 Jeo057QS0
*rectangle-kill-buffer*
こんなものがあったとは。前に矩形範囲を適当に変えるやつを
全部指定してやった事があるけど何か微妙だなぁと思ってたところ。
181:名無しさん＠お腹いっぱい。
07/12/20 15:37:27 7A4MdmKz0
最近OSをVistaにして引き続きKaMailを使ってるんですが
送信の際、ヘッダー部のCc:以下に
Cc: 名無しさん <hoge@huga.ne.jp>, 二人目さん <hoge@huga.or.jp>
などのように二人以上を指定するとCc:とSubject:の2バイト文字が
文字化けするのに気づきました
おそらく2バイト文字がよくないのだろうとは想像しているのですが
どなたか対処法がわかる方いますか？お願いします
182:名無しさん＠お腹いっぱい。
07/12/21 12:48:15 bSuHMv0d0
UTF-8N のxmlを開くと、文字化けが起こる確率がすごく高いため、
いつも、UTF-16で書いています。
普段は、他の文字コードも開くことがあるため、オプションの
「読み込み」の「文字エンコーディング判定」は、自動判定にしてあります。
xmlなどWeb系では、UTF-8N だろうと思うので、実は、UTF-8Nを使いたいのですが、
UTF-8Nをxyzzyで、文字化けさせずに表示させる方法ってないですか？
文字判別関係の話だと思うので、
スレ違いなら、誘導をお願いします。
あと、もし文字化け状態した時に、
認識させ直す（指定のコードで認識させる）方法はないですか？
183:名無しさん＠お腹いっぱい。
07/12/21 13:07:48 dVF/dzNi0
> UTF-8Nをxyzzyで、文字化けさせずに表示させる方法ってないですか？
先頭のほうに漢字を書いておく
> 認識させ直す（指定のコードで認識させる）方法はないですか？
C-u C-x C-v
184:名無しさん＠お腹いっぱい。
07/12/21 19:04:37 nNO6ohrn0
>>182
昔のスレに出てたこれ使ってるけど、結構便利。
(defun revert-buffer-encoding-popup2 ()
(interactive)
(let ((menu (create-popup-menu)))
(mapc #'(lambda (x)
(add-menu-item menu nil (car x)
#'(lambda ()
(interactive)
(revert-buffer (cdr x)))))
`(("utf-8". ,*encoding-utf8n*)
("sjis" . ,*encoding-sjis*)
("auto" . ,*encoding-auto*)
("euc-jp" . ,*encoding-euc-jp*)))
(track-popup-menu menu)))
(global-set-key '(#\C-c #\e) 'revert-buffer-encoding-popup2)
185:名無しさん＠お腹いっぱい。
07/12/21 21:08:08 mFz2J5WY0
>>184
横からトンｸｽ。気に入ったので
ついでにファイルメニューにも追加するようにした。
>>182
たまたま良いもの見つけたので、使い方調べてみた。
こんなんで c:/hoge/utf8n/ 以下のファイルを全部 utf8n にできる。
(push '("^c:/hoge/utf8n/" . (lambda () *encoding-utf8n*)) *auto-encoding-alist*)
正規表現かえれば、うまくいかないか？
186:名無しさん＠お腹いっぱい。
07/12/21 23:21:35 O+Tk7wFZ0
>>182
ファイルの先頭の方に
<!-- -*- encoding: utf-8 -*- -->
を書いておく。
187:名無しさん＠お腹いっぱい。
07/12/22 01:39:57 UobeEHKv0
>>183-186
うぉぉ、みなさん、ありがとう！
順に試してみるっす
188:名無しさん＠お腹いっぱい。
07/12/22 14:34:38 iPTGSsP90
>>184
それ便利ですね
182ではないけど、使わせてもらいます
ありがとう
189:名無しさん＠お腹いっぱい。
07/12/23 11:53:42 T52sElMl0
>>184
横から頂きました。ありがとう
元の作者さんにも感謝。
他のファイラでBREGEXP.DLL使っていて
正規表現まわりで ちょっと気になったんですけど
xyzzyで(?!hogehoge)みたいな表現は実装されていないでしょうか?
併用してると\(\)\|\{\}で間違ってしまう軟弱者ですが。
190:名無しさん＠お腹いっぱい。
07/12/23 14:36:08 jHgn7uPU0
古いgrep相当の演算子しか使えないと思う。
191:名無しさん＠お腹いっぱい。
07/12/23 15:49:10 T52sElMl0
>>190
レスどうもありがとう。
一応色々検索掛けてみたんだけど、やっぱりですか。
結局、普段そんなに特殊な表現が必要になることは少ないので
今まで通り使おうと思います。
192:名無しさん＠お腹いっぱい。
07/12/23 17:12:00 bb70fu3r0
>>189
使っていないのでよく分からないけど、これのことじゃないの？
URLﾘﾝｸ(xyzzy.s53.xrea.com)
193:名無しさん＠お腹いっぱい。
07/12/23 17:55:32 T52sElMl0
>>192
探し方が甘かったようです。
これから試してみて、自分自身の中で混同しないようだったら
導入してみようと思います。
本当にどうもありがとう。
194:181
07/12/28 17:34:52 bJunc2mP0
>>181
まったくレスが無くてちょっとさみしかったのですが
原因の一端が分かったので一応自己レスしておきます
どうやら
URLﾘﾝｸ(xyzzy.s53.xrea.com)
にある「スペースが勝手に挿入・削除されないようにする」
というのを適用させていたためだったようで、
これを適用させないと>181に書いた現象は起きなくなりました
代わりにスペースが入ってきてしまいますが……
以上すれ汚しスマソ
195:名無しさん＠お腹いっぱい。
07/12/31 17:15:41 nWzck+e40
スペースが勝手に挿入・削除されないようにする の KaMailV3用
って誰か作ってる？
196:名無しさん＠お腹いっぱい。
08/01/04 12:18:16 HRYLxsX80
ちょっと困っています。
URLﾘﾝｸ(xyzzy.s53.xrea.com)
を参考に、複数のunicord文字を変換するようにしようと思いまして、.xyzzyにこう書きますと、
変換は成功しました。
(テストとしてunicordを含まずに作成)
(require "multiple-replace")
(defun deutsch ()
(interactive)
(multiple-replace-string
'(("a" . "ä")
("A" . "Ä"))
))
(global-set-key '(#\C-c #\\) 'deutsch)
しかし、本番として検索文字をウムラウトにし、unicord(UTF-8)で保存して起動すると、
「変数が定義されていません」と受け付けてくれません。
かといってShiftJisではウムラウトは保存できません。
ウムラウトでも受け付けてくれる方法や、
他に何か複数置換の方法はありませんでしょうか？
197:名無しさん＠お腹いっぱい。
08/01/04 12:20:15 HRYLxsX80
置換のäは、＆auml;です。(半角→全角で変換避けをしています)
書き込んだら変換されてしまいました。
198:名無しさん＠お腹いっぱい。
08/01/04 17:45:16 Ihvv3NEb0
>>196
.xyzzy や拡張ライブラリ (foo.l) を utf8 で保存しちゃまずんじゃない？
199:名無しさん＠お腹いっぱい。
08/01/04 18:23:44 Rh5ZQnBG0
>>196
utfで保存して、mc-load-file
200:名無しさん＠お腹いっぱい。
08/01/04 19:22:55 HRYLxsX80
>>198
まずいかなあ、と思いつつやってみたら案の定だったのですよ。
>>199
ありがとうございます！変換成功しました。
設定ファイルでなければutfで保存してもOKだったのですね…
201:名無しさん＠お腹いっぱい。
08/01/04 21:51:39 9vTGQQb50
質問とは関係ないけど、unicode だよね
202:名無しさん＠お腹いっぱい。
08/01/07 18:59:20 jNgGbt+90
>>190
なにげに適当なこというよね＾＾；
203:名無しさん＠お腹いっぱい。
08/01/12 15:58:13 PfCyvVMb0
reftexの設定の仕方がさっぱりわかりません。
\begin{exe} ... \end{exe}というenumerateに似た環境で
enumerateと同じように\label{items:1}のようなラベルを挿入したいのですが
どのように設定すればいいのでしょうか。
.xyzzyに(setq reftex-label-alist ... )とか書けば設定できるのかなー、と思い
reftexに添付のファイルやWeb上で見つけたサンプルを見てごにょごにょしてみたんですが
...の部分に何をどう書けばいいのか、私の頭ではさっぱり理解できません。
ご教示いただけませんでしょうか。
204:名無しさん＠お腹いっぱい。
08/01/12 21:36:15 lwbNP+m50
enumerate と同じでいいなら、こんな感じでしょうか。
設定ファイルの .reftex に書いておけば動くと思います。
(setq *reftex-label-alist*
'(("exe" #\i "item:" "~~\\ref{~A}" item
(regexp "items?" "Punkte?"))))
205:名無しさん＠お腹いっぱい。
08/01/13 04:18:02 PwrHuM0w0
ありがとうございます。
実をいうとreftex-vars.lのenumerateのをそのまま写すのは既に試したのですが、
うまく動かないようです。
（enumerateではitem:が挿入されるが、exeはsec:が挿入されてしまう）
206:名無しさん＠お腹いっぱい。
08/01/13 10:37:45 IiRpxgag0
Xyzzyを使い始めてから半年ほどです。
へー，とか言いながら便利に使っていましたが，先日ebdictを見つけました。
仕事柄辞書引きばかりしてるので，嬉々としてダウンロードしました。
仕事用のマシンでは普通にあっさり動いたのですが，先日購入した新マシンでは，
「指定されたモジュールが見つかりません。C:/Program Files/Xyzzy/etc/eb.dll」
と言われて一切起動しません。wxpファイルを消したり，XyzzyHomeに該当DLLを
移動させてみたりもしたのですが，まったくダメでした。
この場合，直す手段が何かありますでしょうか・・・。
該当スクリプトは同じもので動いているので，表記上のミスはないはずなのですが。
207:名無しさん＠お腹いっぱい。
08/01/13 13:18:07 TKJKu2nE0
よくわからんけど、 $XYZZY/etc/eb.dll はあるんだよね。
環境変数 XYZZYHOME は設定してある？
208:206
08/01/13 13:31:22 IiRpxgag0
>>207
はい，ファイルは存在します。＞C:/Program Files/Xyzzy/etc/eb.dll
XYZZYHOMEの設定はC:/Program Files/Xyzzyなので問題はない……ですよね。
なにより違うマシンで動いている環境とほぼイコールですので，eb.lのソースにある
(let ((dll (merge-pathnames "etc/eb.dll" (si:system-root))))
も問題なくパスするはずだと思っているのですが……。
事実，エラーメッセージは「C:/Program Files/Xyzzy/etc/eb.dllがないよ」ですし。
上記ソースの後ろにエラー分岐らしき部分があるのですが，
DLLが出す（のかな？）エラーメッセージなので，ちょっと把握できていません。
これが分かると何かヒントになるのかな，とは思ってはいるのですが。
もうちょっとあがいてみます。ありがとうございました。
209:名無しさん＠お腹いっぱい。
08/01/13 13:37:22 TKJKu2nE0
>>208
eb.dll のバージョンが違うとか？
210:206
08/01/13 13:57:12 IiRpxgag0
たびたびのお返事感謝です。
eb.dllのバージョンは4.2.2.0です。
作者であるdeecay氏が言及しているものと同じです。
そしてまた，もう1台では同じファイル＆同じファイル構造で動いているのです。厄介すぎる……。
文章を扱う仕事ということもあり，意地でも動かしたい気分ですのでがんばってみます。
211:名無しさん＠お腹いっぱい。
08/01/13 14:31:01 TKJKu2nE0
う～ん、わからんね。
自分も outline-tree でノード先頭に付く赤い四角が、
マシンによって表示されたりされなかったりしてるけど、
使用上そんなに問題ないので無視してた。
同じ原因かどうかはまったくわからないけど、 dll 使う
とこういうことが起こりうるのかも。
212:名無しさん＠お腹いっぱい。
08/01/13 15:49:04 F2b/yr1+0
>>208
C-x C-fで
~/etc/eb.dllで押してみて、現状のxyzzyで
パスとか認識されてるか調べてみたら？
213:名無しさん＠お腹いっぱい。
08/01/13 15:51:01 F2b/yr1+0
>>211
あれは自分で変えれるから
設定とか環境の問題では？
214:211
08/01/13 16:05:27 TKJKu2nE0
>>213
そうだったのか。あとで調べてみよう。
thx.
215:206
08/01/13 16:18:30 IiRpxgag0
>>212
助言感謝です。やってみたところ，キチンとパスとして認識されてました。
完全に行き詰まり中です。
216:204
08/01/13 17:01:09 1muKzjuZ0
>>205
えーと、>>204 のリストの3つ目の要素を使って挿入される文字列を決めるので
そこに "item:" と書けば "item:1" のようなラベルが挿入されるはずです。
少なくとも、うちでは >>204 の設定で動きました。
これでうまくいかないなら理由がわかりません。
217:名無しさん＠お腹いっぱい。
08/01/13 20:10:36 PwrHuM0w0
>>216
何度もありがとうございます。
おそらく3つ目の要素の指定の問題ではなく、
\begin{exe} ... \end{exe}の内側だということが認識されていない気がします。
そのため、その外側の\sectionが認識されて"sec:"が挿入されているのではないかと･･･
すみません。最初に書くべきだったのですが
\begin{exe}というのは、gb4eというパッケージに含まれるマクロなのですが
URLﾘﾝｸ(www.ctan.org)
手掛かりになりますでしょうか。
218:204
08/01/13 20:55:07 lEqTFuUG0
>>217
こちらで不具合が再現できないのでなんとも言えません。
その不具合が再現する状況・コードを教えてもらえますか？
219:名無しさん＠お腹いっぱい。
08/01/13 21:22:42 PwrHuM0w0
>>218
>>204に書いていただいたものをそのままコピペして、.reftexという名前で
.xyzzyと同じフォルダに保存してあります。
\begin{enumerate}
\item \label{
\end
220:名無しさん＠お腹いっぱい。
08/01/13 21:28:28 PwrHuM0w0
すみません>>219は誤送信です。
>>218
>>204に書いていただいたものをそのままコピペして、.reftexという名前で
.xyzzyと同じフォルダに保存してあります。
\begin{enumerate}
\item \label{item:1}
\end{enumerate}
\begin{exe}
\ex \label{sec:節タイトル}
\end{exe}
（つづく）
221:名無しさん＠お腹いっぱい。
08/01/13 21:29:35 PwrHuM0w0
という具合で、exeの場合はsec:が挿入されてしまいます。
（正確には"sec:節タイトル"がデフォルトで、
ミニバッファで編集してから挿入するようになる。）
挿入自体はできるので、おそらくRefTeX自体は動いていると思います。
また.reftexに適当な文字列を入れると.texファイルを開くときにエラーがでるので
.reftexもちゃんと読み込んではいると思います。
222:204
08/01/13 23:39:32 zKiqkse20
うーん、その状況だとうまく行かない理由が見当たらないです。
とりあえず次のことを確認してもらえますか？
\begin{exe}
\ex <- ここにカーソルを置いて、ミニバッファで以下のものを評価
\end{exe}
1. (reftex::reftex-label-location) -> "exe" となるかどうか。
2. 1. で "exe" とならなかった場合、
(msgbox "~S" reftex::*reftex-label-env-alist*) で "exe" が含まれているか。
223:名無しさん＠お腹いっぱい。
08/01/14 00:30:42 ywcCAoOK0
>>222
すみません。ひどく基本的な質問だろうと思うのですが
ミニバッファで評価というのは、どのような操作をすればいいのでしょうか。
ミニバッファで直接lispの式を実行することができるのですか？
とりあえず*scratch*で
(defun foo ()
(interactive)
(insert (reftex::reftex-label-location)))
として、1.を実行（M-x foo）してみたところ、やはり"section"でした。
2.は*scratch*で関数を定義しようとした時点で
"変数が定義されていません: reftex::*reftex-label-env-alist*"
となって実行できませんでした。
224:名無しさん＠お腹いっぱい。
08/01/14 01:06:24 fEoXo9O70
>>223
ミニバッファで評価するためには，ESCを2回押して貼り付けてエンター
225:名無しさん＠お腹いっぱい。
08/01/14 01:39:02 bp5MmNk30
>>223
*scratch*でやっても基本的には同じなので、どちらでも良いんだよ。
(reftex::reftex-label-location)
(msgbox "~S" reftex::*reftex-label-env-alist*)
この二つを*scratch*に貼り付けて
それぞれの行末でC-jすれば同じようなもの。
226:名無しさん＠お腹いっぱい。
08/01/14 01:54:02 ywcCAoOK0
>>224
ありがとうございます。助かります。
1. "section"
2. "変数が定義されていません: reftex::*reftex-label-env-alist*"
でした。何かreftexの設定をし忘れているのでしょうか。
reftexはnetinstallerで以下のサイトからインストールしたものです。
URLﾘﾝｸ(f55.aaa.livedoor.jp)
.xyzzyには以下のように記述してあります。
;;; RefTeX for xyzzy
(add-hook 'elisp::katex-mode-hook 'turn-on-reftex) ; with KaTeX mode
(autoload 'turn-on-reftex "reftex/reftex")
227:204
08/01/14 02:54:08 ukzw8aNs0
すいません、間違えました。alist じゃなくて list でした。
(msgbox "~S" reftex::*reftex-label-env-list*)
↑のでもう一回試してみて、"exe" が入っているか確認してみてください。
228:204
08/01/14 02:57:06 ukzw8aNs0
追加です。
もしかすると一回 reftex-label を呼び出した後でないとダメかもしれません。
一旦ラベルの挿入をしてから >>227 を試してください。
229:名無しさん＠お腹いっぱい。
08/01/14 12:48:35 ywcCAoOK0
>>228
返信遅くなってすみません。
今日PCを起動して、もう一度実行したらうまく動きました。
結局、原因はよくわからなかったのですが、
おそらく.reftexの設定が間違えていたorちゃんと反映されていなかった
のだろうと思います。
丁寧に教えていただいてありがとうございました。
本当に助かりました。
230:名無しさん＠お腹いっぱい。
08/01/18 10:07:55 Ftkj5J5V0
２画面ファイラについてお聞きします。
同じディレクトリ内でディレクトリコピー（名前を変えて）は出来ないのでしょうか？
左右同じディレクトリを表示しておいてディレクトリ選択して "C" をすると
『ディレクトリはまだできてない』と言われるんですが・・・
新規ディレクトリを作成してから中身を全部コピーは出来るんですけどやや面倒で。
231:名無しさん＠お腹いっぱい。
08/01/20 00:29:50 X41jUVF+0
>>184
遅レスですが参考になりました。
簡単にできてよいですね。
>>185
ファイルメニューに追加のしかたキボン！！
wikiのtipsにも反映しておきました。
tips/エンコーディングを指定して開きなおす方法 - XyzzyWiki
URLﾘﾝｸ(xyzzy.s53.xrea.com)
232:231
08/01/20 01:51:01 X41jUVF+0
素人なりに >>185 書いてみました。
「ファイル(&F)」→「名前の変更（&R）」に追加する方法がわからねえ orz
#'(lambda () (interactive) (revert-buffer *encoding-utf8n*) が冗長。
encoding-menu 内にdefun したけど関数内って言われた・・・
あと、(interactive)かかないと動かないのがわからん
修正頼む・・・
(defun encoding-menu ()
(setq *encoding-menu-item*
(define-popup-menu
(:item nil "utf-8(&U)" #'(lambda () (interactive) (revert-buffer *encoding-utf8n*)))
(:item nil "sjis(&S)" #'(lambda () (interactive) (revert-buffer *encoding-sjis*)))
(:item nil "euc-jp(&E)" #'(lambda () (interactive) (revert-buffer *encoding-euc-jp*)))
(:item nil "auto(&A)" #'(lambda () (interactive) (revert-buffer *encoding-auto*)))
:sep
(:item nil "詳細指定(&)" #'(lambda (encoding)
(interactive "zEncoding: ")
(revert-buffer encoding)))
))
(insert-popup-menu *app-menu* (get-menu-position *app-menu* 'ed::file)
*encoding-menu-item* "エンコーディング指定して再読み込み(&G)"))
(add-hook '*init-app-menus-hook* #'encoding-menu)
233:名無しさん＠お腹いっぱい。
08/01/20 09:50:04 Tic01x4c0
>>232
> 「ファイル(&F)」→「名前の変更（&R）」に追加する方法がわからねえ orz
(defun encoding-menu ()
(setq *encoding-menu-item*
(define-popup-menu
(:item nil "utf-8(&U)" #'(lambda () (interactive) (revert-buffer *encoding-utf8n*)))
(:item nil "sjis(&S)" #'(lambda () (interactive) (revert-buffer *encoding-sjis*)))
(:item nil "euc-jp(&E)" #'(lambda () (interactive) (revert-buffer *encoding-euc-jp*)))
(:item nil "auto(&A)" #'(lambda () (interactive) (revert-buffer *encoding-auto*)))
:sep
(:item nil "詳細指定(&_)" #'(lambda (encoding) (interactive "zEncoding: ")(revert-buffer encoding)))))
(insert-popup-menu (get-menu *app-menu* 'ed::file)
(1- (get-menu-position (get-menu *app-menu* 'ed::file) :above-session))
*encoding-menu-item*
"エンコーディング指定して再読み込み(&G)"))
(add-hook '*init-app-menus-hook* #'encoding-menu)
> #'(lambda () (interactive) (revert-buffer *encoding-utf8n*) が冗長。
別に冗長じゃないよ。
> encoding-menu 内にdefun したけど関数内って言われた・・・
Schemeじゃないし。
> あと、(interactive)かかないと動かないのがわからん
メニューから実行できるのはコマンドのみという仕様。
234:185
08/01/20 22:20:56 wiEGPNw80
URLﾘﾝｸ(xyzzy.s53.xrea.com)
に張っておきました。
235:名無しさん＠お腹いっぱい。
08/01/21 00:02:53 W+lsBODd0
> #'(lambda () (interactive) (revert-buffer *encoding-utf8n*) が冗長。
こういう書き方もあることはある。あんまりセンスいいとも思わないけど……
(macrolet ((m (v) `#'(lambda () (interactive) (revert-buffer ,v))))
(define-popup-menu
(:item nil "utf-8(&U)" (m *encoding-utf8n*))
(:item nil "sjis(&S)" (m *encoding-sjis*))
...))
236:名無しさん＠お腹いっぱい。
08/01/21 01:50:08 h60hMPkt0
>>235
なぜわざわざmacroにするの？
237:231
08/01/21 01:53:15 MSzVuBGQ0
うはｗｗ即レスありがとう
>>233
サブメニューに追加するにはそうすればいいのか
:above-sessionも気付かなかった。lisp/app-menu.l みたら載ってました。
> Schemeじゃないし。
Xyzzy Lispには関数内関数ないのか orz てか、Schemeにはあるのか・・・
> (interactive)
了解しました。ヘルプに対話型？と書いてあったからわからんかったのですが、
メニューからの場合は、コマンドとして設定しないといけないんですね。
>>234
まとめられるんですね。
使わせていただきます
>>235
あー、マクロ使う手もあるんすね。
238:名無しさん＠お腹いっぱい。
08/01/21 02:26:05 oYrRmVW10
>>237
>> Schemeじゃないし。
>Xyzzy Lispには関数内関数ないのか orz てか、Schemeにはあるのか・・・
ないんじゃなくて、それ用の記法があるということ。
flet とか labels がそれに該当する。
239:名無しさん＠お腹いっぱい。
08/01/21 21:59:27 pfA4+zT60
>>236
他にいい方法思いつかなかっただけ。
よく見たら渡してるのが定数だから flet でもできたかな。
240:名無しさん＠お腹いっぱい。
08/01/22 00:13:39 dw9niiM60
教えて下さい。
文字を選択しておいて、たとえば『国家』という二文字を選択しておいて
Shift-F7を押すと『￥ｒｕｂｙ｛国家｝｛ ｝』となるようにするには
どのようなのを書いたらよいでしょうか？
(HTMLの<a>～</a>のように選択文字列をはさんで、ある文字列を追加する）
241:名無しさん＠お腹いっぱい。
08/01/22 01:13:18 EE4jzfJx0
>>240
こんな感じ？
(defvar *insert-parenthesis-list* nil)
(setq *insert-parenthesis-list*
`(("foo(&F)" "<a>" "</a>")
("bar(&B)" "￥ｒｕｂｙ｛" "｝｛ ｝")
))
(defun insert-parenthesis-1 (from to head tail)
(goto-char from)
(insert head)
(goto-char (+ to (length head)))
(insert tail))
(defun insert-parenthesis ()
(interactive)
(and (pre-selection-p)
(consp *insert-parenthesis-list*)
(let ((from (selection-mark))
(to (selection-point))
(menu (create-popup-menu)))
(when (> from to)
(rotatef from to))
(dolist (x *insert-parenthesis-list*)
(let* ((head (second x))
(tail (third x))
(menu-item (concat head " : " tail "\t" (first x))))
(add-menu-item menu nil menu-item
#'(lambda ()
(interactive)
(insert-parenthesis-1 from to head tail)))))
(track-popup-menu menu))))
242:名無しさん＠お腹いっぱい。
08/01/22 01:25:32 qllziFmi0
>>240
shortinput
URLﾘﾝｸ(www1.bbiq.jp)
243:240
08/01/22 01:57:53 dw9niiM60
>>241
すごい！！ ばっちりです。
自分xyzzyをTeXで使っているのですが、これでパワーアップです。
>>242
ありがとうございます。
勉強させていただきます。
ほんとうにありがとうございます。感謝、感謝！です。 m(_ _)m
244:名無しさん＠お腹いっぱい。
08/01/22 02:22:12 20mz+V6l0
>>242のサイトをネットインストーラに登録しようと思って
wikiの↓のコメントの挿入のとこから投稿したんですけど、反映されません。
NetInstaller/配布パッケージ一覧 - XyzzyWiki
URLﾘﾝｸ(xyzzy.s53.xrea.com)
URLﾘﾝｸ(www1.bbiq.jp)
245:名無しさん＠お腹いっぱい。
08/01/22 16:57:39 6NoYtEeH0
>>241
横からもらったぁ！感謝！
246:名無しさん＠お腹いっぱい。
08/01/22 18:41:43 VkTxoaAo0
今はなき「xyzzy でタグ打っている香具師」で似たようなの見たなぁ～
247:名無しさん＠お腹いっぱい。
08/01/22 19:19:03 EE4jzfJx0
>>246
そうなの？
>>240を見てから適当に書いたんだが．．
大したコードでもないので、誰が書いてもそんなに変わらないんじゃないかな。
248:名無しさん＠お腹いっぱい。
08/01/22 19:31:18 EE4jzfJx0
今ちょっと見てきたが、quote-region-by-tagのことかな。
確かに似ているね。
shortinputもあるしわざわざ書くこともなかったな．．
249:名無しさん＠お腹いっぱい。
08/01/22 19:33:39 eht0uDFG0
>>243
TeXならKaTeXの力を借りてkatexhks.lに↓を書き込むのは如何でしょうか．たぶんうまく動くはずです．
(defun KaTeX--ruby (&optional argp)
(cond
((equal 1 argp) (read-string "Kanji: "))
((equal 2 argp) (read-string "Yomi: " :default (rewind-ime-composition)))))
(defun KaTeX-insert-ruby-region (beg end)
(interactive "r")
(KaTeX-insert-braces-region beg end "\\ruby{" (concat "}{" (read-string "Yomi: ") "}")))
(define-key *KaTeX-mode-map* #\S-F7 'KaTeX-insert-ruby-region)
文字列を与えたときに，それの変換前の状態を返すやり方がわからなかったので，
下の関数ではYomi: のデフォルト値がないです．
rewind-ime-composition だと（imeを通して）直前に入力した文字列の変換前のが出てきちゃうのです．
教えてえらい人．
250:名無しさん＠お腹いっぱい。
08/01/23 05:18:21 8OzWD4Y50
>>238
flet で囲んだところでだけ使えるのか・・・ちょいと面倒ですな
labels はリファレンスになかた
251:名無しさん＠お腹いっぱい。
08/01/23 05:49:26 RxI6lXpQ0
URLﾘﾝｸ(user.ecc.u-tokyo.ac.jp)
下から1/3のあたりにlabels
252:名無しさん＠お腹いっぱい。
08/01/23 12:42:00 +vLN5vfR0
xyzzy で IMAP のメールを読むことは可能でしょうか？
253:名無しさん＠お腹いっぱい。
08/01/23 22:23:21 8OzWD4Y50
HTML+-modeの色分けがされないのですが、
問題あるかどこを見たらいいんでしょう？
HTMLを読ませた時に、画面下に(HTML+;HTML Support) と出ており、
また、/ などでタグ閉じなどもできる点からメジャーモードとして、作動しているようです。
色わけされない状況ですが、
全ての文字が、「共通設定」の「フォント」タブの「文字色」（白色にしてます）の色になります。
254:253
08/01/23 22:27:40 8OzWD4Y50
自己解決しますた
他の、xml-modeも Delphi-modeも 色つかなくて、なぜか bat-modeだけ色ついてて
変だと思ってたんですが、
「共通設定」の「表示」タブの「キーワードに色をつける」のチェックがはずれていました。
チェックしたら色つきました！！
いつのまに、いじったのかｗ
あふぉ・・・
255:名無しさん＠お腹いっぱい。
08/01/24 13:47:07 qSZLmeUx0
ファイルを開いたときに
文字コードの誤判定があるので
C-u M-x revert-buffer
として euc-jp と入力しています。
これを例えば M-x buffer-euc-jp に
割り当てるにはどうしたらいいでしょうか。
256:名無しさん＠お腹いっぱい。
08/01/24 14:14:58 EjwnFr+b0
revert-buffer-with-coding-system と言うそのままの名前のがあるから、
それラップすればいいんじゃない?
257:名無しさん＠お腹いっぱい。
08/01/24 17:00:11 eNsLfIXk0
設定のことなのですけど、
画面をスクロールしたときカーソル行もそれにあわせてスクロール
するようにしたいのですが、どうしたらよいのでしょうか？
258:名無しさん＠お腹いっぱい。
08/01/24 17:04:13 wuJ5VBz10
kuso gizune
259:名無しさん＠お腹いっぱい。
08/01/25 23:52:12 t7UL5v+90
xyzzyで色々やってみようと思い立ったものの・・・
260:名無しさん＠お腹いっぱい。
08/01/25 23:56:12 v7OFsorw0
どうした？
261:名無しさん＠お腹いっぱい。
08/01/26 04:08:44 2xBnPmR40
combine使えないのね
262:名無しさん＠お腹いっぱい。
08/01/26 04:30:20 k01ntuWz0
適当に作れば？
append使ったりしてやれば手間もなさそうに思うけど。
263:名無しさん＠お腹いっぱい。
08/01/26 17:02:55 nptdTNl90
>257
スクロール位置が気になったらC-lを押しとけ。
264:名無しさん＠お腹いっぱい。
08/01/26 17:55:11 xqCdGihk0
>>257
スクロールってマウスのホイールスクロール？キー入力？
前者なら、昔 2ch に張ったけどな。もう細かいことは忘れた。
265:名無しさん＠お腹いっぱい。
08/01/28 15:07:31 bydSav3Y0
そうです。マウスのホイールスクロールです。
いまはその行をマークして戻ってるんですけど。
266:名無しさん＠お腹いっぱい。
08/01/28 19:56:54 h0NouF1x0
ホイールと一緒にスクロールしてほしい、ということなら俺もやり方知りたい
カーソル位置にもどるというだけなら、>>263の Ctrl+Lでできるみたいだ
267:名無しさん＠お腹いっぱい。
08/01/29 00:48:51 6r+8dzZH0
>>265-266
とりあえず、画面内にカーソルが無いといけないという
xyzzy の仕様があるから、できても１画面までしか実現できないよ。
それでもいいの？
268:名無しさん＠お腹いっぱい。
08/01/29 03:49:15 LALrILBL0
画面をマウスでスクロールした時に
カーソルの位置を移動して欲しくないってこと？
269:266
08/01/29 08:16:38 oST7Vmwp0
ごめん、勘違いでした。
今見たら、ホイールと一緒にカーソルついてくるね・・・
270:名無しさん＠お腹いっぱい。
08/01/29 19:50:49 yCQ1c01C0
たとえば、いま５０行にカーソルがあると
マウスホイールや上下スクロールバーで画面をスクロールしても
カーソルは５０行にいてほしい、ということだよね
サクラとかEmとかみたいに
271:名無しさん＠お腹いっぱい。
08/01/29 22:39:54 LALrILBL0
まずは、マウスを窓から投げ捨てろ。
272:名無しさん＠お腹いっぱい。
08/02/01 08:10:48 USinHq/30
outline-tree2のツリービューのツールチップなんですが、
表示のタイミングや位置を調整するのは無理なんでしょうか？
マウスカーソル直下をホイールでスクロールできるソフトを使っていると、
ツールチップに入力を取られスクロールしないことがあって困っています。
273:名無しさん＠お腹いっぱい。
08/02/01 19:31:26 zjhDDFg+0
xyzzyを起動してからしばらく使っていると@を打とうとして[が出てきてしまったり
右Altが効かなくなったりという症状が出てよく再起動するんですが
これはなぜなんでしょうか？
.xyzzyかsiteinit.lにまずいところがある？
274:名無しさん＠お腹いっぱい。
08/02/01 22:01:42 JzRxiUZS0
>>273
.xyzzyとsiteinit.l を読み込まないでも再現するか確認
再現しないなら再現するまでファイルの半分ずつ程度読み込んで確認
275:名無しさん＠お腹いっぱい。
08/02/01 23:01:11 0EiwKQ3C0
>>272
> マウスカーソル直下をホイールでスクロールできるソフトを使っていると、
> ツールチップに入力を取られスクロールしないことがあって困っています。
俺は TTBase で使えるのを使っているけど、ツールチップ上でかつ異なる
ウィンドウ上でも問題なくスクロールできる。ドライバーが悪いんじゃないの？
>>274
再現するまで時間がかかるようだと、その方法は大変だよ。
すぐに再現すればそれがいいけどね。
んで俺からのアドバイスとしては、以下のを .xyzzy に書いておいて、
URLﾘﾝｸ(white.s151.xrea.com)
現象が起きたときに、
(step '(command-execute "@"))
と入力して、正常時の結果と比較したほうがよいと思う。
276:名無しさん＠お腹いっぱい。
08/02/01 23:34:05 zjhDDFg+0
>>274
>>275
ありがとうございます。
不調が出るまでxyzzyを触り続けてみます。
277:名無しさん＠お腹いっぱい。
08/02/02 01:24:56 QLhespph0
ヒント：オンラインウィルスチェック、スパイウェアチェック
278:名無しさん＠お腹いっぱい。
08/02/02 01:34:18 12/cDF+k0
>>276
> @を打とうとして[が出てきてしまったり
xyzzyの中だけこうなるの？このときにメモ帳とかだと普通に@が出るの？
なんか英語キーボードのキーマップになってるような気がする
キーマップを変更するソフトが入ってて変更するショートカットキーを無意識に押してるとか
279:名無しさん＠お腹いっぱい。
08/02/02 02:16:44 xvCQ/4fs0
>>278
xyzzyの中だけです。メモ帳はわからないけどブラウザでは正常に動くので。
キーマップと言えばXKeymacsを入れてるくらいしか思いつかないけど関係無いかと。
再起動すればまた普通に使えるのでxyzzyが原因かと思ったんですが
そうじゃなかったらスレ違いですいません。
280:名無しさん＠お腹いっぱい。
08/02/02 03:47:12 xvCQ/4fs0
>>278
追記ですが検証してみたところ確かに英語のキーマップになっているみたいです。
#が]のところに近づいて来てperlが書きやすいんですが右Altが無いのがちょっと。
281:名無しさん＠お腹いっぱい。
08/02/02 04:43:39 QLhespph0
XKeymacs知らんけど、アプリごとの設定で xyzzyのときだけ英語キーバインドになっているとか・・・
282:272
08/02/02 09:35:18 KxCafLCj0
スレ違いっぽいですがすみません。
>>275
教えていただいたTTBaseと、プラグインのRedirectWheelGを試してみたところ上手くいったのですが、
xyzzyのテキスト表示部分で１ノッチにつき3行スクロールしてしまいました。
マウスのプロパティのホイールのスクロール量は、1行にしています。
実は、カーソル直下のスクロールなどに自作のAutoHotKeyスクリプトを使っていまして、
RedirectWheelGと同じPostMessageによる実装もして動いていたのですが、
上記の３行スクロールする問題のため、擬似クリックでの実装に切り替えていました。
TTBaseを試して思いついたのですが、xyzzyの時だけツリービューかどうかを判別して
個別対応してみたいと思います。
どうもありがとうございました。
283:名無しさん＠お腹いっぱい。
08/02/02 11:33:43 ReaxwS/A0
選択範囲内の文字数をカウントする方法って現段階でありますか？
あったら教えてください。
284:名無しさん＠お腹いっぱい。
08/02/02 11:37:09 x4ReHyBl0
count-words-region
285:名無しさん＠お腹いっぱい。
08/02/02 11:55:35 aFQKhOrT0
>>283
URLﾘﾝｸ(xyzzy.s53.xrea.com)
286:名無しさん＠お腹いっぱい。
08/02/03 08:47:01 XiD8Xna90
C-& の execute-subprocess を
shell-modeの *eshell* で設定したshell上で動かすことはできないでしょうか？
*shell*は以下のように設定しています。
(setq *eshell* "bash -i")
287:名無しさん＠お腹いっぱい。
08/02/03 17:48:56 iDXz1KED0
>>286
execute-subprocess で使ってるのは *eshell* じゃなくて *shell* だね。
別々の変数なので注意。というわけでこんな設定でどう？
(setq *shell* "bash")
(setq *shell-command-option* "-i")
288:名無しさん＠お腹いっぱい。
08/02/03 20:17:58 XiD8Xna90
>>287
(setq *shell* "bash")
(setq *shell-command-option* "-c")
にすると、複数の引数を解釈してくれないので、
例えば、uname -a がunameと解釈される
hisashim: [xyzzy][Lisp] xyzzy diff on UNC path using Cygwin zsh
URLﾘﾝｸ(hisashim.livejournal.com)
を参考に process.l書き換えたらいけました。
> (si:system-root))))))
>+ (when (string-match (compile-regexp "bash\\|zsh\\(\\.exe\\)?" t) *shell*)
>+ (return-from shell-command-line
>+ (values (format nil "~A ~A '~A'" *shell* *shell-command-option* cmd) dir)))
> (values (format nil "~A ~A ~A" *shell* *shell-command-option* cmd)
> dir))
しかし、bash -c だと、~/.bashrc を読んでくれなくて orz
~/.bashrc で設定した環境変数下(PATHとか)で動かしたかった('A`)
bashスレ行ってくるか・・・
289:名無しさん＠お腹いっぱい。
08/02/03 20:18:38 XiD8Xna90
>>287
お礼を忘れてました、ありがとう。
xyzzy/lisp下読めば大抵わかるんですね。
290:名無しさん＠お腹いっぱい。
08/02/05 01:00:29 KGr1ZUlV0
<ちら裏>
kamail3 で突然メールが表示されなくなってびびった。
.kamail3/config.l を最小元にし、casket, data, メールを
削除してもだめで、マジあせった。
結局 *shell* の値を zsh に変更した事が問題だった。
cmd.exeに戻したら直った。本当によかった。
</ちら裏>
ところで特定のメールアドレスからのメールは常に既読にする
のってどうやって設定するの？ config.l.sample に載っている
まんまだと予想したがうまくいかない。orz
291:名無しさん＠お腹いっぱい。
08/02/07 10:43:31 FAsMFBYF0
multiple-replace を現在開いている全てのバッファに適用
するにはどうすればよろしいでしょうか？
292:名無しさん＠お腹いっぱい。
08/02/07 13:21:15 wXHmQfE90
>>291
余り試してないけどこんな感じかな？上手く動かなかったら適当に直して下さい。
(defvar *multiple-replace-selected-buffer* nil)
(defun perform-multiple-replace (pattern-replacement-list query regexp interactive-p noerror)
(let ((literal (null regexp))
(count 0)
(nodup nil)
(opoint (point))
(not-found t)
(def nil)
(last-match nil)
(last-match-char nil)
(undo-bound (or interactive-p query))
(pattern nil)
(replacement nil)
(point-pattern-list nil)
(point-search nil))
(undo-boundary)
(when interactive-p
(if regexp
(setq *last-multiple-search-replace-regexp-list*
pattern-replacement-list)
(setq *last-multiple-search-replace-string-list*
pattern-replacement-list))
(let ((*multiple-replace-regexp-search* regexp))
(declare (special *multiple-replace-regexp-search*))
(setq *last-multiple-replace-setting* (multiple-replace-make-setting))))
293:続き
08/02/07 13:22:40 wXHmQfE90
(if regexp
(setq pattern-replacement-list
(mapcar #'(lambda (pattern-replacement)
(cons
(if (stringp (car pattern-replacement))
(compile-regexp (car pattern-replacement) *multiple-replace-case-fold-search*)
(car pattern-replacement))
(cdr pattern-replacement)))
pattern-replacement-list)))
(unless query
(begin-wait-cursor))
(loop
(setq point-pattern-list nil)
(save-excursion
(setq search-point (point))
(dolist (pattern (mapcar 'car pattern-replacement-list))
(when (and (or (regexpp pattern) (stringp pattern))
(scan-buffer pattern
:regexp regexp
:no-dup nodup
:last-match (cons last-match last-match-char)
:case-fold *multiple-replace-case-fold-search*
:left-bound *multiple-replace-word-search*
:right-bound *multiple-replace-word-search*))
(push (cons (point) pattern) point-pattern-list))
(goto-char search-point)))
294:続き
08/02/07 13:23:28 wXHmQfE90
(unless point-pattern-list
(if (yes-or-no-p "次のバッファも置換する？")
(progn
(unless *multiple-replace-selected-buffer*
(setq *multiple-replace-selected-buffer* (selected-buffer)))
(next-buffer)
(when (eq *multiple-replace-selected-buffer* (selected-buffer))
(setq *multiple-replace-selected-buffer* nil)
(quit))
(refresh-screen 1)
(perform-multiple-replace pattern-replacement-list query regexp interactive-p noerror))
(progn
(setq *multiple-replace-selected-buffer* nil)
(return))))
(setq pattern (cdar (stable-sort (nreverse point-pattern-list) '< :key 'car)))
(setq replacement (cdr (assoc pattern pattern-replacement-list :test 'equal)))
(scan-buffer pattern
:regexp regexp
:no-dup nodup
:last-match (cons last-match last-match-char)
:case-fold *multiple-replace-case-fold-search*
:left-bound *multiple-replace-word-search*
:right-bound *multiple-replace-word-search*)
295:続き
08/02/07 13:24:26 wXHmQfE90
(if (and (eql (match-beginning 0) (match-end 0))
(eql last-match (match-beginning 0)))
(setq nodup t)
(progn
(setq not-found nil)
(show-match)
(unless (pos-visible-in-window-p (point))
(recenter))
(if query
(progn
(refresh-screen)
(message (if (eq def 'help)
"(y)置換, (n)スキップ, (!)残り全部, (u)アンドゥ, (C-g)中止, (.)中止して戻る"
(format nil "置換する?: ⇒ ~S" replacement)))
(setq def (lookup-keymap *query-replace-map* (read-char *keyboard*) t)))
(setq def 'automatic))
(when (cond ((eq def 'act)
t)
((eq def 'skip)
(setq nodup t)
nil)
((eq def 'automatic)
(setq query nil)
t)
((eq def 'undo)
(and (plusp count)
(undo)
(setq count (1- count)))
(setq nodup nil)
nil)
296:続き
08/02/07 13:25:29 wXHmQfE90
((eq def 'quit-and-back)
(goto-char opoint)
(setq def 'quit)
(return))
((eq def 'quit)
(return))
((eq def 'recenter)
(recenter)
(setq nodup nil)
nil)
((and (consp def)
(eq (car def) 'throw))
(throw (cdr def) count))
(t (setq def 'help)
(setq nodup nil)
nil))
(setq last-match-char (unless (= (match-end 0) (point-min))
(char-before (match-end 0))))
(unless (replace-match replacement :literal literal)
(return))
(setq last-match (point))
(setq nodup (= (match-beginning 0) (match-end 0)))
(when (and undo-bound query)
(undo-boundary))
(setq count (1+ count)))))
(when (eobp)
(return)))
297:続き
08/02/07 13:26:19 wXHmQfE90
(unless query
(end-wait-cursor))
(hide-match)
(unless noerror
(and (eq def 'quit)
(quit))
(and not-found
(error "文字列が見つかりません")))
(when (and interactive-p
(null *executing-macro*))
(message "~d個置換しました" count))
count))
diff にすればよかったな．．．
298:名無しさん＠お腹いっぱい。
08/02/07 13:36:31 wXHmQfE90
>>294の
(refresh-screen 1)
の後ろに
(when *multiple-replace-replace-whole-buffer*
(goto-char (point-min)))
を追加した方がいいかも。
299:名無しさん＠お腹いっぱい。
08/02/07 14:20:16 FAsMFBYF0
>>292
どうもありがとうございます。>>292-298 を multiple-replace.l (20050413)
の該当箇所と置き換えてみましたが、M-x multiple-replace-string だと
現在のバッファのみしか置換されませんねぇ。
multiple-replace.lc は一端削除してあります。
300:名無しさん＠お腹いっぱい。
08/02/07 14:35:25 wXHmQfE90
>>299
再ダンプしてないんじゃないの？
301:名無しさん＠お腹いっぱい。
08/02/07 15:21:39 FAsMFBYF0
>>300
あちゃ～、仰る通りです。すみませんでした。m(_ _)m
302:名無しさん＠お腹いっぱい。
08/02/07 15:52:29 fKcAIYUe0
即興でそんな風に組み上げられるようになりたひ…
303:292
08/02/07 16:07:22 wXHmQfE90
バグがあった。
>>294の
(progn
(setq *multiple-replace-selected-buffer* nil)
(return))))
は
(progn
(when *multiple-replace-selected-buffer*
(setq *multiple-replace-selected-buffer* nil)
(quit))
(return))))
に修正して下さい（文字数のカウントは面倒なのでパス）。
>>302
ほとんどソースのままなんだけどね。
Netinstallerからリファレンスとinfo-modoki-modeなどを入れて後はgrepとかタグジャンプを
使えばある程度は書けるようになると思う。
304:名無しさん＠お腹いっぱい。
08/02/10 15:01:07 Geg9SBWH0
ナイスな補完がしたくて、netinstaller で ac-mode を入れたのですが、
C-nやC-pではなく、カーソルキーで補完項目の選択がしたいと思っています。
そこで、.xyzzyに以下などを書きました
; 選択キー割り当て
(define-key *ac-mode-internal-map* #\Down 'ac-mode-select-next)
(define-key *ac-mode-internal-map* #\Up 'ac-mode-select-prev)
*ac-mode-internal-map* や、ac-mode-select-prev などが、export されておらず、
未定義などと言われたのですが、こういうときは、export するしか方法はないのでしょうか？
（exportして byte-compile し、動作自体は上手くいくのは確認しました）
アップデートとかを考えると、できるだけ元ソースを直接いじりたくないのですが・・・
305:名無しさん＠お腹いっぱい。
08/02/10 15:19:30 0ycF+83t0
>>304
(define-key *ac-mode-internal-map* #\Down 'ed::ac-mode-select-next)
(define-key *ac-mode-internal-map* #\Up 'ed::ac-mode-select-prev)
もしくは、
siteinit.l 内でそれらのシンボルをexportするとか。
306:305
08/02/10 15:21:40 0ycF+83t0
まちがえた。
(define-key ed::*ac-mode-internal-map* #\Down 'ed::ac-mode-select-next)
(define-key ed::*ac-mode-internal-map* #\Up 'ed::ac-mode-select-prev)
307:名無しさん＠お腹いっぱい。
08/02/10 19:35:33 Geg9SBWH0
>>305-306
さんクす
exportしなくても、>>306で動きました。
ed::ってパッケージ名？でしょうか。指定すればいいんですね。
308:174
08/02/10 20:19:04 0J69YBkb0
>>307
editor::の略。
309:名無しさん＠お腹いっぱい。
08/02/10 23:49:13 Geg9SBWH0
以前に、現在のバッファの文字コードを変えられないかと質問した者です。
前に教えていただいた方法では、バッファを再読み込みしてエンコードを変えられました。
ファイルだとうまくいっていたのですが、
ファイルではなく名前付きのバッファだとうまくいきません orz
「ファイル名がありません」と言われてしまいます。
例えば、C-@ や ruby-mode の C-c C-x などの
標準出力や実行したコマンドなどで出力したバッファです。
バッファの内容はそのままにエンコードを切り替える方法ないでしょうか？
前の方法は再読み込み、というところにヒントがあると思うのですが・・・
310:名無しさん＠お腹いっぱい。
08/02/11 00:14:30 8x6C6XBu0
>>309
リファレンスやlispディレクトリ以下のソースコードを参考に自分で書いてみたら？
311:名無しさん＠お腹いっぱい。
08/02/11 00:15:58 7Ad5u+xK0
>>309
選択して
編集→変換→漢字コード→自動判定
とか
312:309
08/02/11 00:23:34 4QznQESt0
(set-buffer-fileio-encoding *encoding-utf8*)
などとやってみたのですが、バッファのステータスバー？の表示はurf-8に変わるのですが、
実際の表示は変わりませんでした。
>>310
みてみてます。
>>311
この操作でとりあえずバッファの内容は、読めるようになるのですが、
次にコマンドを実行したときに、引き継いでくれません orz
出力するときに、sjisにエンコードしないといけないんですかね・・・
逆に言うとsjisしか出力できない？
313:名無しさん＠お腹いっぱい。
08/02/11 00:24:35 8x6C6XBu0
set-buffer-fileio-encodingあたりが参考になるかな。
自分で書いてみるのがlisp覚えるには一番だと思うけどね。
314:名無しさん＠お腹いっぱい。
08/02/11 00:30:12 8x6C6XBu0
おっとかぶった。
じゃあconvert-encoding-to-internal、convert-encoding-from-internalあたりかな。
これもリファレンスにあるけどね。
315:名無しさん＠お腹いっぱい。
08/02/11 00:40:18 4QznQESt0
あああ、なんかわかってきた。
共通設定の文字エンコーディングの判定で「自動判定」から「UTF-8」にしても、
C-&とか、ruby-modeのC-c C-x とかの一時的なバッファは、全部sjisのままでした。
バッファに出力前に、 >>314とか、>>312のようなエンコードの設定を個別にしてやらないといけない？のですかね。
lispごとに個別対応せなあかんのか・・・('A`)
316:名無しさん＠お腹いっぱい。
08/02/11 00:50:18 8x6C6XBu0
よくわからんが
*default-fileio-encoding*とかじゃなくて？
317:名無しさん＠お腹いっぱい。
08/02/11 08:21:18 4QznQESt0
エンコーディングの設定を弄りながら、試しているのですが、
アラビア語ってもしかして xyzzy は対応してないんでしょうか？
IEで表示したアラビア語を UTF-16やUTF-8のバッファに張り付けても、
豆腐になってしまいます
ﾘｧﾙ・ｳﾙ・ｧﾙ・ﾘｹﾙ・館・
?????? ?????
318:名無しさん＠お腹いっぱい。
08/02/11 08:57:40 4QznQESt0
調べましたら、xyzzyはアラビア語は非対応なんすね。
言われてみると確かに右から左だし特殊だもんな・・・。
下のサイト見てたら、UIのコントロール類はUNICODE非対応なんですね。
文字のデータはUNICODE対応なのに、ちょっとびっくり。
「xyzzy」の検索結果 - tsuge development page
URLﾘﾝｸ(d.hatena.ne.jp)
319:名無しさん＠お腹いっぱい。
08/02/11 11:14:00 WV462O5U0
UIのコントロールまでウニコードにしたらwin98やMeで動かなくないか？
320:名無しさん＠お腹いっぱい。
08/02/11 14:15:42 gHRWQnnJ0
98？Me？そんなものは切り捨ててしまえっ
321:名無しさん＠お腹いっぱい。
08/02/11 14:18:24 zm6bzkex0
Cでいう__LINE__みたいなマクロって、xyzzyにある？
322:名無しさん＠お腹いっぱい。
08/02/11 14:44:09 VqxxbeLC0
>>321
なさげ。
toggle-trace-on-error と、バイトコンパイルしないで実行させることで
たいていの場合は十分わかる。
>>318 のリンク先を見てて思いだしたが、xyzzy はシステムフォントで
メニューを表示しているんだよね。それなら、MS ゴシック等で決めうち
されていたほうが、日本語Windows以外で使用する場合も、フォント追加だけ
で済むから、まだましなんだよな。
323:321
08/02/11 15:13:04 zm6bzkex0
>>322
無いのか・・・
じゃ、教えてくれたの使うわ。ども。
324:名無しさん＠お腹いっぱい。
08/02/11 19:51:15 4QznQESt0
まだ、エンコーディング弄ってますｗ
(setq *expected-fileio-encoding* *encoding-utf8n*)
(setq *default-fileio-encoding* *encoding-utf8n*)
(change-fileio-encoding *encoding-utf8n*)
(set-buffer-fileio-encoding *encoding-utf8n*)
これらの違いがいまいちわからないです('A`)
過去ログ検索で同じ用途で使われていたりして、どれを使うべきなのか……
こんな感じであってますか？
*expected-fileio-encoding*
なんぞこれ？
リファレンス未記載
*default-fileio-encoding*
バッファの新規作成時のエンコーディング設定。
change-fileio-encoding
現在のバッファのエンコーディングを変更 。(interactive) で、M-x でも実行可能
リファレンスに載ってなかた。
set-buffer-fileio-encoding
現在 or 指定したバッファのエンコーディング設定を変更。M-xで実行できない
.chm の リファレンス、任意文字列で検索できたらなあ……
encodingとかで検索してどれが何か一通り把握したい。
325:名無しさん＠お腹いっぱい。
08/02/11 20:04:31 8x6C6XBu0
>>324
info-modoki-modeなら全文検索できるよ。
aproposでもできたと思う。
326:名無しさん＠お腹いっぱい。
08/02/11 20:19:44 4QznQESt0
できた！！！１１
C-& や、 ruby-mode のC-c C-xなどで、出力される文字コードを指定する方法
(setq *default-process-encoding* *encoding-euc-jp*)
encoding.lに定義されてた・・・
デフォルトは、*encoding-sjis*になってます
個別の対応コードいらない！！ﾖｶﾀ
みなさん、つきあってくれてありがとうございました。
327:名無しさん＠お腹いっぱい。
08/02/11 21:07:27 4QznQESt0
>>325
ありがとう。
とりあえず、リファレンスの chm を全文検索したかったので、
xy-reference.l の
1132行目を
Full-text search=Yes
に書き換えて、chmをコンパイルしてみました。
上手くいきました。
しかし、なんで、デフォルトは、Full-text search=Noになっているんだろ？？？
328:名無しさん＠お腹いっぱい。
08/02/11 23:12:02 ncxJHqiF0
emacs で (query-replace-highlight t) した時のような効果を
xyzzy で行うことはできますか？
329:名無しさん＠お腹いっぱい。
08/02/11 23:20:03 qAaYVA730
> emacs で (query-replace-highlight t) した時のような効果を
kwsk
330:名無しさん＠お腹いっぱい。
08/02/12 00:41:06 PWVPl84S0
>>329
query-replace-stringすると
ヒットした文字列が順番に選択(?)されて変換するか聞いてきますよね
このときに選択されていない変換候補の文字列もハイライト処理されます
例をあげると下の文字を abc -> aaa でquery-replace-stirng
一つ目のabcの置換を聞かれてる時点で 2個目の abc がハイライトされています
abc def abc
331:名無しさん＠お腹いっぱい。
08/02/12 01:02:51 Izq8RB5W0
multiple-replace.lが更新されてます
332:名無しさん＠お腹いっぱい。
08/02/12 06:01:37 SUwXSJwZ0
>>326を簡単にできるように、>>234のwikiの記事を参考にして
ポップアップメニューで表示できるようにしています。
.xyzzy に以下のコードを書いたのですが、C-c C-e を押しても、C-c eの方が実行されてしまいます。
何が悪いのでしょうか・・・？
; エンコーディング変更ポップアップ と メニューに追加
(defvar *encoding-menu* nil)
(defun encoding-menu (encode-func)
(or *encoding-menu*
(let ((menu (create-popup-menu)))
(mapc #'(lambda (x)
(add-menu-item menu nil (car x)
#'(lambda ()
(interactive)
(funcall encode-func (cdr x)))))
`(("utf-8n \t(&8)" . ,*encoding-utf8n*)
("utf-16 \t(&6)" . ,*encoding-utf16*)
("sjis \t(&S)" . ,*encoding-sjis*)
("auto \t(&A)" . ,*encoding-auto*)
("euc-jp \t(&E)" . ,*encoding-euc-jp*)
;("jis \t(&J)" . ,*encoding-jis*)
))
(add-menu-item menu :select "詳細指定\t(&_)"
#'(lambda (encoding)
(interactive "zEncoding: ")
(funcall encode-func encoding)))
(setq *encoding-menu* menu))))
333:332 つづき
08/02/12 06:02:04 SUwXSJwZ0
; ポップアップ
(defun revert-buffer-encoding-popup2 ()
(interactive)
(track-popup-menu (encoding-menu #'revert-buffer)))
(defun encoding-menu-in-file-autoload ()
(let ((filemenu (get-menu *app-menu* 'ed::file)))
(insert-popup-menu filemenu
(1- (get-menu-position (get-menu *app-menu* 'ed::file) :above-session))
(encoding-menu #'revert-buffer) "Reopen with Encoding (&G)\tC-c e")))
(defun set-default-process-encoding (encoding)
(setq *default-process-encoding* encoding))
(defun process-encoding-popup ()
(interactive)
(track-popup-menu (encoding-menu #'set-default-process-encoding)))
(add-hook '*init-app-menus-hook* 'encoding-menu-in-file-autoload)
; ポップアップのキー設定
(global-set-key '(#\C-c #\e) 'revert-buffer-encoding-popup2)
(global-set-key '(#\C-c #\C-e) 'process-encoding-popup)
----------------------
終わり
334:332 つづき
08/02/12 06:38:55 SUwXSJwZ0
メニュー二ついるのに、 *encoding-menu* しかないから片方できなくて当たり前だ・・・orz
; エンコーディング変更ポップアップ と メニューに追加
(defvar *encoding-menu* nil)
(defvar *process-encoding-menu* nil)
(defun encoding-menu (encoding-menu encode-func)
(or encoding-menu
(let ((menu (create-popup-menu)))
(mapc #'(lambda (x)
(add-menu-item menu nil (car x)
#'(lambda ()
(interactive)
(funcall encode-func (cdr x)))))
`(("utf-8n \t(&8)" . ,*encoding-utf8n*)
("utf-16 \t(&6)" . ,*encoding-utf16*)
("sjis \t(&S)" . ,*encoding-sjis*)
("auto \t(&A)" . ,*encoding-auto*)
("euc-jp \t(&E)" . ,*encoding-euc-jp*)
;("jis \t(&J)" . ,*encoding-jis*)
))
(add-menu-item menu :select "詳細指定\t(&_)"
#'(lambda (encoding)
(interactive "zEncoding: ")
(funcall encode-func encoding)))
(setq encoding-menu menu))))
335:332
08/02/12 06:39:47 SUwXSJwZ0
ミスッタ orz
; エンコーディング変更ポップアップ と メニューに追加
(defvar *encoding-menu* nil)
(defvar *process-encoding-menu* nil)
(defun encoding-menu (encoding-menu encode-func)
(or encoding-menu
(let ((menu (create-popup-menu)))
(mapc #'(lambda (x)
(add-menu-item menu nil (car x)
#'(lambda ()
(interactive)
(funcall encode-func (cdr x)))))
`(("utf-8n \t(&8)" . ,*encoding-utf8n*)
("utf-16 \t(&6)" . ,*encoding-utf16*)
("sjis \t(&S)" . ,*encoding-sjis*)
("auto \t(&A)" . ,*encoding-auto*)
("euc-jp \t(&E)" . ,*encoding-euc-jp*)
;("jis \t(&J)" . ,*encoding-jis*)
))
(add-menu-item menu :select "詳細指定\t(&_)"
#'(lambda (encoding)
(interactive "zEncoding: ")
(funcall encode-func encoding)))
(setq encoding-menu menu))))
336:332
08/02/12 06:40:14 SUwXSJwZ0
; ポップアップ
(defun revert-buffer-encoding-popup2 ()
(interactive)
(track-popup-menu (encoding-menu *encoding-menu* 'revert-buffer)))
(defun encoding-menu-in-file-autoload ()
(let ((filemenu (get-menu *app-menu* 'ed::file)))
(insert-popup-menu filemenu
(1- (get-menu-position (get-menu *app-menu* 'ed::file) :above-session))
(encoding-menu '*encoding-menu* 'revert-buffer)
"Reopen with Encoding (&G)\tC-c e")))
(defun set-default-process-encoding (encoding)
(setq *default-process-encoding* encoding))
(defun process-encoding-popup ()
(interactive)
(track-popup-menu (encoding-menu *process-encoding-menu* 'set-default-process-encoding)))
(add-hook '*init-app-menus-hook* 'encoding-menu-in-file-autoload)
; ポップアップのキー設定
(global-set-key '(#\C-c #\e) 'revert-buffer-encoding-popup2)
(global-set-key '(#\C-c #\C-e) 'process-encoding-popup)
----------------------------
終わり
337:332
08/02/12 06:59:15 SUwXSJwZ0
途中ミスってました。気づいたら、xyzzyのメニューがなくなっててびっくりした
何度も吸いません
> (defun encoding-menu-in-file-autoload ()
> (let ((filemenu (get-menu *app-menu* 'ed::file)))
> (insert-popup-menu filemenu
> (1- (get-menu-position (get-menu *app-menu* 'ed::file) :above-session))
> (encoding-menu '*encoding-menu* 'revert-buffer)
> "Reopen with Encoding (&G)\tC-c e")))
(defun encoding-menu-in-file-autoload ()
(let ((filemenu (get-menu *app-menu* 'ed::file)))
(insert-popup-menu filemenu
(1- (get-menu-position (get-menu *app-menu* 'ed::file) :above-session))
(encoding-menu *encoding-menu* 'revert-buffer)
"Reopen with Encoding (&G)\tC-c e")))
338:名無しさん＠お腹いっぱい。
08/02/12 08:42:10 v6FfctgN0
>>337
*encoding-menu*がnilのままなんじゃない？
toggle-trace-on-errorや途中に(msgbox "~A" 変数名)みたいなのを入れて、どこがバグってる
のか調べてみるといいよ。
339:名無しさん＠お腹いっぱい。
08/02/12 08:45:23 v6FfctgN0
>>330
関数perform-replaceの途中にでも変数patternをハイライトするような処理を書けばいいと思う。
scan-bufferで検索してset-text-attributeで色を付けたり、regexp-keyword-listを使ったりすれば
いいんじゃないかな。
340:332
08/02/12 10:47:21 SUwXSJwZ0
>>338
>>335-226 ＋ >>337の修正で一応期待の動作をしているようでした。
すいません。誤解を与えてしまいました。
341:名無しさん＠お腹いっぱい。
08/02/12 11:18:47 v6FfctgN0
>>340
あれ、>>335-336 ＋ >>337の修正でもメニューが消えるような気がするけど。
まあ、そちらで動くならいいんじゃないですか。
342:名無しさん＠お腹いっぱい。
08/02/12 11:45:57 v6FfctgN0
ああ、全角スペースがあるせいか．．．失礼。
字下げは半角空白を＆nbsp;に（一つおきに）変換するといいらしいですね。
343:名無しさん＠お腹いっぱい。
08/02/12 21:12:50 8gfYZCME0
>>324
>*expected-fileio-encoding*
>なんぞこれ？
insert-file-contentsでファイルを挿入する時の文字コードを指定できるっぽいので使ってマス
（find-file-internal()→find-file-readin()の流れより推測）
344:332
08/02/13 02:29:19 +OZov14y0
>>342
nbsp;すかー。今度使ってみる
>>343
確認しました。確かに、inser-fileなどのエンコーディングに使われてますね
345:名無しさん＠お腹いっぱい。
08/02/14 19:13:20 jXWgpAyH0
ぐはっ、pwの復号鍵また忘れたのかよ、俺OTL
ってか、おかしいな、なんで開けんのかなあ
346:345
08/02/14 19:19:46 jXWgpAyH0
いや、開けた
この間大掛かりな入れ替えやったんで
ccrypt.exeにパスが通ってなかっただけだった
スレ汚しスマソ
347:名無しさん＠お腹いっぱい。
08/02/16 01:22:02 9pj0nuev0
久しぶりに gnugo をやろうかと思ったんだけど、動かん。
だれかhelp
348:名無しさん＠お腹いっぱい。
08/02/16 01:44:25 9pj0nuev0
--mode=emacs が無くなっていた。orz
349:名無しさん＠お腹いっぱい。
08/02/16 10:28:08 Yih2MVn00
そんなのあったんだ
350:名無しさん＠お腹いっぱい。
08/02/16 10:42:07 Yih2MVn00
2ch-modeの追っかけスレ一覧で
「このスレからこのスレまで全部マークする」
あるいは
「この板のスレをマークする」
ってする方法ありませんか。
サーバがてんぽったスレが混じってると更新チェック時
止まったり聞いてきたり煩わしいので
それ以外のスレだけマークしてチェックしたいなーと。
今は m m ↓ の連打のあと m r したりしてやってます。
351:名無しさん＠お腹いっぱい。
08/02/16 18:41:37 pGz4J8zJ0
>>350
ナローイングとキーボードマクロで足りそうな気がするけど
(defun tracking-mark-region (beg end)
(interactive "r")
(save-excursion
(when (< end beg)
(let ((tmp beg))
(setq beg end end tmp)))
(goto-char beg)
(while (< (point) end)
(2ch::tracking-mark-set)
(unless (next-line 1)
(return)))))
352:名無しさん＠お腹いっぱい。
08/02/17 00:36:24 zmOC4M1v0
そうかキーボードマクロという手もあったか…
ありがとうございます。これでどこが落ちても安心です。
できたのを見ると難しくなさそうんだけどなー
353:名無しさん＠お腹いっぱい。
08/02/17 11:48:05 H+EE5hn/0
自分は
(setq *ignore-host-regexp-list-on-track-updating* '("pc11\\.2ch\\.net" "game14\\.2ch\\.net"))
(defun tracking-update-list (&optional ignore-error marked-only)
(interactive)
：
(when (and (not (thread-dat-kako-p (tracking-list-dat track)))
(or (not marked-only)
(board-mark-p i)))
(let (ignore-line-flag
(hostname (tracking-list-host track)))
(dolist (ignore-host-regexp *ignore-host-regexp-list-on-track-updating*)
(when (string-match ignore-host-regexp hostname)
(setq ignore-line-flag t)))
(unless ignore-line-flag
(reverse-line)
(refresh-screen)
：
てな感じで特定のホストを除外してる。
354:名無しさん＠お腹いっぱい。
08/02/19 10:59:52 UJLKPsZQ0
outline-tree2でツリー表示名を判定部の次の行を表示したいんだけど、やり方がわからない…
[ほげ]
ぴよ
とあったら
ツリーで表示したいのは
[ほげ]
でなく、
ぴよ
にしたいんだけど…
355:名無しさん＠お腹いっぱい。
08/02/19 11:52:22 zzbmqgXT0
tips/カレンダーの祝日を最新に
URLﾘﾝｸ(xyzzy.s53.xrea.com)
バイトコンパイルしようとすると、
文字列が終了していません
と言って怒られるのですが、どうしたらいいでしょう？
356:名無しさん＠お腹いっぱい。
08/02/19 12:45:59 MFRQReTw0
文字列を終了させてください
357:名無しさん＠お腹いっぱい。
08/02/19 19:38:42 BsBqGiZQ0
>>355
おそらくコピペした際にゴミでも入ったんだろう。
・新規ファイルを作ってもう一回コピペする。
・それで駄目ならダブルクォートの対応を確認する。
358:名無しさん＠お腹いっぱい。
08/02/19 19:42:41 BsBqGiZQ0
あとファイルのエンコーディングも確認した方がいいかもね。
SJIS以外で保存してると、一見問題なさそうなコードでも
エラーが出る事もあるから。
359:名無しさん＠お腹いっぱい。
08/02/19 20:26:30 FhKRO0sW0
保存せずに×を押して「やっちまーたー」って事が多いのですが、
保存していない場合は閉じようとしても確認するようにできますか？
何か設定を触ってしまったのかな・・・。デフォでこれでしたっけ？
360:名無しさん＠お腹いっぱい。
08/02/19 20:44:32 BsBqGiZQ0
確かデフォでは確認ありの筈。
モードに関係なく確認なしで終了するのけ？
361:名無しさん＠お腹いっぱい。
08/02/19 21:09:31 ranz9ZQX0
>>359
この辺を参考にすれば？
URLﾘﾝｸ(hie.s64.xrea.com)
362:名無しさん＠お腹いっぱい。
08/02/19 22:10:47 5Zru6txd0
>359
もしかして、*scratch* に書いてたりしないよね？
363:359
08/02/19 23:25:22 qo6PTLRt0
>>360-362
皆さんありがとう
アフォでした、scratchに書いていたんですね。
scratchに重要なメモをする癖があったようで・・・。orz
お騒がせしました。
361さんの先を参考にしてscratchの保存確認も常に行うようにしてみますです
364:名無しさん＠お腹いっぱい。
08/02/19 23:37:46 idCZyvKk0
>>363
この３っつ入れとけばかなり幸せになるよ。
URLﾘﾝｸ(hie.s64.xrea.com)
URLﾘﾝｸ(xyzzy.s53.xrea.com)
URLﾘﾝｸ(xyzzy.s53.xrea.com)
＃昔 scratch-plus ってのがnetinstallerにあったんだけど消えてんのか。
365:名無しさん＠お腹いっぱい。
08/02/19 23:58:51 cd+0cuU30
scratch をメモ代わりに使う on xyzzy
URLﾘﾝｸ(womo.nconc.net)
memorandomを使って履歴を取ってる。
366:名無しさん＠お腹いっぱい。
08/02/20 00:13:45 tGVwZhK/0
ども。
>>354
「アウトラインツリー設定」の「正規表現」タブで以下のように指定を。
^\[.*\] *\n\(.*\)
問題なければ適当に正規表現を微調整した後に、
「アウトライン作成関数の生成」でもどうぞ。
367:名無しさん＠お腹いっぱい。
08/02/20 09:42:46 q9R+TuS50
XP から Vista に変更しました。
IE の HTML ソースを開くエディタに xyzzycli.exe を設定しました。
それなのに、すでに開いている xyzzycli で開かず、
もう一つ xyzzy が起動します。
2 つ xyzzycli が開いた状態で、
エクスプローラから何かファイルを開こうとすると
「xyzzyとの通信でエラーが発生しました」というダイアログが出ます。
XP の時は大丈夫だったのですが、
Vista でもうまく使う方法はありませんか。
368:名無しさん＠お腹いっぱい。
08/02/20 09:48:26 k5pitGmK0
VistaだとIEは別ユーザで動作しているような状態になってるんじゃないかね。
369:名無しさん＠お腹いっぱい。
08/02/20 11:18:55 /9zWxSYz0
>366
似たようなことをやっていたんですが、どうやらoutline-treeの使い方が間違っていた模様o....rz
(見出し解析の正規表現のほうでやろうとしていた)
指定された方法で行い、必要なものを追加すると想定したものが作成されました。
ありがとうございました。
370:名無しさん＠お腹いっぱい。
08/02/20 11:37:48 EI87wZg50
>>357
>>358
ありがとうございます。utf-8nで保存していたのが原因でした。
SJISに治したところ無事バイトコンパイルできました。
371:名無しさん＠お腹いっぱい。
08/02/20 11:59:40 q9R+TuS50
>>368
なるほど。
xyzzy の質問ではなく Vista の質問になってしまい恐縮なのですが、
どこで設定できるものなのでしょうか…。
( プロパティなども探したのですがわからなくて )
372:名無しさん＠お腹いっぱい。
08/02/20 18:56:32 4z6nW4tM0
>371
かなり手抜きだがSleipnir使っとけ。
低い権限で動くのはIEだけ。
373:名無しさん＠お腹いっぱい。
08/02/20 22:05:26 q9R+TuS50
>>372
ありがとうございます。
Sleipnir を入れてみました。
軽くていいですねー。
でも同じです…。
IE のソースを開くのに、どのかのサイトで見た
レジストリを変更して xyzzycli にしたのですが、
ほかの Vista ユーザは大丈夫なんでしょうか？
374:名無しさん＠お腹いっぱい。
08/02/21 01:37:35 OvBqmuxY0
ども。
>>369
> (見出し解析の正規表現のほうでやろうとしていた)
これが正しいなんていう使い方はないですが、私はまさにその方法の通り、
その場その場で正規表現を書いて見出し解析の正規表現でアウトラインを
作ってファイルを確認しています。
一定の正規表現を使い続ける場合には、アウトライン作成関数を生成
するのもよいですね。
375:名無しさん＠お腹いっぱい。
08/02/21 12:42:43 Lljx7OvK0
Windows を再起動する度に各 mode の色分けがおかしくなる現象が出ています。
1. html+-mode を使って HTML 編集。
2. Windows 再起動。
3. html+-mode の色が xml-mode の色に。（しかし機能的には html+-mode）
4. Windows 再起動。
5. 今度は css-mode の色が何か他の mode の色に。（しかし機能的には css-mode）
こんなん経験したひといますか。
376:375
08/02/21 17:39:21 Lljx7OvK0
html+-mode.l と siteinit.l バイトコンパイルしなおしたら html+-mode も css-mode も直った。
おさーがせしました。
377:名無しさん＠お腹いっぱい。
08/02/21 23:38:13 l18cwfyj0
>>373
XPにアップグレード。
378:名無しさん＠お腹いっぱい。
08/02/21 23:55:03 W2UeIQDJ0
>373
Vista使ってないからよくわからん。
会社でテスト機に入れたVistaをちょっと触っただけなのでIEのソースを開くのとか試さなかったよ。
UACとか影響してるのかなぁ？
379:名無しさん＠お腹いっぱい。
08/02/21 23:56:06 5OgdfT3L0
2000もあるでよ
380:名無しさん＠お腹いっぱい。
08/02/22 00:19:12 x6dXvwtL0
(dolist (c '(#\C-0 #\C-1 #\C-2 #\C-3 #\C-4 #\C-5 #\C-6 #\C-7 #\C-8 #\C-9))
(global-set-key c 'digit-argument))
これってどういう風に動くんでしょう？
Emacs風キーバインドに近づける、の他のコマンドについてはだいたいわかったのですが。
あとファイル―新規作成に当たるコマンドの名前がわかりません。
調べ方も……。どこを見ればいいのかな……。
381:名無しさん＠お腹いっぱい。
08/02/22 02:29:33 /bbFQVmb0
>>380
(global-set-key #\C-0 'digit-argument)
(global-set-key #\C-1 'digit-argument)
...
(global-set-key #\C-9 'digit-argument)
のように展開されて，
M-2 aの代わりにC-2 aと打てるようになります．
(aを2回入力する)
新規作成は
1. C-x C-fして存在しないファイル名を入力
2. 適当に何か書いて保存
とやるのが普通．
382:名無しさん＠お腹いっぱい。
08/02/22 02:37:21 PACRPcr+0
>>380
ファイル－新規作成のコマンドは new-file。lisp/app-menu.l を見ればわかる。
まあ確かに >>381 のやり方のほうが普通だとは思うけど。
とりあえず何か調べたかったら lisp ディレクトリを grep してみるといいかも。
383:名無しさん＠お腹いっぱい。
08/02/22 09:53:27 h87OB2zF0
>>378
UAC 外したら OK でした！
でも、会社のため UAC 外すと怒られるんです。
UAC となると方法はないものなのでしょうか。
>>377
あー。XP に戻したい…。2000 は勘弁。
384:383
08/02/22 10:07:26 h87OB2zF0
会社でも騒いでいたら原因が分かりました。
「だいな」というファイラを使っているのですが、
「だいな」から xyzzycli を起動するとダメでした。
エクスプローラからなら大丈夫。
だいなも UAC も Vista も捨てられないのが残念。
( 今となっては Sleipnir も )
385:名無しさん＠お腹いっぱい。
08/02/24 20:46:12 npd+fK9m0
>>381-382
ありがとうございます。
あと昇順ソートはEmacs風キーバインドに近づける、の
sort-lines使えば良いんですが、
降順ソートをC-u M-x sort-linesで行うことは可能ですか？
やってみたら普通に昇順にされたんですが、
そもそもC-u M-x って普通のM-x と違うんでしょうか。
386:名無しさん＠お腹いっぱい。
08/02/24 20:49:56 npd+fK9m0
あとできればreverse-regionも欲しいところです……。
387:名無しさん＠お腹いっぱい。
08/02/24 21:55:22 VtaVyXU50
> 降順ソートをC-u M-x sort-linesで行うことは可能ですか？
こんなとか。
(defun sort-lines (start end &optional rev)
(interactive "*r\np")
(filter-region (format nil "sort~@[ /r~]" rev) start end))
> そもそもC-u M-x って普通のM-x と違うんでしょうか。
違います。C-u M-x の方はコマンドに対して引数を渡しています。
詳細は「前置引数」「universal-argument」を調べてください。
388:名無しさん＠お腹いっぱい。
08/02/24 22:20:06 npd+fK9m0
>>387
できました。
ありがとうございます。
あと前置引数調べてみました。
interactive で引数を受け取るようにしてそのままそれを
sortに渡しているようですね。
まだまだ勉強が足りないので詳細はわかりませんが
ありがとうございます。
389:名無しさん＠お腹いっぱい。
08/02/24 22:21:05 psOzRihu0
>>386
(defun emacs-reverse-region (start end)
(interactive "*r")
(let* ((s (save-excursion (goto-char (min start end))
(unless (bolp) (goto-eol) (forward-char 1))
(point)))
(e (save-excursion (goto-char (max start end))
(unless (and (eolp) (not (bolp))) (goto-bol) (backward-char 1))
(point)))
(l (split-string (buffer-substring s e) "\n" t)))
(when (< s e)
(delete-region s e)
(goto-char s)
(insert (format nil "~{~A~^~%~}" (reverse l))))))
390:名無しさん＠お腹いっぱい。
08/02/24 22:42:38 npd+fK9m0
>>389
こちらもできました。
本当にありがとうございます。
ただ、名前をreverse-regionにしようとしたら
そっちは先取りされてるんですね。
M-x ではNo matchなんですが、
これって関数内とかでしか使えないってことでしょうか。
391:名無しさん＠お腹いっぱい。
08/02/24 23:11:24 psOzRihu0
xyzzy の reverse-region は emacs のとは機能が違います。
M-x で呼びたいならこんな感じ。
(defun xyzzy-reverse-region (start end &optional temporary)
(interactive "r\np")
(reverse-region start end temporary))
392:名無しさん＠お腹いっぱい。
08/02/26 16:25:57 eepP80J70
netinstallで入れたmigemo.lとcmigemo1.2の辞書を
そのまま使っているのですが、$*./^を検索すると
\にもマッチするのは仕様ですか。
ttPage-Rというテキストビュア上でmigemo検索した
場合はマッチしないので、もし回避策があれば
教えてください。
393:名無しさん＠お腹いっぱい。
08/02/27 09:20:06 hKxwodO0O
仕様か否かを知りたいのであれば、作者の方に確認してください。
394:名無しさん＠お腹いっぱい。
08/02/28 22:14:44 gFh4mflN0
すいません。
超絶基本的なことを質問させてください。
xyzzyってそもそもどのように使うのですか（汗）
入門Common Lispという本を買ってLispの勉強をしてまして
scratchでlispプログラムを書いて実行できるということは
わかるのですが、それがどのように生産性の高さに結びつくのかが
わかりません。
そもそもサクラからしてまともに使えていないので、それを使いこなせる
レベルになってから手を出すべきだったのかもしれませんが・・・。
395:名無しさん＠お腹いっぱい。
08/02/28 22:28:10 BHbe348X0
や、エディタをどう使うかって言われてもなぁ。
私はコーディング、メモ、あと2ch-mode、calc、くらいしか使ってないな。
あ、あとgrep/gresreg。
あれなんか用途の半分以上エディタの範疇じゃないよ？
lispは一応なんとかなるがちょっと操作を便利にするためぐらいしか触らないし。
396:名無しさん＠お腹いっぱい。
08/02/28 22:52:54 Ns1ZQC5Q0
>>394
lispでまともなプログラム書けるまでROMれ
397:名無しさん＠お腹いっぱい。
08/02/28 23:00:03 llK31uE50
いきなり進路を相談されても困る
そもそもどうしてLispの勉強をしているのか
398:名無しさん＠お腹いっぱい。
08/02/28 23:22:42 gFh4mflN0
すいません。
自己解決しました。
疑問だったのは
癖あるし、普通に他のテキストエディタを使うよりもいい点はどこにあるか？
自分で機能拡張できると言われてるけどどうやってするのだ？
ということでした。
そしてそれは、もう一度、一番最初のスレを読み返して
試しに、以下のサイトから、
URLﾘﾝｸ(www1.odn.ne.jp)
html+-mode.lをダウンロードしてきて説明読んだら疑問が氷解しました。
xyzzy/* フォルダの下に作成した .l ファイルを置いたらいいのですね。
>>396
そうします。
いや本当にお騒がせしました。
>>397
lispは凄い。emacs,xyzzyが最強という話を聞いて興味を持って
勉強を始めました。
必要に迫られてと言う訳ではありません。
399:名無しさん＠お腹いっぱい。
08/02/28 23:44:36 dHFjm/an0
Lispスレでも覗いてみたら？
ｽﾚﾘﾝｸ(tech板)
ｽﾚﾘﾝｸ(tech板)
400:名無しさん＠お腹いっぱい。
08/02/28 23:59:05 AQ3PrYSi0
俺はほぼ単にテキストエディタとして使ってるなあ。
ウェブサイト巡回も2ch閲覧もコマンドラインも電卓も他のソフトを使ってる。
それらが全部xyzzyの操作方法と機能でできると人によっては便利なんだよね。たぶん。
統合環境というのか。（全部と言わずとも、いくつかの機能が一緒になってるだけでも）
自分の場合は、テキストエディタとしてはxyzzyが（あんまり機能は使ってないけど）とっても
好きなんだが、他の機能は他のソフトでやった方がよい感じ。まあそういう人もいるさ。
401:名無しさん＠お腹いっぱい。
08/02/29 00:11:56 aARFZ9g00
C-x # が好き。これ覚えてからフィルタたくさん書くようになったよ
まだ Lisp じゃさっと書けないから Ruby か Python なんだけど・・・
402:名無しさん＠お腹いっぱい。
08/02/29 02:20:40 78mgGwNg0
>>398
見た感じlispがとか言うのは、まだ早すぎる感じなので
まずWikiを読んだらいいよ。
403:名無しさん＠お腹いっぱい。
08/02/29 05:05:34 juO4T5j80
>>401
>filter-buffer
こんなものがあったとは・・・
404:名無しさん＠お腹いっぱい。
08/02/29 23:15:09 5q7ii9K50
ここみたいに .xyzzy を公開しているサイトを教えてください＞＜
URLﾘﾝｸ(www.m.cs.osakafu-u.ac.jp)
405:名無しさん＠お腹いっぱい。
08/03/01 17:41:23 zjXYwR3U0
xyzzyでgtagsを使ってますが、フォルダにスペースがあったり、フォルダ名が○○ソースだと
うまくダグファイルが生成されません。これは仕様と思って諦めなのでしょうか？
あと、xyzzyでソースを作成して開発している人に聞きたいのですが、
ソースコードチェッカって使ってますか？
今、フリーのチェッカがないか探しているけど、なかなか見つかりません。
（splintとか言うのがあるらしいですが・・・）
なにか、よいフリーのチェッカを知っていたら教えてください。
406:名無しさん＠お腹いっぱい。
08/03/01 19:48:50 lmktrNRf0
xyzzy にgiveって書いてその上でC-c i で311行目
407:名無しさん＠お腹いっぱい。
08/03/01 23:21:07 cx2S2Zqb0
>>406
勉強になりました。
408:名無しさん＠お腹いっぱい。
08/03/02 00:10:44 cswo/H/N0
>>405
> xyzzyでgtagsを使ってますが、フォルダにスペースがあったり、フォルダ名が○○ソースだと
> うまくダグファイルが生成されません。これは仕様と思って諦めなのでしょうか？
globalのマニュアルに今の仕様じゃスペースを含むファイルは解析されないって書いてあるだろ。
マニュアルくらい読んでから質問しろ。
409:名無しさん＠お腹いっぱい。
08/03/02 00:59:15 VcRj5E1h0
xyzzyに折りたたみ機能と列カーソルをつけるとしたら、
ソースを改造してコンパイルしないと実現できないのでしょうか？
410:名無しさん＠お腹いっぱい。
08/03/02 01:17:23 X9P/WsGw0
outline-tree2 でアウトラインツリーのウインドウに
キーボードでカーソルを移動する方法ってあります？
いつもマウスであのウインドウを選択してるんですが……。
411:名無しさん＠お腹いっぱい。
08/03/02 01:39:13 UNjpDW7p0
つ treeview::treeview-focus-treeview
412:名無しさん＠お腹いっぱい。
08/03/02 06:26:39 OwxrHjMC0
>>409
絶対に無理かというとlispでも出来るかもしれないけど、
例えば、折り畳みはundoが問題なので、lispで書いたら
undo までlispで書かないと駄目になってしまいそうで、かなり大変だと思う。
413:名無しさん＠お腹いっぱい。
08/03/02 07:22:18 YCGjt/zL0
>>412
xyzzyPart13 >>766,768,772みたいな感じにすればundoもできると思う。
>>409
励まし合え9 >>702で一応できているね。バイト数を計算すれば2バイト文字を含んでもいけるんじゃないかな。
414:名無しさん＠お腹いっぱい。
08/03/02 07:39:40 YCGjt/zL0
今のバッファはそのままにして、もう一つバッファを作ってそこにアウトラインを展開みたいに
すれば折りたたみもできると思うね。
列カーソルはsilogのparen.lみたいにすれば色情報の保持もできると思う。
415:名無しさん＠お腹いっぱい。
08/03/02 07:50:30 OwxrHjMC0
>>413
part13,766は誰か実装したりしてるのかな？
416:名無しさん＠お腹いっぱい。
08/03/02 09:31:27 mpGRCNc90
使い勝手は秀丸エディタとどっちが上？あっちは折りたたみ機能が魅力だが
417:名無しさん＠お腹いっぱい。
08/03/02 10:04:37 OwxrHjMC0
>>416
エディタとしてはxyzzyは最高の部類だけど
使い勝手に関してはxyzzyは最低の部類だよ。
導入は簡単だけど使いこなすには
慣れやカスタマイズの敷居が高い。
lisp書ける人には使い勝手は良いと思うけど。
418:名無しさん＠お腹いっぱい。
08/03/02 11:16:56 SvdH6x7e0
折りたたみ機能に魅力を感じるなら秀丸使うといいんでない
この変態キーバインドが染みついてる人にはxyzzyもアリだが
419:名無しさん＠お腹いっぱい。
08/03/02 11:59:50 YCGjt/zL0
欲しい機能は自分で作ればいいんじゃない？
折り畳みもやれば実装できると思うよ。
winapiも使えるんだからlispだけでも大抵のことはできると思うけどね。
キーバインドは自由に変えられるだろ？
420:名無しさん＠お腹いっぱい。
08/03/02 18:59:52 JAckk9tN0
秀丸でJavaScriptのアウトライン解析する定義ファイル - てっく煮ブログ
URLﾘﾝｸ(d.hatena.ne.jp)
xyzzyでこのようなことをやりたいのですが、どうすればできるでしょうか？
421:名無しさん＠お腹いっぱい。
08/03/02 19:21:47 Bfg6doDe0
>>420
質問文からは、知ってる情報を小出しにしているか、
まったく自分で調べようとしてないな。あんたには無理だから、
秀丸使ったほうがいいんじゃないの。
とりあえず outline-tree2 をネットインストーラから入れて、
URLﾘﾝｸ(ohkubo.s53.xrea.com)
のフラッシュデモで勉強しとけ。
422:名無しさん＠お腹いっぱい。
08/03/02 20:30:45 mpGRCNc90
折りたたみで見たいときは秀丸。それ以外はxyzzyって使い分けてもいい？
423:名無しさん＠お腹いっぱい。
08/03/02 20:46:37 Gx3FWlmr0
急にレベルの低い話で申し訳ないのですけれど
メモ帳なんかのC-aでの全選択はxyzzyではどのようにやるのでしょうか？
424:名無しさん＠お腹いっぱい。
08/03/02 20:51:34 Y9IeB3we0
M-x mark-whole-buffer
425:名無しさん＠お腹いっぱい。
08/03/02 21:11:24 eyc75HfI0
セレクションにするなら
右クリック→全てを選択 または Apps a
426:名無しさん＠お腹いっぱい。
08/03/02 21:24:07 rHGZazex0
もしくはマウスで左クィンティプルクリック
427:名無しさん＠お腹いっぱい。
08/03/02 21:50:47 VOU6abEj0
>423
(global-set-key #\C-a 'selection-whole-buffer)
428:名無しさん＠お腹いっぱい。
08/03/03 05:52:10 aVHCDWr/0
Emacs風ならC-x h とかに割り当てればいい
429:名無しさん＠お腹いっぱい。
08/03/03 08:53:14 O07C7m1o0
>>410
> outline-tree2 でアウトラインツリーのウインドウに
> キーボードでカーソルを移動する方法ってあります？
> いつもマウスであのウインドウを選択してるんですが……。
つ treeview-focus-treeview
430:名無しさん＠お腹いっぱい。
08/03/03 22:07:35 q0tBREeA0
>>411
>>429
ありがとうございます。00reademe読んでませんでした。
ちなみにoutline-tree2の背景色とかって変えられますか？
URLﾘﾝｸ(hie.s64.xrea.com)
上記のxyzzy Part7 361さんのような色にしたいんですが……。
431:名無しさん＠お腹いっぱい。
08/03/03 22:08:11 q0tBREeA0
あとwww-modeの.wwwの中身ってsiteinit.lに書いたらダメなんでしょうか？
.www限定ですか？
432:名無しさん＠お腹いっぱい。
08/03/03 23:12:48 L+yKvV020
>>431
たぶん問題ないと思う
in-package を忘れないように。
433:名無しさん＠お腹いっぱい。
08/03/03 23:26:59 AQfLhulX0
これから少し時間ができそうなのです。
ｘｙｚｚｙが面白そうなので先ほどｘｙｚｚｙをDLしてインストールしました。
これからｘｙｚｚｙのLISPを勉強しようかなと思っていますが
初心者用の参考書を少し紹介してください。
プログラムはBasicとPascalしかやったことがありません。
434:名無しさん＠お腹いっぱい。
08/03/04 00:07:10 AQfLhulX0
N88Basic と TurboPascal
435:名無しさん＠お腹いっぱい。
08/03/04 00:25:00 WUEFIqrY0
>>433
xyzzy の LISP ということであれば書籍はありません。
現状では Hiroi さんのところを読むのが一番です。
URLﾘﾝｸ(www.geocities.jp)
これを読み終えて足りなかったら、emacs lisp の書籍を xyzzy lisp との違い
を意識しながら読むとか、Xyzzy Wiki からたどれるところを読むとか、lisp デ
ィレクトリのソースを読むとか、xyzzy ML の過去ログを読むとかするとよいと
思います。