xyzzyの使い方が分からぬやし励ましあえその12

xyzzyの使い方が分か� ..

75:名無しさん＠お腹いっぱい。
08/12/27 18:55:53 MHHbu1ZG0
PHP で outline-tree2 を使おうと思って
URLﾘﾝｸ(se-suganuma.blogspot.com)
を導入したんですが、
cr-user-regexp-outline-php.l の14行目に「文字列が終了していません」とエラーが出ます。
どうしたらいいのでしょう？
ご教示お願いします。

76:名無しさん＠お腹いっぱい。
08/12/27 21:46:36 s05iX8+Q0
>>75
関数定義前に、以下を挿入してもだめ？

(require "outline-tree/outline-tree")
(require "outline-tree/cr-regexp-internal")
(in-package "outline-tree2")

77:名無しさん＠お腹いっぱい。
08/12/28 03:43:51 hsKMelSS0
URLﾘﾝｸ(homepage3.nifty.com)
ここのruby-mode
入れたんですけど
rubyスクリプトをxyzzyから実行する方法が
わかりませんで。

教えてください。

78:名無しさん＠お腹いっぱい。
08/12/28 03:57:10 P0CW721l0
C-c x
C-c C-x
かしらん

79:名無しさん＠お腹いっぱい。
08/12/28 04:48:00 hsKMelSS0
動かないっす。
ruby.exeのパスを通す初期設定からわからず。。

80:名無しさん＠お腹いっぱい。
08/12/28 10:52:50 TtolbMjT0
>>76

"PHP 言語を非常に簡易的な方法でアウトライン表示します。
実用に耐える実装には至っていません。")

の部分を、
"hoge")
といった具合に、日本語じゃなくしたらなぜかうまく行きました。
なんででしょう？

81:名無しさん＠お腹いっぱい。
08/12/28 14:37:15 CWKBVnys0
C-e で行末に移動
C-e C-e でファイル末に移動

こんな風にひとつのコマンドを実行しつつ
かつ別のコマンドの前入力(?)として処理することはできますか？

82:名無しさん＠お腹いっぱい。
08/12/28 18:05:31 i3gHxRVp0
同じキーで良ければ、行末かどうか判断すれば良いんでない？

(defun my-end-of-line ()
(interactive)
(if (eolp)
(end-of-buffer)
(end-of-line)))

