- 1 名前：ミスターエックスワイジー [2007/10/06(土) 23:44:07 ID:L/pKByeF0]
- xyzzyってさ、一見さんお断りの京都料亭みたいでさ、何から手をつけていいのかわからないでしょ？
とりあえず，初心者同士で解決できる問題はまず過去ログ・グーグルで検索した後ここで相談しましょう
たとえば
・ここのHPに書いてある通りにやりましたができません．
・xyzzyが起動しなくなりました．
・キーバインドってどうやって変更するの？
初心者の私が答えられるのはこの程度です．
自分でlispが書けるような方，こんな機能が欲しいのですが
だれか作ってくださいという方は Win板本スレへ。
xyzzy Part15 @Win板（通称：本家）
pc11.2ch.net/test/read.cgi/win/1175649315/
過去ログ & 関連リンクは>>2-5あたりに。
- 196 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/04(金) 12:18:16 ID:HRYLxsX80]
- ちょっと困っています。
ttp://xyzzy.s53.xrea.com/wiki/index.php?%BC%C1%CC%E4%C8%A2%2F162
を参考に、複数の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 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/04(金) 12:20:15 ID:HRYLxsX80]
- 置換のäは、＆auml;です。(半角→全角で変換避けをしています)
書き込んだら変換されてしまいました。
- 198 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/04(金) 17:45:16 ID:Ihvv3NEb0]
- >>196
.xyzzy や拡張ライブラリ (foo.l) を utf8 で保存しちゃまずんじゃない？
- 199 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/04(金) 18:23:44 ID:Rh5ZQnBG0]
- >>196
utfで保存して、mc-load-file
- 200 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/04(金) 19:22:55 ID:HRYLxsX80]
- >>198
まずいかなあ、と思いつつやってみたら案の定だったのですよ。
>>199
ありがとうございます！変換成功しました。
設定ファイルでなければutfで保存してもOKだったのですね…
- 201 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/04(金) 21:51:39 ID:9vTGQQb50]
- 質問とは関係ないけど、unicode だよね
- 202 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/07(月) 18:59:20 ID:jNgGbt+90]
- >>190
なにげに適当なこというよね＾＾；
- 203 名前：名無しさん＠お腹いっぱい。 [2008/01/12(土) 15:58:13 ID:PfCyvVMb0]
- reftexの設定の仕方がさっぱりわかりません。
\begin{exe} ... \end{exe}というenumerateに似た環境で
enumerateと同じように\label{items:1}のようなラベルを挿入したいのですが
どのように設定すればいいのでしょうか。
.xyzzyに(setq reftex-label-alist ... )とか書けば設定できるのかなー、と思い
reftexに添付のファイルやWeb上で見つけたサンプルを見てごにょごにょしてみたんですが
...の部分に何をどう書けばいいのか、私の頭ではさっぱり理解できません。
ご教示いただけませんでしょうか。
- 204 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/12(土) 21:36:15 ID:lwbNP+m50]
- enumerate と同じでいいなら、こんな感じでしょうか。
設定ファイルの .reftex に書いておけば動くと思います。
(setq *reftex-label-alist*
'(("exe" #\i "item:" "~~\\ref{~A}" item
(regexp "items?" "Punkte?"))))
- 205 名前：名無しさん＠お腹いっぱい。 [2008/01/13(日) 04:18:02 ID:PwrHuM0w0]
- ありがとうございます。
実をいうとreftex-vars.lのenumerateのをそのまま写すのは既に試したのですが、
うまく動かないようです。
（enumerateではitem:が挿入されるが、exeはsec:が挿入されてしまう）
- 206 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/13(日) 10:37:45 ID:IiRpxgag0]
- Xyzzyを使い始めてから半年ほどです。
へー，とか言いながら便利に使っていましたが，先日ebdictを見つけました。
仕事柄辞書引きばかりしてるので，嬉々としてダウンロードしました。
仕事用のマシンでは普通にあっさり動いたのですが，先日購入した新マシンでは，
「指定されたモジュールが見つかりません。C:/Program Files/Xyzzy/etc/eb.dll」
と言われて一切起動しません。wxpファイルを消したり，XyzzyHomeに該当DLLを
移動させてみたりもしたのですが，まったくダメでした。
この場合，直す手段が何かありますでしょうか・・・。
該当スクリプトは同じもので動いているので，表記上のミスはないはずなのですが。
- 207 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/13(日) 13:18:07 ID:TKJKu2nE0]
- よくわからんけど、 $XYZZY/etc/eb.dll はあるんだよね。
環境変数 XYZZYHOME は設定してある？
- 208 名前：206 mailto:sage [2008/01/13(日) 13:31:22 ID: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 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/13(日) 13:37:22 ID:TKJKu2nE0]
- >>208
eb.dll のバージョンが違うとか？
- 210 名前：206 mailto:sage [2008/01/13(日) 13:57:12 ID:IiRpxgag0]
- たびたびのお返事感謝です。
eb.dllのバージョンは4.2.2.0です。
作者であるdeecay氏が言及しているものと同じです。
そしてまた，もう1台では同じファイル＆同じファイル構造で動いているのです。厄介すぎる……。
文章を扱う仕事ということもあり，意地でも動かしたい気分ですのでがんばってみます。
- 211 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/13(日) 14:31:01 ID:TKJKu2nE0]
- う〜ん、わからんね。
自分も outline-tree でノード先頭に付く赤い四角が、
マシンによって表示されたりされなかったりしてるけど、
使用上そんなに問題ないので無視してた。
同じ原因かどうかはまったくわからないけど、 dll 使う
とこういうことが起こりうるのかも。
- 212 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/13(日) 15:49:04 ID:F2b/yr1+0]
- >>208
C-x C-fで
~/etc/eb.dllで押してみて、現状のxyzzyで
パスとか認識されてるか調べてみたら？
- 213 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/13(日) 15:51:01 ID:F2b/yr1+0]
- >>211
あれは自分で変えれるから
設定とか環境の問題では？
- 214 名前：211 mailto:sage [2008/01/13(日) 16:05:27 ID:TKJKu2nE0]
- >>213
そうだったのか。あとで調べてみよう。
thx.
- 215 名前：206 mailto:sage [2008/01/13(日) 16:18:30 ID:IiRpxgag0]
- >>212
助言感謝です。やってみたところ，キチンとパスとして認識されてました。
完全に行き詰まり中です。
- 216 名前：204 mailto:sage [2008/01/13(日) 17:01:09 ID:1muKzjuZ0]
- >>205
えーと、>>204 のリストの3つ目の要素を使って挿入される文字列を決めるので
そこに "item:" と書けば "item:1" のようなラベルが挿入されるはずです。
少なくとも、うちでは >>204 の設定で動きました。
これでうまくいかないなら理由がわかりません。
- 217 名前：名無しさん＠お腹いっぱい。 [2008/01/13(日) 20:10:36 ID:PwrHuM0w0]
- >>216
何度もありがとうございます。
おそらく3つ目の要素の指定の問題ではなく、
\begin{exe} ... \end{exe}の内側だということが認識されていない気がします。
そのため、その外側の\sectionが認識されて"sec:"が挿入されているのではないかと･･･
すみません。最初に書くべきだったのですが
\begin{exe}というのは、gb4eというパッケージに含まれるマクロなのですが
www.ctan.org/tex-archive/macros/latex/contrib/gb4e/
手掛かりになりますでしょうか。
- 218 名前：204 mailto:sage [2008/01/13(日) 20:55:07 ID:lEqTFuUG0]
- >>217
こちらで不具合が再現できないのでなんとも言えません。
その不具合が再現する状況・コードを教えてもらえますか？
- 219 名前：名無しさん＠お腹いっぱい。 [2008/01/13(日) 21:22:42 ID:PwrHuM0w0]
- >>218
>>204に書いていただいたものをそのままコピペして、.reftexという名前で
.xyzzyと同じフォルダに保存してあります。
\begin{enumerate}
\item \label{
\end
- 220 名前：名無しさん＠お腹いっぱい。 [2008/01/13(日) 21:28:28 ID:PwrHuM0w0]
- すみません>>219は誤送信です。
>>218
>>204に書いていただいたものをそのままコピペして、.reftexという名前で
.xyzzyと同じフォルダに保存してあります。
\begin{enumerate}
\item \label{item:1}
\end{enumerate}
\begin{exe}
\ex \label{sec:節タイトル}
\end{exe}
（つづく）
- 221 名前：名無しさん＠お腹いっぱい。 [2008/01/13(日) 21:29:35 ID:PwrHuM0w0]
- という具合で、exeの場合はsec:が挿入されてしまいます。
（正確には"sec:節タイトル"がデフォルトで、
ミニバッファで編集してから挿入するようになる。）
挿入自体はできるので、おそらくRefTeX自体は動いていると思います。
また.reftexに適当な文字列を入れると.texファイルを開くときにエラーがでるので
.reftexもちゃんと読み込んではいると思います。
- 222 名前：204 mailto:sage [2008/01/13(日) 23:39:32 ID:zKiqkse20]
- うーん、その状況だとうまく行かない理由が見当たらないです。
とりあえず次のことを確認してもらえますか？
\begin{exe}
\ex <- ここにカーソルを置いて、ミニバッファで以下のものを評価
\end{exe}
1. (reftex::reftex-label-location) -> "exe" となるかどうか。
2. 1. で "exe" とならなかった場合、
(msgbox "~S" reftex::*reftex-label-env-alist*) で "exe" が含まれているか。
- 223 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/14(月) 00:30:42 ID: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 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/14(月) 01:06:24 ID:fEoXo9O70]
- >>223
ミニバッファで評価するためには，ESCを2回押して貼り付けてエンター
- 225 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/14(月) 01:39:02 ID:bp5MmNk30]
- >>223
*scratch*でやっても基本的には同じなので、どちらでも良いんだよ。
(reftex::reftex-label-location)
(msgbox "~S" reftex::*reftex-label-env-alist*)
この二つを*scratch*に貼り付けて
それぞれの行末でC-jすれば同じようなもの。
- 226 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/14(月) 01:54:02 ID:ywcCAoOK0]
- >>224
ありがとうございます。助かります。
1. "section"
2. "変数が定義されていません: reftex::*reftex-label-env-alist*"
でした。何かreftexの設定をし忘れているのでしょうか。
reftexはnetinstallerで以下のサイトからインストールしたものです。
f55.aaa.livedoor.jp/~ynomura/xyzzy/packages.l
.xyzzyには以下のように記述してあります。
;;; RefTeX for xyzzy
(add-hook 'elisp::katex-mode-hook 'turn-on-reftex) ; with KaTeX mode
(autoload 'turn-on-reftex "reftex/reftex")
- 227 名前：204 mailto:sage [2008/01/14(月) 02:54:08 ID:ukzw8aNs0]
- すいません、間違えました。alist じゃなくて list でした。
(msgbox "~S" reftex::*reftex-label-env-list*)
↑のでもう一回試してみて、"exe" が入っているか確認してみてください。
- 228 名前：204 mailto:sage [2008/01/14(月) 02:57:06 ID:ukzw8aNs0]
- 追加です。
もしかすると一回 reftex-label を呼び出した後でないとダメかもしれません。
一旦ラベルの挿入をしてから >>227 を試してください。
- 229 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/14(月) 12:48:35 ID:ywcCAoOK0]
- >>228
返信遅くなってすみません。
今日PCを起動して、もう一度実行したらうまく動きました。
結局、原因はよくわからなかったのですが、
おそらく.reftexの設定が間違えていたorちゃんと反映されていなかった
のだろうと思います。
丁寧に教えていただいてありがとうございました。
本当に助かりました。
- 230 名前：名無しさん＠お腹いっぱい。 [2008/01/18(金) 10:07:55 ID:Ftkj5J5V0]
- ２画面ファイラについてお聞きします。
同じディレクトリ内でディレクトリコピー（名前を変えて）は出来ないのでしょうか？
左右同じディレクトリを表示しておいてディレクトリ選択して "C" をすると
『ディレクトリはまだできてない』と言われるんですが・・・
新規ディレクトリを作成してから中身を全部コピーは出来るんですけどやや面倒で。
- 231 名前：名無しさん＠お腹いっぱい。 [2008/01/20(日) 00:29:50 ID:X41jUVF+0]
- >>184
遅レスですが参考になりました。
簡単にできてよいですね。
>>185
ファイルメニューに追加のしかたキボン！！
wikiのtipsにも反映しておきました。
tips/エンコーディングを指定して開きなおす方法 - XyzzyWiki
xyzzy.s53.xrea.com/wiki/index.php?tips%2F%A5%A8%A5%F3%A5%B3%A1%BC%A5%C7%A5%A3%A5%F3%A5%B0%A4%F2%BB%D8%C4%EA%A4%B7%A4%C6%B3%AB%A4%AD%A4%CA%A4%AA%A4%B9%CA%FD%CB%A1
- 232 名前：231 [2008/01/20(日) 01:51:01 ID: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 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/20(日) 09:50:04 ID: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 mailto:sage [2008/01/20(日) 22:20:56 ID:wiEGPNw80]
- xyzzy.s53.xrea.com/wiki/index.php?tips%2F%A5%A8%A5%F3%A5%B3%A1%BC%A5%C7%A5%A3%A5%F3%A5%B0%A4%F2%BB%D8%C4%EA%A4%B7%A4%C6%B3%AB%A4%AD%A4%CA%A4%AA%A4%B9%CA%FD%CB%A1
に張っておきました。
- 235 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/21(月) 00:02:53 ID: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 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/21(月) 01:50:08 ID:h60hMPkt0]
- >>235
なぜわざわざmacroにするの？
- 237 名前：231 [2008/01/21(月) 01:53:15 ID:MSzVuBGQ0]
- うはｗｗ即レスありがとう
>>233
サブメニューに追加するにはそうすればいいのか
:above-sessionも気付かなかった。lisp/app-menu.l みたら載ってました。
> Schemeじゃないし。
Xyzzy Lispには関数内関数ないのか orz てか、Schemeにはあるのか・・・
> (interactive)
了解しました。ヘルプに対話型？と書いてあったからわからんかったのですが、
メニューからの場合は、コマンドとして設定しないといけないんですね。
>>234
まとめられるんですね。
使わせていただきます
>>235
あー、マクロ使う手もあるんすね。
- 238 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/21(月) 02:26:05 ID:oYrRmVW10]
- >>237
>> Schemeじゃないし。
>Xyzzy Lispには関数内関数ないのか orz てか、Schemeにはあるのか・・・
ないんじゃなくて、それ用の記法があるということ。
flet とか labels がそれに該当する。
- 239 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/21(月) 21:59:27 ID:pfA4+zT60]
- >>236
他にいい方法思いつかなかっただけ。
よく見たら渡してるのが定数だから flet でもできたかな。
- 240 名前：名無しさん＠お腹いっぱい。 [2008/01/22(火) 00:13:39 ID:dw9niiM60]
- 教えて下さい。
文字を選択しておいて、たとえば『国家』という二文字を選択しておいて
Shift-F7を押すと『￥ｒｕｂｙ｛国家｝｛ ｝』となるようにするには
どのようなのを書いたらよいでしょうか？
(HTMLの<a>〜</a>のように選択文字列をはさんで、ある文字列を追加する）
- 241 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/22(火) 01:13:18 ID: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 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/22(火) 01:25:32 ID:qllziFmi0]
- >>240
shortinput
www1.bbiq.jp/rohinomiya/products/
- 243 名前：240 [2008/01/22(火) 01:57:53 ID:dw9niiM60]
- >>241
すごい！！ ばっちりです。
自分xyzzyをTeXで使っているのですが、これでパワーアップです。
>>242
ありがとうございます。
勉強させていただきます。
ほんとうにありがとうございます。感謝、感謝！です。 m(_ _)m
- 244 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/22(火) 02:22:12 ID:20mz+V6l0]
- >>242のサイトをネットインストーラに登録しようと思って
wikiの↓のコメントの挿入のとこから投稿したんですけど、反映されません。
NetInstaller/配布パッケージ一覧 - XyzzyWiki
xyzzy.s53.xrea.com/wiki/index.php?NetInstaller%2F%C7%DB%C9%DB%A5%D1%A5%C3%A5%B1%A1%BC%A5%B8%B0%EC%CD%F7
www1.bbiq.jp/rohinomiya/products/packages.l
- 245 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/22(火) 16:57:39 ID:6NoYtEeH0]
- >>241
横からもらったぁ！感謝！
- 246 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/22(火) 18:41:43 ID:VkTxoaAo0]
- 今はなき「xyzzy でタグ打っている香具師」で似たようなの見たなぁ〜
- 247 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/22(火) 19:19:03 ID:EE4jzfJx0]
- >>246
そうなの？
>>240を見てから適当に書いたんだが．．
大したコードでもないので、誰が書いてもそんなに変わらないんじゃないかな。
- 248 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/22(火) 19:31:18 ID:EE4jzfJx0]
- 今ちょっと見てきたが、quote-region-by-tagのことかな。
確かに似ているね。
shortinputもあるしわざわざ書くこともなかったな．．
- 249 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/22(火) 19:33:39 ID: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 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/23(水) 05:18:21 ID:8OzWD4Y50]
- >>238
flet で囲んだところでだけ使えるのか・・・ちょいと面倒ですな
labels はリファレンスになかた
- 251 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/23(水) 05:49:26 ID:RxI6lXpQ0]
- ttp://user.ecc.u-tokyo.ac.jp/~tt076524/onlispjhtml/functions.html
下から1/3のあたりにlabels
- 252 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/23(水) 12:42:00 ID:+vLN5vfR0]
- xyzzy で IMAP のメールを読むことは可能でしょうか？
- 253 名前：名無しさん＠お腹いっぱい。 [2008/01/23(水) 22:23:21 ID:8OzWD4Y50]
- HTML+-modeの色分けがされないのですが、
問題あるかどこを見たらいいんでしょう？
HTMLを読ませた時に、画面下に(HTML+;HTML Support) と出ており、
また、/ などでタグ閉じなどもできる点からメジャーモードとして、作動しているようです。
色わけされない状況ですが、
全ての文字が、「共通設定」の「フォント」タブの「文字色」（白色にしてます）の色になります。
- 254 名前：253 [2008/01/23(水) 22:27:40 ID:8OzWD4Y50]
- 自己解決しますた
他の、xml-modeも Delphi-modeも 色つかなくて、なぜか bat-modeだけ色ついてて
変だと思ってたんですが、
「共通設定」の「表示」タブの「キーワードに色をつける」のチェックがはずれていました。
チェックしたら色つきました！！
いつのまに、いじったのかｗ
あふぉ・・・
- 255 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/24(木) 13:47:07 ID:qSZLmeUx0]
- ファイルを開いたときに
文字コードの誤判定があるので
C-u M-x revert-buffer
として euc-jp と入力しています。
これを例えば M-x buffer-euc-jp に
割り当てるにはどうしたらいいでしょうか。
- 256 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/24(木) 14:14:58 ID:EjwnFr+b0]
- revert-buffer-with-coding-system と言うそのままの名前のがあるから、
それラップすればいいんじゃない?
- 257 名前：名無しさん＠お腹いっぱい。 [2008/01/24(木) 17:00:11 ID:eNsLfIXk0]
- 設定のことなのですけど、
画面をスクロールしたときカーソル行もそれにあわせてスクロール
するようにしたいのですが、どうしたらよいのでしょうか？
- 258 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/24(木) 17:04:13 ID:wuJ5VBz10]
- kuso gizune
- 259 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/25(金) 23:52:12 ID:t7UL5v+90]
- xyzzyで色々やってみようと思い立ったものの・・・
- 260 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/25(金) 23:56:12 ID:v7OFsorw0]
- どうした？
- 261 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/26(土) 04:08:44 ID:2xBnPmR40]
- combine使えないのね
- 262 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/26(土) 04:30:20 ID:k01ntuWz0]
- 適当に作れば？
append使ったりしてやれば手間もなさそうに思うけど。
- 263 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/26(土) 17:02:55 ID:nptdTNl90]
- >257
スクロール位置が気になったらC-lを押しとけ。
- 264 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/26(土) 17:55:11 ID:xqCdGihk0]
- >>257
スクロールってマウスのホイールスクロール？キー入力？
前者なら、昔 2ch に張ったけどな。もう細かいことは忘れた。
- 265 名前：名無しさん＠お腹いっぱい。 [2008/01/28(月) 15:07:31 ID:bydSav3Y0]
- そうです。マウスのホイールスクロールです。
いまはその行をマークして戻ってるんですけど。
- 266 名前：名無しさん＠お腹いっぱい。 [2008/01/28(月) 19:56:54 ID:h0NouF1x0]
- ホイールと一緒にスクロールしてほしい、ということなら俺もやり方知りたい
カーソル位置にもどるというだけなら、>>263の Ctrl+Lでできるみたいだ
- 267 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/29(火) 00:48:51 ID:6r+8dzZH0]
- >>265-266
とりあえず、画面内にカーソルが無いといけないという
xyzzy の仕様があるから、できても１画面までしか実現できないよ。
それでもいいの？
- 268 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/29(火) 03:49:15 ID:LALrILBL0]
- 画面をマウスでスクロールした時に
カーソルの位置を移動して欲しくないってこと？
- 269 名前：266 [2008/01/29(火) 08:16:38 ID:oST7Vmwp0]
- ごめん、勘違いでした。
今見たら、ホイールと一緒にカーソルついてくるね・・・
- 270 名前：名無しさん＠お腹いっぱい。 [2008/01/29(火) 19:50:49 ID:yCQ1c01C0]
- たとえば、いま５０行にカーソルがあると
マウスホイールや上下スクロールバーで画面をスクロールしても
カーソルは５０行にいてほしい、ということだよね
サクラとかEmとかみたいに
- 271 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/29(火) 22:39:54 ID:LALrILBL0]
- まずは、マウスを窓から投げ捨てろ。
- 272 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/02/01(金) 08:10:48 ID:USinHq/30]
- outline-tree2のツリービューのツールチップなんですが、
表示のタイミングや位置を調整するのは無理なんでしょうか？
マウスカーソル直下をホイールでスクロールできるソフトを使っていると、
ツールチップに入力を取られスクロールしないことがあって困っています。
- 273 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/02/01(金) 19:31:26 ID:zjhDDFg+0]
- xyzzyを起動してからしばらく使っていると@を打とうとして[が出てきてしまったり
右Altが効かなくなったりという症状が出てよく再起動するんですが
これはなぜなんでしょうか？
.xyzzyかsiteinit.lにまずいところがある？
- 274 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/02/01(金) 22:01:42 ID:JzRxiUZS0]
- >>273
.xyzzyとsiteinit.l を読み込まないでも再現するか確認
再現しないなら再現するまでファイルの半分ずつ程度読み込んで確認
- 275 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/02/01(金) 23:01:11 ID:0EiwKQ3C0]
- >>272
> マウスカーソル直下をホイールでスクロールできるソフトを使っていると、
> ツールチップに入力を取られスクロールしないことがあって困っています。
俺は TTBase で使えるのを使っているけど、ツールチップ上でかつ異なる
ウィンドウ上でも問題なくスクロールできる。ドライバーが悪いんじゃないの？
>>274
再現するまで時間がかかるようだと、その方法は大変だよ。
すぐに再現すればそれがいいけどね。
んで俺からのアドバイスとしては、以下のを .xyzzy に書いておいて、
white.s151.xrea.com/wiki/index.php?memo/xyzzy/for%20debug
現象が起きたときに、
(step '(command-execute "@"))
と入力して、正常時の結果と比較したほうがよいと思う。
- 276 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/02/01(金) 23:34:05 ID:zjhDDFg+0]
- >>274
>>275
ありがとうございます。
不調が出るまでxyzzyを触り続けてみます。
- 277 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/02/02(土) 01:24:56 ID:QLhespph0]
- ヒント：オンラインウィルスチェック、スパイウェアチェック
- 278 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/02/02(土) 01:34:18 ID:12/cDF+k0]
- >>276
> @を打とうとして[が出てきてしまったり
xyzzyの中だけこうなるの？このときにメモ帳とかだと普通に@が出るの？
なんか英語キーボードのキーマップになってるような気がする
キーマップを変更するソフトが入ってて変更するショートカットキーを無意識に押してるとか
- 279 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/02/02(土) 02:16:44 ID:xvCQ/4fs0]
- >>278
xyzzyの中だけです。メモ帳はわからないけどブラウザでは正常に動くので。
キーマップと言えばXKeymacsを入れてるくらいしか思いつかないけど関係無いかと。
再起動すればまた普通に使えるのでxyzzyが原因かと思ったんですが
そうじゃなかったらスレ違いですいません。
- 280 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/02/02(土) 03:47:12 ID:xvCQ/4fs0]
- >>278
追記ですが検証してみたところ確かに英語のキーマップになっているみたいです。
#が]のところに近づいて来てperlが書きやすいんですが右Altが無いのがちょっと。
- 281 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/02/02(土) 04:43:39 ID:QLhespph0]
- XKeymacs知らんけど、アプリごとの設定で xyzzyのときだけ英語キーバインドになっているとか・・・
- 282 名前：272 mailto:sage [2008/02/02(土) 09:35:18 ID:KxCafLCj0]
- スレ違いっぽいですがすみません。
>>275
教えていただいたTTBaseと、プラグインのRedirectWheelGを試してみたところ上手くいったのですが、
xyzzyのテキスト表示部分で１ノッチにつき3行スクロールしてしまいました。
マウスのプロパティのホイールのスクロール量は、1行にしています。
実は、カーソル直下のスクロールなどに自作のAutoHotKeyスクリプトを使っていまして、
RedirectWheelGと同じPostMessageによる実装もして動いていたのですが、
上記の３行スクロールする問題のため、擬似クリックでの実装に切り替えていました。
TTBaseを試して思いついたのですが、xyzzyの時だけツリービューかどうかを判別して
個別対応してみたいと思います。
どうもありがとうございました。
- 283 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/02/02(土) 11:33:43 ID:ReaxwS/A0]
- 選択範囲内の文字数をカウントする方法って現段階でありますか？
あったら教えてください。
- 284 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/02/02(土) 11:37:09 ID:x4ReHyBl0]
- count-words-region
- 285 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/02/02(土) 11:55:35 ID:aFQKhOrT0]
- >>283
ttp://xyzzy.s53.xrea.com/wiki/index.php?tips%2F%C1%AA%C2%F2%A4%B7%A4%BF%CA%B8%BB%FA%BF%F4%A4%F2%A5%B9%A5%C6%A1%BC%A5%BF%A5%B9%A5%D0%A1%BC%A4%CB%C9%BD%BC%A8%A4%B9%A4%EB
- 286 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/02/03(日) 08:47:01 ID:XiD8Xna90]
- C-& の execute-subprocess を
shell-modeの *eshell* で設定したshell上で動かすことはできないでしょうか？
*shell*は以下のように設定しています。
(setq *eshell* "bash -i")
- 287 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/02/03(日) 17:48:56 ID:iDXz1KED0]
- >>286
execute-subprocess で使ってるのは *eshell* じゃなくて *shell* だね。
別々の変数なので注意。というわけでこんな設定でどう？
(setq *shell* "bash")
(setq *shell-command-option* "-i")
- 288 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/02/03(日) 20:17:58 ID:XiD8Xna90]
- >>287
(setq *shell* "bash")
(setq *shell-command-option* "-c")
にすると、複数の引数を解釈してくれないので、
例えば、uname -a がunameと解釈される
hisashim: [xyzzy][Lisp] xyzzy diff on UNC path using Cygwin zsh
hisashim.livejournal.com/215556.html
を参考に 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 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/02/03(日) 20:18:38 ID:XiD8Xna90]
- >>287
お礼を忘れてました、ありがとう。
xyzzy/lisp下読めば大抵わかるんですね。
- 290 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/02/05(火) 01:00:29 ID:KGr1ZUlV0]
- <ちら裏>
kamail3 で突然メールが表示されなくなってびびった。
.kamail3/config.l を最小元にし、casket, data, メールを
削除してもだめで、マジあせった。
結局 *shell* の値を zsh に変更した事が問題だった。
cmd.exeに戻したら直った。本当によかった。
</ちら裏>
ところで特定のメールアドレスからのメールは常に既読にする
のってどうやって設定するの？ config.l.sample に載っている
まんまだと予想したがうまくいかない。orz
- 291 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/02/07(木) 10:43:31 ID:FAsMFBYF0]
- multiple-replace を現在開いている全てのバッファに適用
するにはどうすればよろしいでしょうか？
- 292 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/02/07(木) 13:21:15 ID: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 名前：続き mailto:sage [2008/02/07(木) 13:22:40 ID: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 名前：続き mailto:sage [2008/02/07(木) 13:23:28 ID: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 名前：続き mailto:sage [2008/02/07(木) 13:24:26 ID: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 名前：続き mailto:sage [2008/02/07(木) 13:25:29 ID: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)))
|
 |