(global-set-key #\C-e 'my-end-of-line)

83:名無しさん＠お腹いっぱい。
08/12/28 18:05:40 KDSigo9H0
>>80
うまくいったから、まぁいいんだろうけど。
sjis で保存してなかったとか？

>>81
こんなんとか

(defun goto-eol-or-eob ()
(interactive)
(if (eq *last-command* 'goto-eol-or-eob)
(goto-char (point-max))
(goto-eol)))
(global-set-key #\C-e 'goto-eol-or-eob)

84:名無しさん＠お腹いっぱい。
08/12/28 18:10:35 sGmjukcT0
>>80
ファイルの文字コード関係っぽいですね。
xyzzy 用の lisp ファイルは基本的に shift-jis/crlf にしとくのが無難です。
なのですが、*default-fileio-encoding* などの
エンコーディング関係の設定がそれ以外になっていると、
ファイルやバッファを自動生成した場合にそれらの設定が利用され、、
その結果予想外の不具合が発生することがあります。

拡張利用者側での対処法は、まあ、気をつけるぐらいしかないわけですが。

85:名無しさん＠お腹いっぱい。
08/12/29 01:03:35 9ahQrSYZ0
ファイラの一括リネームで質問です
普段DF使ってますがせっかくXYZZY使い始めたからとWIKI見ましたが当然ながら全くの別言語
LISPはまったく門外漢。もしよければご教授ください

変換前
赤okinawa01.jpg
青okinawa03.jpg
黄色okinawa07.jpg //無理なら黄okinawa07.jpg

変換後
natu_okinawa001.jpeg
natu_okinawa002.jpeg
natu_okinawa003.jpeg

こうしたい場合の式を教えてください。よろしく願いします

86:名無しさん＠お腹いっぱい。
08/12/29 05:31:56 ezFcBUl80
標準で連番を付けなおすのは出来ない

試していないが
URLﾘﾝｸ(kadd.hp.infoseek.co.jp)
ここの、filerで連番リネームを入れて

変更前　$okinawa$.*\.jpg$
変更後　natu_\1/001/.jpeg

とすればいけるかも

87:名無しさん＠お腹いっぱい。
08/12/29 10:08:20 bQhEMcJT0
>>83
ああ、その通りでした。
sjis じゃなくて utf8n で保存してました。
sjis に変えてみたところうまく行きました！
これですっきりしました。どうもありがとうございます。

88:名無しさん＠お腹いっぱい。
08/12/29 10:26:42 R1UewMdr0
アウトラインツリーってC言語対応してないんですね。
残念です・・・

あと、列カーソルと、折りたたみ機能があれば最高なのにな・・・
（これはEXEを改造しないと無理？）

89:名無しさん＠お腹いっぱい。
08/12/29 13:39:11 r/rnHGdv0
>>82-83
ありがとうございます。
>>83さんのを使わせて頂きました。
*last-command* なんてのがあったんですね。

90:34=36
08/12/29 16:00:58 jl3Nufl2P
katexでC-c t p でdviのpreviewをさせようとするとファイルが見つかりませんといわれます。
C-c t jではちゃんとコンパイルしてくれてdviファイル自体はできています。
.xyzzyファイルの設定のどこかが間違ってるのではないかと思うのですが、どうでしょうか？

91:名無しさん＠お腹いっぱい。
08/12/29 18:22:48 9ahQrSYZ0
>>86
ありがとうございます

92:85
08/12/29 19:59:07 9ahQrSYZ0
早速試してみましたがだめでした
手動で連番付け直してリネームで貼り付け
結果は全て同じ名前になりました
natu_okinawa/001/.jpeg

その後WIKIだの何だの見て試行錯誤の結果
手動で連番付け直して
変換前　$okinawa$$\w\w\w$.jpg
変換後　natu_\1\2.jpeg

これでそれっぽいのができました
ただ本質理解してないので何か勘違いしてる可能性のほうが怖いです
本当はこれが正解とかこれがスマートとかありましたらよろしくお願いします

93:名無しさん＠お腹いっぱい。
08/12/29 21:36:56 inL8H8oP0
>>92
>>86をちゃんと読んだか？
リンク先のサイトの「filerで連番リネーム」をインストールした後の
話だぞ。

手動で連番付け直しした時点で>>86は使えない。

94:名無しさん＠お腹いっぱい。
08/12/29 23:07:00 9ahQrSYZ0
>>93
>ここの、filerで連番リネームを入れて
「ファイラ」で連番リネームじゃなく「filerで連番リネーム」を入れるだったと。
ここのアプリか何かで連番のリネームを入れるものと勘違いしてましたｗ

早速してみます

95:94
08/12/30 00:13:20 0T123kNE0
たびたびすみません。うまく行きませんでした
site-lispディレクトリにfiler-re.lを置く
siteinit.lに記述(require "filer-re")を追加
xyzzy.wxpを削除
xyzzy起動。ファイラ起動
Rでリネーム呼び出して先の式を打ち込むもうまく動作せず
ちなみにタイトルは一気にリネームで一気に連番リネームにあらず

そもそも連番リネームが入ってるのかどうか確認する方法も分からないため
原因がどこなのかさっぱりわかりません、よろしくお願いします

96:名無しさん＠お腹いっぱい。
08/12/30 05:40:54 u7p4OrHp0
>>95
連番リネームはM-rで呼び出すようになってる
で、ダイアログのタイトルが「一気に連番ﾘﾈｰﾑ」になってればおｋ

Rで呼び出したいならfiler-re.lの最後の「#\M-r」を「#\R」に書き換えて
再ダンプ（xyzzy.wxpを削除してxyzzy再起動）

97:名無しさん＠お腹いっぱい。
08/12/30 06:54:11 0T123kNE0
>>96
見事に変換できました。ありがとうございました
Rに置き換えるのは魅力的ですが元に戻せなくなるのが怖いので置いておきます

たびたび質問で申し訳ないのですが
変更前　$okinawa$.*\.jpg$
変更後　natu_\1/001/.jpeg

「.*」は思うに次に指定する文字が出るまでスルーという意味かと思います
この場合.jpegのドットまでは03とか05とかは無視してスルーという意味かと
ならば何故行頭に赤や黄色をスルーするという意味で
.*$okinawa$.*\.jpg$にならないのか
・・・と思って試してみると同じ動作でした

「\.」は思うにエスケープでドットかなと思います
ならば何故変換後において￥が必要ないのかわかりません
・・・と思って試してみると同じ動作でした

単純に省略可能だったということだったのでしょうか
自分の認識にまちがいあれば突っ込みお願いします

98:86
08/12/30 07:40:30 u7p4OrHp0
>>97
> ならば何故行頭に赤や黄色をスルーするという意味で
> .*$okinawa$.*\.jpg$にならないのか
検索対象（この場合ファイル名）のどこかで「okinawa」にマッチするまで
スルーしていくので先頭に「.*」は不要

仮に行頭が赤の物だけを対象にしたいなら
^赤.*$okinawa$.*\.jpg$
とすればいい

> 「\.」は思うにエスケープでドットかなと思います
> ならば何故変換後において￥が必要ないのかわかりません
検索文字列でドットは改行以外すべての一文字にマッチするけど
置換文字列のドットは特に意味を持たないから

> 単純に省略可能だったということだったのでしょうか
後者の方は微妙に違うけど、概ねそんなところです

99:名無しさん＠お腹いっぱい。
08/12/30 08:40:22 0T123kNE0
>>98
丁寧な解説ありがとうございました

100:名無しさん＠お腹いっぱい。
08/12/30 12:15:57 oOtd8ZkI0
>>85 >>92
M-x shell でシェルモードになるので
門外漢じゃない使い慣れたシェルとかツールでやればいいと思うよ。
外部のCUIツールがxyzzy上で容易に動くのはxyzzyの利点の一つだしね
使わないのは勿体無い。

101:名無しさん＠お腹いっぱい。
08/12/30 21:19:51 rZLLrpYY0
キーバインドの
C-c C-f の　「C-c」部分や
C-x C-c の　「C-x」部分を呼ぶ特定の名称はありますか？

102:名無しさん＠お腹いっぱい。
08/12/30 23:31:01 O4oGQZpS0
プレフィックスキー

103:名無しさん＠お腹いっぱい。
08/12/30 23:43:18 kEBuUzra0
xyzzyってもうバージョンアップしないんでしょうか・・・？

104:名無しさん＠お腹いっぱい。
08/12/31 01:51:39 6uaJxH190
>>102
ありがとうございます m(_ _)m

105:名無しさん＠お腹いっぱい。
08/12/31 04:24:39 Kw9OwDck0
>>100
なるほど
コマンドライン一覧を見つつ試してみます

106:名無しさん＠お腹いっぱい。
08/12/31 14:35:30 pc7WPLpE0
>>63-72
hwa-to-csvが不親切ですみません。そしてフォロー有難うございました。
csv-modeが無いときに動かないのはバグでした。
ここでのやり取りを参考にちょっと書き直しましたので，良ければ確認してみてください。

107:名無しさん＠お腹いっぱい。
09/01/01 21:42:29 hiiJjo030
>>88
対応してるよ
メニューからXTAGSをあらかじめ生成しておかないとだめ

108:名無しさん＠お腹いっぱい。
09/01/03 15:07:37 rbhkd7ZK0
defconstantを条件式で判定するとき、caseとcondで動作が違うのは何故なのでしょうか。

(defconstant *n-const* 20)

; (fn1 *n-const*) => 'this-cond-true)
(defun fn1 (num)
　　(case num
　　　　(*n-const* 'this-cond-false) ; (= num *n-const*) => t なのに真と評価されない
　　　　(20 'this-cond-true))) ; *n-const* と同じ数値の「20」なら真と評価される

; (fn2 *n-const*) => 'this-cond-true
(defun fn2 (num)
　　(case num
　　　　((= num *n-const*) 'this-cond-false) ; (= num *n-const*) => t なのに真と評価されない
　　　　((= num 20) 'this-cond-true))) ; 数値と比較して正しいなら真と評価される

; (fn3 *n-const*) => 'this-cond-true
(defun fn3 (num)
　　(cond
　　　((= num *n-const*) 'this-cond-true))) ; cond 文だと (= num *n-const) は真と評価される

109:名無しさん＠お腹いっぱい。
09/01/03 15:10:41 rbhkd7ZK0
すみません。fn2は自分の勘違いです。
fn1でどうして*n-const*が真と評価されないのかがわかりません。

110:名無しさん＠お腹いっぱい。
09/01/03 16:34:49 YiY7V1Dk0
macroexpandすると分かるが、
(= num *n-const*)ではなく(eql num '*n-const*)に展開されてる
つまり、numの値とシンボル*n-const*を比較してるから真にはならない

対策としてはcondを使うか、新しいマクロを定義するかだね

111:108
09/01/03 20:28:50 rbhkd7ZK0
>>110
ありがとうございます！macroexpand で比較してみました。

　　　(defconstant *n-const* 2)

　　　(macroexpand '(case *n-const* (1 'one) (2 'two) (3 'three)))
　　　　　　=> (let ((#1=#:key *n-const*)) (if (eql #1# '1) (progn 'one) (if (eql #1# '2) (progn 'two) (if (eql #1# '3) (progn 'three) nil))))

　　　(macroexpand '(cond ((= *n-const* 1) 'one) ((= *n-const* 2) 'two) ((= *n-const 3) 'three)))
　　　　　　=>(if (= *n-const* 1) 'one (if (= *n-const* 2) 'two (if (= *n-const 3) 'three nil)))

これからxyzzyの内部構造を勉強します。いいキッカケになりました。感謝、感謝です。

(参考)
URLﾘﾝｸ(xyzzy.s53.xrea.com)
URLﾘﾝｸ(xyzzy.s53.xrea.com)
URLﾘﾝｸ(himadatanode.qp.land.to)
URLﾘﾝｸ(www2.ocn.ne.jp)

112:名無しさん＠お腹いっぱい。
09/01/04 10:27:25 1GxGvmcA0
xyzzyで正規表現置換にて取り除きたい行があります。

こういうURLがたくさんあって、

URLﾘﾝｸ(image.blog.livedoor.jp)
URLﾘﾝｸ(image.blog.livedoor.jp)
URLﾘﾝｸ(image.blog.livedoor.jp)
URLﾘﾝｸ(image.blog.livedoor.jp)
URLﾘﾝｸ(image.blog.livedoor.jp)
URLﾘﾝｸ(image.blog.livedoor.jp)

「正規表現」と「エスケープシーケンスを理解」にチェックを入れて、
^.+-s.(png|gif)\n
を
(空白)
に置換しようとしたのですが、
見つかりません、と出てしまいます。
^.+-s.png\n
だと大丈夫なのですが、これはどこがおかしいのでしょうか？
正規表現自体は間違っていないと思うのですが・・・

113:名無しさん＠お腹いっぱい。
09/01/04 10:37:27 M4jm2bjt0
^.+-s.$png\|gif$\n

xyzzyでは、カッコや|にエスケープが必要
URLﾘﾝｸ(scrlab.g-7.ne.jp)

114:名無しさん＠お腹いっぱい。
09/01/04 10:50:27 1GxGvmcA0
>>113
いけた！
確かにまずはエスケープするのを疑うべきでした
りがとう

115:名無しさん＠お腹いっぱい。
09/01/06 15:02:37 bNE5mW1C0
Vistaを使っています。

「秀Caps」で「Shiftなしで「_」を入力」にしても xyzzy で有効になりません… ( Firefox や Becky! は _ になるのに )。

まぁ、Vista だし、そんなものかな、と諦めているのですが、xyzzy で「ろ」と刻まれたキーで Shift なしで _ にするにはどうしたらいいでしょうか？( 「|」のキーは \ のままにしたいのです )

116:名無しさん＠お腹いっぱい。
09/01/06 18:23:16 G87hCBJ40
C-x C-bで出てくるBuffer Listで、bufferの選択をemacsと同じようにreturnキーでやりたいんですが、
どう設定すればいいですか？

117:名無しさん＠お腹いっぱい。
09/01/06 19:33:19 3Nr3pDBy0
(define-key ed::*buffer-menu-mode-map* #\RET 'ed::buffer-menu-this-window)

118:名無しさん＠お腹いっぱい。
09/01/06 19:49:13 G87hCBJ40
>>117
できました。
ありがとうございます。

119:115
09/01/07 13:41:27 b8Hcco5X0
>>115
いい方法ないでしょうか…。よろしくお願いします。

120:名無しさん＠お腹いっぱい。
09/01/07 15:00:41 th14gA9I0
(add-hook '*pre-command-hook* (lambda () (when (eq *last-command-char* #\/) (setq *last-command-char* #\_))))

121:名無しさん＠お腹いっぱい。
09/01/07 15:11:03 th14gA9I0
あごめん。#\/ じゃなくて #\\ か。dvorak なもんで qwerty 配列忘れてる。
にしても | のキーと \ のキーは同じ #\\ になってるぽいから区別すんのは
xyzzy 側からじゃ無理そげ。

122:名無しさん＠お腹いっぱい。
09/01/07 15:18:57 th14gA9I0
あぁ、そうか。うちのキーボードは mayu で変えてるからふつーのキーボード
だと違うかもしれんのか。

(let ((s (make-buffer-stream (get-buffer-create "*keylog*"))))
　 (add-hook '*pre-command-hook*
　　 (lambda ()
　　　 (format s "~S~%" *last-command-key*))))

とかで xyzzy から | のキーと \ のキーを区別できるのか確認してみて、区別
できるならどうにかなる。

123:115
09/01/07 15:33:36 b8Hcco5X0
>>120
うまくいきました！
>>121-122 の方もありがとございました。

124:115
09/01/07 15:38:40 b8Hcco5X0
>>123
あ、ぬか喜びだった…。ダメですね(^^;;

>>122
意味がさっぱりわからないのでググってみて
*scratch* に張り付けて C-j してみたところ
(#<lexical-closure: (anonymous)> editor::html+-delete-highlight-tag)
と出ました…。

125:名無しさん＠お腹いっぱい。
09/01/07 15:53:42 th14gA9I0
>>122 のコードを評価すると *keylog* ってバッファができてるはず
C-x 2 か C-x 5 （ウィンドウ分割）して *keylog* を表示した状態でキーを
押すと、押されたキーが *keylog* の最後に書き出される。
| のキーと \ のキーで違うキーが書き出されてれば、xyzzy でそれらのキー
を区別することができる＝好きな方だけ置き換えることができる。

あと >>120 のは self-insert-command（文字入力）以外は考慮してない。

126:115
09/01/07 16:05:28 b8Hcco5X0
*last-command-key* が定義されていないと言われるので
*last-command-char* で試したところ、両方同じ #\\ でした…。
となるとダメということでしょうか。。。

Windows では(正確な言葉を忘れましたが)キーコードだか、
キーボード固有のコードがあるので、それが使えればいいのかもしれませんが…。

# mayu は XP 時代使っていたのですが、Vista では不安定で。

127:名無しさん＠お腹いっぱい。
09/01/07 16:27:04 th14gA9I0
ああごめん＞*last-command-key*
*last-command-char* で正解、俺よく間違える

区別できないんだと xyzzy から何とかするってのは無理ぽ

128:115
09/01/07 17:25:12 b8Hcco5X0
>>127
いろいろとありがとうございましたー

秀Capsで聞いてみようかな

129:名無しさん＠お腹いっぱい。
09/01/07 22:36:21 Ow0YkfJS0
常駐ソフトなんて使うよりkeyswap等でキーマップかえてしまった方が
精神衛生上よろしいと思うよ

130:名無しさん＠お腹いっぱい。
09/01/08 10:02:36 n1jMUcgn0
AltIMEはshiftなしで _ が入力されるな
キー入れ替えしてそうだけど

131:115
09/01/08 13:19:38 eR9Nxt/C0
>>129-130
AltIME でうまくいきました。
KeySwap、調べてみます。
アドバイス、ありがとうございしたー！

132:名無しさん＠お腹いっぱい。
09/01/08 22:39:02 a6DUHH3L0
俺は窓の森で "ろ" を "_"にしてるよ

133:名無しさん＠お腹いっぱい。
09/01/08 22:56:21 GkM+aCj90
ひらがな印字されてないからどのキーかわかんないよぅ

134:名無しさん＠お腹いっぱい。
09/01/09 01:29:52 DiLdaPq80
左シフトの１つ左のキー

135:名無しさん＠お腹いっぱい。
09/01/09 01:47:07 fTnnW/Bt0
左シフトの左か…

136:名無しさん＠お腹いっぱい。
09/01/09 09:24:06 t4YmIpuZ0
AutoHotKeyマジおすすめ

137:132=134
09/01/09 23:39:35 DiLdaPq80
どうやら泥酔していたらしい・・・
窓の森⇒窓使いの憂鬱

138:名無しさん＠お腹いっぱい。
09/01/10 23:47:19 eoFho5B70
C-x & でコマンドを実行しています。
その時に現在開いているファイル名を渡す簡単な方法はありませんでしょうか？

たとえば、hoge.rb というファイルを開いていて
& ruby \0
とすると ruby hoge.rb と展開してくれる方法です
(ruby-modeだとC-x C-eなどでカレントバッファをそのまま実行できますので、
これはあくまで例です)

139:名無しさん＠お腹いっぱい。
09/01/11 09:55:35 MqTiKgzj0
\0を置換してexecute-subprocessすれば良いのでは。

(defun my-execute-subprocess (cmd)
(interactive "e& \np" :history0 'execute)
(setf cmd (substitute-string cmd "\\\\0" (buffer-name (selected-buffer))))
(execute-subprocess cmd))
(define-key ctl-x-map #\& 'my-execute-subprocess)

140:名無しさん＠お腹いっぱい。
09/01/12 02:58:56 mJXd2Ong0
>>139
あああ、そうか、自分で置換してしまえばいいのか。
いけそうです。試してみます。
ありがとう！

141:名無しさん＠お腹いっぱい。
09/01/15 13:11:25 USYptWuj0
Emacs Muse
ってすごそう。

142:名無しさん＠お腹いっぱい。
09/01/15 23:30:48 Q9sE3soY0
>>141
確かによさそう。移植できそうかみてみたら15000 行ぐらいあった。
とてもじゃないが俺には無理。誰か移植してくれないかなあ。

143:名無しさん＠お腹いっぱい。
09/01/23 16:32:17 yUzeNc6r0
ATOK2008と一緒に使っています
xyzzy上では何故か、左altを押しながらキーを押すと半角ｶﾅが入力されます
そのため、shift+alt+<等のキー入力が正常に出来ません
解決法をご存じの方がいればよろしくお願いします

144:名無しさん＠お腹いっぱい。
09/01/23 20:36:53 8YChGlPi0
>>143
聞いたことがない現象で解決法ではないが、
「Esc」を一度押してから「Shift+<」とかでも駄目？

145:名無しさん＠お腹いっぱい。
09/01/23 22:25:45 4Cx5pznR0
ちょっと見当がつかないが
他のエディタではならない？

146:名無しさん＠お腹いっぱい。
09/01/23 22:37:36 AZgMTc/G0
>>143
Alt と半角カナの組み合わせだとこれを思い出すんですが、
xyzzy だけなんですよね...
URLﾘﾝｸ(xyzzy.s53.xrea.com)

147:名無しさん＠お腹いっぱい。
09/01/23 23:08:24 Flx50adH0
自分の環境でもカナ入力にしてみたら再現したけど
この機会にローマ字入力に変えてみてはいかがか。

148:名無しさん＠お腹いっぱい。
09/01/24 02:11:06 RwA6LstI0
昔パッチを投げたことがあったけど採用されなかった。
しょぼパッチだったからﾅｰ…('A`)

149:名無しさん＠お腹いっぱい。
09/01/24 11:12:46 COIuDqi40
vi-modeを使っていて、vi-insert-modeとvi-normal-modeの間で
キャレットの形状を変更したいと思い

normalへの移行時に
(setq *normal-caret-shape* *caret-shape-block*)
insertへの移行時に
(setq *normal-caret-shape* *caret-shape-thin*)

と設定してやったんですが、案の定というか、他のバッファにも影響が出てしまいます。
本当は現在のバッファのみの変更にしたいのに…

いろいろ探してみたんですが、現在のバッファのみキャレットを変更とか、もしかしてできない感じなんでしょうか。

150:名無しさん＠お腹いっぱい。
09/01/24 11:30:07 dQDuGK7i0
*activate-hook* や *deactivate-hook* で元に戻したりするとか

151:名無しさん＠お腹いっぱい。
09/01/24 11:40:37 eGUTxm/F0
>>149
(make-local-variable '*normal-caret-shape*)
とかでいけるのでは。

152:名無しさん＠お腹いっぱい。
09/01/24 16:58:04 KQG9OcvG0
>>151
special variable だからだめっぽい

153:149
09/01/25 00:36:31 Fk7/Gm820
たしかにmake-local-variableでは無理でした。
で、仕方がないから*activate-hook*でアクティブ時に常にnormalになるよう
書いてみたのですが、これって「バッファがアクティブ」じゃなくて
「xyzzyがアクティブ」な時みたいですね。リファレンスの説明とちがう…！

とりあえず今のところはキャレットの色を変更することで凌いでいます。
ありがとうございました。

154:名無しさん＠お腹いっぱい。
09/01/25 16:39:56 4z5bexgn0
そんなに重たい処理するんじゃないから、*post-command-hook* で代用すればいいんじゃない？
set-bufferを書き換え・・・は面倒か。

155:名無しさん＠お腹いっぱい。
09/01/26 00:48:56 kY3jFyIMP
書き換えはencap.lを使えばそう難しくないけど、set-bufferだけだと
バッファバーのタブをマウスでクリックしたときに反応しないんだよね。
バッファバーは内部実装らしく、他のタブバーみたいにコールバック関数
を指定できないからこれを考慮にいれると難しい。
タブをマウスで操作しないならset-bufferにhookを追加してローカル変数と
関数を用意してあげればできそう。

156:名無しさん＠お腹いっぱい。
09/01/26 15:14:18 7Gl/ESak0
Ｃっぽい表記（calcで入力できるような）の入り組んだ式をS式に脳内変換するのが大変で困ってるんだけど、なんかいい技ってないですか？
calc.lのcalc-stringで(eval expr)してるところを(print expr)に置き換えるとS式を表示できるんだけど、
これをlispのソース書いてるところでキー一発で取れるような感じにしたいんですが

157:名無しさん＠お腹いっぱい。
09/01/26 21:42:01 av5q08hZ0
>>156
やりたいのは、
前置→中置？
中置→前置？
どっちなのかよく分からないんだけど

158:名無しさん＠お腹いっぱい。
09/01/27 01:27:37 w1388CDm0
>>157
やりたいのは中置→前置です
ていうか中置、前置って単語が思い当らなかったｗ
これでググったらいろいろネタ転がってましたね

159:名無しさん＠お腹いっぱい。
09/01/27 23:14:20 /g4PQ96z0
calc.l 見ながらやってみた

(defun insert-arithmetic-expression (expr)
　 (interactive "sExpression: ")
　 (with-input-from-string (s expr)
　　 (do ((token nil)
　　　　　(tok (ed::calc-next-token s) (ed::calc-next-token s)))
　　　　 ((null tok) (let ((ed::*calc-token* (nreverse token)))
　　　　　　　　　　　 (insert (format nil "~A" (ed::calc-expr)))))
　　　 (push tok token))))

M-x insert-arithmetic-expression RET a + b * c / d RET
で (+ a (/ (* b c) d)) が挿入される

160:名無しさん＠お腹いっぱい。
09/01/30 17:44:52 NKdtRmXw0
ショートカットがwindows流と違いますが
windows流(ctrl+cとか)に一括で変更出来ますか？
手動で1個1個変えていく以外の方法があれば教えてください
よろしくお願いします

161:名無しさん＠お腹いっぱい。
09/01/30 17:52:26 R5tqYyVX0
URLﾘﾝｸ(www.netlaputa.ne.jp)

162:名無しさん＠お腹いっぱい。
09/01/30 18:01:36 NKdtRmXw0
>161　すごい。できました。ありがとう。

163:名無しさん＠お腹いっぱい。
09/01/30 18:14:16 WMo3wcJi0
今はwikiもあるし、検索したり本を読んだりして何とかなるからありがたいが・・・

付属のドキュメントやら作者のサイトやらファンクラブやらで
「ここ見ろ」と言われても404ばっかりだったからなあ

164:名無しさん＠お腹いっぱい。
09/01/30 18:44:51 bX4auO4XP
自分がお世話になっているlispのUPDATEがないかとHPみにいったときに、
404になってたりすると泣ける

165:名無しさん＠お腹いっぱい。
09/01/30 20:27:56 ZFYpItGm0
俺もDLしたっきりだいぶ放置してたなあ
便利になってるのも気づかなくて
何かでHiroiさんとこ教えてもらったのが再開のきっかけだった

166:名無しさん＠お腹いっぱい。
09/01/30 21:16:54 xwWqT1Kf0
xpiのxpiinitの引数って３文字以上の文字列ならなんでもOKってことでいいのかな。
なんかソース当たるとそういうことにしか見えないんだけど。

167:名無しさん＠お腹いっぱい。
09/01/31 13:06:09 lCY8m8Ot0
html+-modeをnetinstallerから導入したのですが
配布サイトのサンプル画像のように属性に色がついていません
URLﾘﾝｸ(www1.odn.ne.jp)
xyzzyの色つけのままな感じです
どうすれば上手く動くのでしょうか？

導入方法等はhtml+-mode.lの通りに
siteini.lの記述と再ダンプまでやったのですが
何処が悪いのか分かりません
よろしくお願いします

168:名無しさん＠お腹いっぱい。
09/01/31 13:45:41 8PLbkM0b0
属性って <div class="xxxx"> とかの class= の部分だと思うけど、
標準のhtml-modeでも色分けされてない？
たぶんキーワード2がそうだと思うけど、色の方の設定で他と一緒になってるとか。

169:167
09/01/31 13:55:32 lCY8m8Ot0
>168
それでいけました。html+-modeで色づけ出来ると勘違いしてました。
ありがとうございます。

170:名無しさん＠お腹いっぱい。
09/02/01 21:47:55 ZIRLBD/V0
diff-detailの使い方を教えてください
標準装備？のdiffを使うところで詰まっています
1：M-x diff
2：2つのファイルのパス入力
3：このあとに「'diff'は、内部コマンドまたは外部コマンド、」と出て
M-xのモードが終了してしまいます

あと、2の部分は手打ちしかないんでしょうか？
表示しているファイルを自動で選択してくれるとか
簡略化出来るのでしたら教えてください

よろしくお願いします

171:名無しさん＠お腹いっぱい。
09/02/01 22:14:22 ZIRLBD/V0
xyzzyとFirefox3+firebugで
javascriptファイルを編集後
Fx3でエラーが出ると
セーブが出来なくなります
「ファイル名.js
プロセスはファイルにアクセスできません。別のプロセスが試用中です。」
とエラーが出てしまいます。

他のテキストエディタでは起きませんでした
xyzzy側の設定等でセーブ出来るようになるでしょうか？
よろしくお願いします

172:171
09/02/01 22:20:58 ZIRLBD/V0
排他制御を変更して解決しました
失礼しました

>170をお願いします

173:名無しさん＠お腹いっぱい。
09/02/02 09:29:26 UhZvKkPH0
書き込み禁止バッファ
を解除しようと、ctrl+w or q を入力したのですが
同じ警告が出て解除できません

コマンドはどこで入力するのでしょうか？
（本文クリックしてからやってます）
やり方はあってるでしょうか？
よろしくお願いします

174:名無しさん＠お腹いっぱい。
09/02/02 09:56:48 8VBlc+9t0
>>170
diff.exe は同梱されてないから、cygwinから引っこ抜くとか、
以下などから調達してxyzzy.exeと同じフォルダに置いておく。
URLﾘﾝｸ(www.fsci.fuk.kindai.ac.jp)

後者については、自分でlisp書けば色々できる。
カレントはいいとして、比較対象をどう選ぶかは色々好みがあるだろうけど、
例として、あらかじめ現在のバッファと次のバッファのファイル名が表示されるようにする場合は、
(defun diff-current-and-next ()
(interactive)
(let (
(filenew (read-exist-file-name "diff(new file): "
:default (get-buffer-file-name)))
(fileold (read-exist-file-name "diff(old file): "
:default (get-buffer-file-name (get-next-buffer (selected-buffer))))))
(diff filenew fileold)))

175:名無しさん＠お腹いっぱい。
09/02/02 11:23:38 /vs9R5D30
>>173
C-x C-qの間違いじゃね？

176:名無しさん＠お腹いっぱい。
09/02/02 13:38:22 b+BJjyNa0
ウインドウズバーが
xyzzy@文書名
なので、タスクバーに表示されている時に文書名が判別しにくいです
文書名だけを表示するように設定する方法があれば教えて下さい

177:名無しさん＠お腹いっぱい。
09/02/02 15:17:20 8VBlc+9t0
[ツール] - [共通] - [表示]タブ - キャプションの表示順を逆にする

178:名無しさん＠お腹いっぱい。
09/02/02 16:33:33 x3iCfx7F0
>>177
ずっと使ってて初めて知ったｗ
思わぬ収穫。デフォルトこっちにしてくれたらいいのに

179:名無しさん＠お腹いっぱい。
09/02/02 18:37:47 51Rr9j4J0
複数開くことないから気にならないな。

180:名無しさん＠お腹いっぱい。
09/02/02 20:14:23 lrhoKN5N0
; タイトルバーをファイル名のみに
(setq title-bar-format "%b")

181:170
09/02/02 21:08:09 UhZvKkPH0
>174>175
ファイル選択までいけたので気がつきませんでした
diff.exeが入っていませんでした

とはいえ、おなじエラーがでてしまいました
もちっと弄ってみますわ
ありがとうございます

182:名無しさん＠お腹いっぱい。
09/02/03 05:09:04 th44cb470
parenで強調表示されている部分を
クリップボードに取り込むにはどうすれば良いでしょうか？

183:名無しさん＠お腹いっぱい。
09/02/03 12:16:34 WuUpWZi0O
mark-sexpなんて便利なものがあるのを今まで知らなかった

(defun copy-sexp-to-clipboard ()
(interactive)
(save-excursion
(let ((p (point))(m (mark t)))
(when (string/= "(" (buffer-substring p (1+ p)))
(backward-sexp))
(mark-sexp)
(copy-region-to-clipboard (point) (mark))
(when m (set-mark m)))))

184:名無しさん＠お腹いっぱい。
09/02/03 19:43:50 KbymNrp20
>>183
書いて頂けるとは、、、
本当にありがとうございます。

185:名無しさん＠お腹いっぱい。
09/02/04 02:01:38 P8T1YP1/0
ツールバーのカスタマイズってどうやるんですか？
M-x netinstaller,m-x diff,ウィンドウの分割
とか、ボタンを押して実行したいです

186:名無しさん＠お腹いっぱい。
09/02/04 08:34:35 MFPpw9bCO
ツールバーがついてる拡張lisp見るのがはやいよ。

187:名無しさん＠お腹いっぱい。
09/02/05 12:44:29 Z0bAw4Yj0
>175
C-x C-qはどうやって打てばいいんでしょう？
M-xはわかったのですが
よろしくお願いします

188:名無しさん＠お腹いっぱい。
09/02/05 13:41:53 uPIlq63Q0
C-a = Ctrl+a

189:名無しさん＠お腹いっぱい。
09/02/05 13:54:17 haYAC/uN0
>>175
C-x C-q はつまり、
Ctrl+x を押して、次に Ctrl+q を押すということ。
Ctrl+x が押されると、下のステータスバーにC-x-って表示が出る。

メニュー＞ヘルプ＞キー割り当て一覧
で色々コマンドが出てくるから試してみると良いよ。
あと細かい説明はxyzzy wikiのQuickTour/キーバインドでも見るとよろし。

190:名無しさん＠お腹いっぱい。
09/02/05 13:54:52 haYAC/uN0
安価ｗ ↑ >>187 ね。

191:名無しさん＠お腹いっぱい。
09/02/05 14:06:39 Z0bAw4Yj0
>188-190>175
なるほど。M-xみたいに特殊なキーバインドかと思ってました
おかげでwindow風にしていたのを見落としていました
一覧見てみます
ありがとうございました

192:名無しさん＠お腹いっぱい。
09/02/06 02:45:24 Z7eG9fvx0
KaTeXモードでのキーバインドを変更したいんだけど、sinteinit.lに
(define-key elisp::*KaTeX-mode-map* #\tab 'self-insert-command)
って記述すると、コンパイルはうまくいくんだけど立ち上げ時に
変数が定義されていません: elisp::*KaTeX-mode-map*
って出る・・・

原因わかる人いますか？

193:名無しさん＠お腹いっぱい。
09/02/06 06:22:45 132Mbzld0
原因はエラーメッセージの通り．
> 変数が定義されていません: elisp::*KaTeX-mode-map*

具体的には
キーバインド変更の前に (require "katex") していない，
あるいは
キーバインド変更を
(add-hook 'elisp::katex-mode-hook #'(lambda ()
(define-key elisp::*KaTeX-mode-map* #\tab 'self-insert-command)))
のように書いていない，といった原因が考えられます．

194:名無しさん＠お腹いっぱい。
09/02/06 09:21:03 Z7eG9fvx0
>>193
(require "katex")
で動くようになりました♪
elisp::*KaTeX-mode-map* だから require "elisp" だけでいいのかなって思ってたんですけど・・・
もっとlispの勉強します。ありがとうございました！

195:名無しさん＠お腹いっぱい。
09/02/06 15:05:21 nKuGjfCi0
svn-mode について質問です。

svn-mode for xyzzy
URLﾘﾝｸ(www5d.biglobe.ne.jp)
> svn update
> ...(略)...
> ワーキングコピー全体をアップデートするには、アップデートしたいディレク
> トリの中のファイルを一つ開いて、C-c Uします。

とあるのですが、実行するとステータス行に"Unlocked file"と表示されるだけ
です。
どうしたらディレクトリのアップデートが出来るでしょうか？

ちなみに上のページに
> コミットせずにロックを解除するためには、ロックを解除したいファイルバッ
> ファ上でC-c Uします。
とあるので、こちらが動いているようです。

LISPはよく分からないのですが、svn.l の142行目以降を見ると、C-c Uのキー
バインドはアンロックのみのようです。

807行目から svn-updateの定義がありますが、残念ながら自分は読めません。

196:名無しさん＠お腹いっぱい。
09/02/06 20:28:22 BqGn3TGk0
selection-(for|back)ward-paragraphってないのかな？

197:名無しさん＠お腹いっぱい。
09/02/06 20:47:21 NriqglfrP
>>196
あなたの期待通りの動作をするものか解らないが…。

(defun selection-forward-paragraph (&optional (arg 1))
(interactive "p")
(ed::begin-selection)
(forward-paragraph arg))
(defun selection-backward-paragraph (&optional (arg 1))
(interactive "p")
(selection-forward-paragraph (- arg)))

198:名無しさん＠お腹いっぱい。
09/02/06 22:33:27 BqGn3TGk0
>>197
ありがとう。やっぱりそういう話なんだね。

話は変わるんだが、xyzzyでemacsに近い(for|back)ward-paragraphってできないだろうか？
例えば前後の空白行に移動するとか。
具体的に、文頭にスペースが入ってる行を飛ばしたいんだができない。

199:名無しさん＠お腹いっぱい。
09/02/06 23:25:47 zvX2m+mM0
>>198
>例えば前後の空白行に移動するとか。
>具体的に、文頭にスペースが入ってる行を飛ばしたいんだができない。
それだけなら re-search-forward で十分な気がするんだが

200:名無しさん＠お腹いっぱい。
09/02/07 10:36:35 mPJMTfQ40
エディタにドロップ＆ドラッグで開いた場合だと
「最近使ったファイル」に載りませんよね
載せる方法って何かありますか？

201:名無しさん＠お腹いっぱい。
09/02/07 10:38:11 mPJMTfQ40
>200　ごめん、載ったわ

202:名無しさん＠お腹いっぱい。
09/02/08 04:17:09 r0F6JNvk0
>>195
C-c u でディレクトリのアップデートみたいだけど。
逆にファイル単位のアップデートができない？

203:195
09/02/08 14:55:41 Y++Ub6VA0
>>202
うわー、そうだったのですか？！すっかり勘違いしていました。
ありがとうございます。
確かに1ファイルだけにしては、むやみに時間がかかるとは思っていたのですが。

204:名無しさん＠お腹いっぱい。
09/02/08 21:22:49 Y++Ub6VA0
すみません、また質問です。

プログラムのソースコードのアウトライン表示をするツールは xyzzyにありま
せんか？

outline-tree2を試してみましたが、例えばPHPのソース上で実行してみると
「変数が定義されていません: editor::*list-function-buffer*」
というエラーメッセージがポップアップされるのみでした。

205:名無しさん＠お腹いっぱい。
09/02/08 23:59:46 Y++Ub6VA0
>>203
補足ですが、この仕様だと、xyzzyで開けないファイル(画像やpdfなど)しかな
いディレクトリは、xyzzyのsvn-modeだと更新できないと思います。
そういうところはコマンドラインを使えということなのかもしれません。

206:名無しさん＠お腹いっぱい。
09/02/09 02:36:13 nE9yIBuz0
>>204
URLﾘﾝｸ(ohkubo.s53.xrea.com)
1.TreeView.dll (ver. 1.03 以降) (kazu.y さん)
2.color (ここから直接ダウンロード)
3.win-window
4.treeview (ここから直接ダウンロード)
5.buf2html
6.outline-tree2

1～6順番に入れましたか？
インストールできてればどのソース表示しても多分エラーは出ません
ツリー表示になるか、ならないか、です

きれいなソースならインデント量辺りを指定すると見えなくは無いです
通りすがりの素人意見ですが何かの参考になれば

なおPHPの定義はどうも無いみたいです。他にCとかC++とかPOVなんかも見当たりません
言語系の定義を増やしたい時は自分で追加するしかないんですかね？JAVAもβっぽいし
ってなんか便乗質問になってしまっているｗ

207:名無しさん＠お腹いっぱい。
09/02/09 11:34:42 yAcW4DaH0
>>206
php 用
URLﾘﾝｸ(se-suganuma.blogspot.com)

208:204
09/02/09 12:24:21 XXPE1VTe0
>>206-207
すみません、そもそも「PHPの定義」という意味が分かりません。
各言語ごとにoutline-tree2用の定義ファイルが必要なのでしょうか？
URLﾘﾝｸ(ohkubo.s53.xrea.com) のページやドキュメントを読んでも、や
はり分かりません。

>>206
> 1～6順番に入れましたか？
はい、その順でNetInstallerから導入しました。

209:204
09/02/09 12:39:39 XXPE1VTe0
各言語ごとの定義、という話でさらに分からないのは、実は今現在、当方の環
境で、PHP, Ruby, Pythonなどのアウトライン表示ができていることなのです。

・PHPだけでなく、Ruby, Python などのコードも *list-function-buffer* がな
い、というエラーになっていた

・*list-function-buffer*という変数を xyzzyのインストールディレクトリで
grep検索したところ、lisp/listfn.lというファイルで定義されていた。

・このファイルのメインの定義は list-function というコマンドだったので、
適当なバッファで M-x list-function を実行。（すると関数一覧がポップアップ）

・これを一度実行したあとは、どのバッファでも、PHP, Ruby, Python などの
アウトライン表示が可能になった。

さらに、C++の表示も可能になっています。

・C++の場合、ステータス行に「outline-tree: 適切な XTAGS ファイルが存在
しません。」というメッセージが表示されていた。

・「ツール」→「TAGSファイルの作成」でXTAGSファイルを作成。

・するとC++でもアウトライン表示が可能に。

なお、M-x list-function を実行するだけでは C++ のソースはアウトラインの
表示はできず、逆に TAGSファイルを作成しても、PHP, Ruby, Pythonなどのソー
スはアウトライン表示できませんでした。

両者はお互い独立しているようです。

210:204
09/02/09 13:10:28 XXPE1VTe0
ということで、とりあえず当方では各言語のアウトライン表示が可能になった
のですが、

・皆さんの環境とエラーメッセージなどが違う。
・皆さんのおっしゃっている「定義」の意味が分からない。

という点の疑問は残っております。実用上の問題ではありませんが、何かアド
バイスをいただけたら幸いです。

ちなみに当方がoutline-tree2をインストールしたのは去年(2008年)の8月で、
すべてNetInstaller経由でした。

しかしoutline-tree2の更新日時は 2006-10-25 なので、2009年現在、バージョ
ン違いは考えにくいですね。

211:名無しさん＠お腹いっぱい。
09/02/09 14:03:10 c0DnBQF+0
skkのかなモード(▽せいき)の変換で
性器まできたところで突然の(>_<)ライフ
「生氣を孕んで點滅す」

212:名無しさん＠お腹いっぱい。
09/02/09 16:27:18 nE9yIBuz0
>>210
自分の言う定義とはアウトラインタイプの選択にある言語を指して言ってました
JAVAやHTMLはあるけどCやC++は無いなと
これからXTAGSが何か分かって無い素人が色々と話しますｗ
ごちゃごちゃ自分もいじってると
　C++のソースを開く
　アウトラインタイプの中のlist-functionを選択する
　>>204と同じく変数が定義されていませんとエラーを吐く
list-functionは思うにバッファにある関数を見つけて一覧にするものだと想像します
関数も指定してないのにlist-functionモードを選択したからエラーを吐いたのかと
　ソースファイルを開く
　M-x list-functionで関数取得
　アウトラインタイプの中のlist-functionを選択する
　以後そのリストを参照して関数によるアウトライン表示が可能に
という流れでいろんな言語の関数ごとのアウトライン化が出来るのではなかろうかと
なお自分の環境ではlist-functionでPHPソースの関数を吐き出しませんでした

213:名無しさん＠お腹いっぱい。
09/02/09 16:43:29 yAcW4DaH0
>>212
php で list-function 使うには、
php-mode を導入するといいよ

214:名無しさん＠お腹いっぱい。
09/02/09 16:52:54 nE9yIBuz0
情報どもです。なんとなくそんな気はしてました
PHP使わないもので落としてないのですｗ

215:名無しさん＠お腹いっぱい。
09/02/09 21:56:02 dbMRGHvG0
ども。
outline-tree-create-outline-list-function ですが、
(boundp 'ed::build-summary-function) だけの判断で実行しているのが
まずいですね。
*list-function-buffer* も考慮するようにしときます。

216:名無しさん＠お腹いっぱい。
09/02/09 22:01:20 1pVGrZVX0
>>199
それだとバッファ先頭から最後に（またはその逆に）移動しちゃう気がした。なんかフラグあるかもだけど。

paragrph.lのparagraph-startとparagraph-separateをいじればできそうな気もする。
lisp-modeの時は期待してる動作になるんだよね。
でもこれってdefvar-localだからglobalにできるのかよくわからない。もう少し調べてみることにするか。。。

217:名無しさん＠お腹いっぱい。
09/02/09 22:16:01 JXcsg8zW0
>>216
> 　でもこれってdefvar-localだからglobalにできるのかよくわからない。もう少し調べてみることにするか。。。

setq-default とか？

218:名無しさん＠お腹いっぱい。
09/02/10 07:39:48 vMdxgq710
ac-modeの設定を下みたいに書いてLaTeXモードのキーワード補完したいんだけど, 動かない・・・
原因わかる人いたら教えてください. ac-modeに入っているの, LaTeXモードでキーワードファイルetc/TeXを読み込んでるのは確認済みです.

(add-hook 'ed::*LaTeX-mode-hook*
'(lambda()
(ac-mode-on)
(setf *ac-mode-command-list*
'(ac-mode-try-complete-keyword
ac-mode-default-keybind
)
)
)
)

219:名無しさん＠お腹いっぱい。
09/02/10 20:16:11 hH5ZVNhN0
>>217
ありがとう！できたよ！
参考まで、lispmode.lをぱくってこんな感じにした。
(setq-default paragraph-start "^$\\|\f")
(setq-default paragraph-separate paragraph-start)

- ほげほげ
　　ふがふが
- もふもふ

↑こんなのをbackward-paragraphで一気に飛ばせるようにしたかったの
（これは全角スペース入れてるけど半角の場合もね）

220:名無しさん＠お腹いっぱい。
09/02/12 19:01:38 eoi2vhwo0
>>218
少し気が向いたので、ちょっと見てみたんだけど、あんまり簡単には
いかないみたいだね。ヒントになるかもしれないから、ちょっと
見たところだけ書いておくよ。

キーワードの補完は、ac-mode.lのac-mode-try-complete-keywordという
関数でやっているようだけど、この関数はキーワードファイルとして、
keyword-hash-tableを元に、補完しているみたい。だけど、この
keyword-hash-tableはLaTeX-modeでは定義されないようなので、
手動でキーワードファイルを定義しないとだめかも？

でも(setf ed::keyword-hash-table ed::*LaTeX-keyword-hash-table*)と
それっぽいことをやっても、補完はされなかった。もしかしたら、
TeXコマンドの\を、補完の候補を選ぶときに単語として除外して
考えているのかも？

221:名無しさん＠お腹いっぱい。
09/02/13 16:19:19 e4MgX2S80
ahk-modeを使っているのですが、ahkのインストーラーを走らせていない環境だと、
ahk-modeが起動しなくて、xyzzy自体もポータブル化しようとしているため困っています。

ahk-mode.lにてレジストリを使っている箇所がわかったのですが、

(defun get-ahk-exe-dir ()
(read-registry "SOFTWARE\\AutoHotkey" "InstallDir" :local-machine))

これを任意の固定パスを指定できるように変えることはできないでしょうか？
できれば、ドライブ省略できるようになればよいのですが・・・
(d:\soft\AutoHotKeyでなく、\soft\AutoHotKey で)

222:名無しさん＠お腹いっぱい。
09/02/13 21:41:52 o7U0NBT20
>>221
ドライブ省略した場合は、xyzzy.exeと同じドライブでOK?

(defvar *ahk-exe-dir* nil)
(defun get-ahk-exe-dir ()
(format nil "~A:~A"
(pathname-device (si:system-root))
*ahk-exe-dir*))

;; ahk exe のパスを指定
(setf *ahk-exe-dir* "\\soft\\AutoHotKey")

223:名無しさん＠お腹いっぱい。
09/02/14 13:58:53 Bi/ao9JI0
>>222
> xyzzy.exeと同じドライブでOK?
YES!!
やった、うまくいったー。

ついでなので、ドライブ文字がある場合と、変数に何も設定してない場合は
レジストリから読むように対応してみました。
作者さんにパッチおくっととこう。

(export
に
*ahk-exe-dir* を追加して、

(defvar *ahk-exe-dir* nil)
(defun get-ahk-exe-dir ()
　　(if *ahk-exe-dir*
　　　　　　; *ahk-exe-dir*変数から読む。
　　　　　　; ただし、ポータブル可対応のためドライブが省略されていたら、
　　　　　　; xyzzyのあるドライブ名を付加する。
　　　　　　; 例:
　　　　　　;　　 dドライブからxyzzyを起動していた場合で、
　　　　　　;　　 *ahk-exe-dir* が \soft\autohotkey なら、d:\soft\autohotkey になる
　　　　　　(if (string-match "^\\\\" *ahk-exe-dir*)
　　　　　　　　　　(format nil "~A:~A"
　　　　　　　　　　　　　　　　　　(pathname-device (si:system-root))
　　　　　　　　　　　　　　　　　　*ahk-exe-dir*)
　　　　　　　　*ahk-exe-dir*)
　　　　; AutoHotKeyのレジストリから読む
　　　　(read-registry "SOFTWARE\\AutoHotkey" "InstallDir" :local-machine)
　　　　))

次ページ