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

xyzzyってさ、一見さんお断りの京都料亭みたいでさ、何から手をつけていいのかわからないでしょ？
とりあえず，初心者同士で解決できる問題はまず過去ログ・グーグルで検索した後ここで相談しましょう．
たとえば
　・ここのHPに書いてある通りにやりましたができません．
　・xyzzyが起動しなくなりました．
　・キーバインドってどうやって変更するの？
初心者の私が答えられるのはこの程度です．
自分でlispが書けるような方，こんな機能が欲しいのですが
だれか作ってくださいという方は Win板本スレへ。

■ 前スレ
xyzzyの使い方が分からぬやし 励ましあえ その４
http://pc5.2ch.net/test/read.cgi/software/1073911622/l50

■ xyzzy Part11 @Win板（通称：本家）
http://pc5.2ch.net/test/read.cgi/win/1085301777/l50

過去ログ & 関連リンクは>>2-5あたりに。

■ 過去ログ
4: http://pc5.2ch.net/test/read.cgi/software/1073911622/
3: http://pc2.2ch.net/test/read.cgi/software/1063367821/（DAT落ち？）
2: http://pc2.2ch.net/software/kako/1054/10541/1054141308.html
1: http://pc2.2ch.net/software/kako/1041/10413/1041326960.html

■ 関連リンク
・xyzzy 公式サイト
http://www.jsdlab.co.jp/~kamei/

・xyzzy日記（グラフィカルな説明・初心者のためのやさしぃ入門書）
http://web.sfc.keio.ac.jp/~t01089ti/xyzzy.html

・HIE no xyzzy （QandA, 拡張ライブラリ集, Note, Tipsなど）
情報てんこもり，大抵の拡張リスプはここに集められている
http://hie.s64.xrea.com/xyzzy/

・2ch-mode、www-mode
http://www1.mirai.ne.jp/~gyo/index.html

・黒い羽根 （デフォルトキーバインドの解説など）
http://www.uranus.dti.ne.jp/~shiro-/

・XyzzyWiki
http://web.sfc.keio.ac.jp/~t01450ms/xyzzy/wiki/

・局所アンテナwith はてな
http://a.hatena.ne.jp/i9N/

・xyzzy lispを勉強出来るページ
http://www.geocities.co.jp/SiliconValley-Oakland/1680/xyzzy_lisp.html

2get

>>3
ちょっとあなた！！
可愛いじゃないの。

>>1
乙かれちゃーそ

2get
ごめん
次スレ立てなきゃいけない状況とは露知らずに糞レスしてました

マインスイーパってなんの話？＜前スレ

>>7
> マインスイーパってなんの話？＜前スレ
ttp://www.google.com/search?q=xyzzy+%E3%83%9E%E3%82%A4%E3%83%B3%E3%82%B9%E3%82%A4%E3%83%BC%E3%83%91&ie=UTF-8&oe=Shift_JIS&inlang=ja

2ch-modeに関して質問があります。
前スレから引用

> 823 [04/06/02 20:03 ID:oXxmYCf2] 名無しさん＠お腹いっぱい。 <sage>
>
> 2ch-modeを使っている方，汎用実況live10を読み込めますか？
> 「スレ一覧の形式がわからんよ」と文句を言われてしまうのですが・・・
>
> 824 [04/06/02 20:06 ID:oXxmYCf2] 名無しさん＠お腹いっぱい。 <sage>
>
> >823
> 自己レス．汎用実況live10が廃止されて（？），汎用実況live8にリダイレクトされるように
> なっているのが原因のようです．お騒がせしますた

このようにリダイレクトされている場合、私は、2chmenu.htmlとbbsmenu.txtの該当箇所
を手動で修正しているのですが、リダイレクト先を自動で取得するような方法はありま
すでしょうか？

よろしくお願いいたします。

10get

2ch-mode 快適だー。もっと早く使えばよかった。

ところで、他の 2chブラウザからのログ移行ってどうしました？

1.過去は振り返らない(ログは捨てた)
2.手でちまちま移した
3.なにか簡単にやる方法がある

特に元janeユーザーの方、3があるなら教えてほしいっす。

俺は１だ。ちなみにkakikomi.txtも毎回起動時に消去している。

今までにも何度か話題に出てきたけど，結局 3の方法は出てこなかったはず

>>12-13
そうか、ありがとさん。
暇見て2でやります。

KaTeXをバイトコンパイルしようとすると，
'return-from'のキャッチャを参照できません:nil
とエラーが出るんですが，何が不味いんでしょうか。

>>15

971 [04/07/01 23:08 ID:6eDAviqT] 919 <sage>

気になってもう一回調べたら >>919 のも微妙に間違ってました。ｽﾏｿ。
今度こそ正しいと思います。
--- emacs.l~Sat May 29 22:02:36 2004
+++ emacs.lThu Jul 1 22:40:58 2004
@@ -403,7 +403,7 @@
(push v dec))));(push (list 'special v) dec)
(when dec
(setq dec (append '(special) (reverse dec)))
- (setq dec (append '(declare) dec)))
+ (setq dec (list 'declare dec)))
`(lisp::let ,vars
,dec
,@body)))
@@ -419,7 +419,7 @@
(push v dec))));(push (list 'special v) dec)
(when dec
(setq dec (append '(special) (reverse dec)))
- (setq dec (append '(declare) (reverse dec))))
+ (setq dec (list 'declare dec)))
`(lisp::let* ,vars
,dec
,@body)))

outline-tree の拡張子毎のモード設定について質問です。

初期設定ファイル (~/.olt) にサンプルにある通り:

(when (find-load-path "html+-mode")
(require "html+-mode")
(add-hook 'ed::*html+-mode-hook* 'olt-setting-html-mode)
(pushnew '(ed::html+-mode . olt-setting-html-mode)
*olt-setting-alist* :test 'equal))

と書き、HTML ファイルを開いて Ctr + R でアウトラインを表示させると、
通常の HTML モード（見出しがタグの種類）になってしまいます。

これを「ツール」-->「アウトライン設定」-->「動作設定」のタブにある
「HTMLファイル (heading)」で開けるようにするには、どうすれば
いいでしょうか？

ご教授よろしくおねがいします。

ども。

>>17
> outline-tree の拡張子毎のモード設定について質問です。
(snip)
> これを「ツール」-->「アウトライン設定」-->「動作設定」のタブにある
> 「HTMLファイル (heading)」で開けるようにするには、どうすれば
> いいでしょうか？

まさにとりあえず実装なものなので、まっとうにカスタマイズできるように
なっていません。
とりあえず .olt に以下のように書くと(多分)期待通りに動いてくれると
思います。

(defun olt-setting-html-mode-heading ()
(setq *olt-make-function* 'olt-make-regexp-html-mode-heading))
(require "html+-mode")
(add-hook 'ed::*html+-mode-hook* 'olt-setting-html-mode-heading)
(pushnew '(ed::html+-mode . olt-setting-html-mode-heading)
*olt-setting-alist* :test 'equal)

>18
作者さんですか？　お忙しい中 outline-tree の話題には、
いつも迅速に答えておられるようで敬服いたします。

お教えいただいた設定で無事、HTML ファイルが開けました。どうも、
ありがとうございました。

これだから xyzzy はやめられない・・・

全然関係ないが、OHKUBO さんの insert-directory-tree が仕事で死ぬほど役に立ったよ。
しかも

　　C　V　S　フォルダ　は　デ　フ　ォ　ル　ト　で　無　視　　


気付いて思わず「神！！」と叫んだのは言うまでもない。

>>19
ども。
> 作者さんですか？　お忙しい中 outline-tree の話題には、
> いつも迅速に答えておられるようで敬服いたします。
まっとうな作りになっていれば質問もいただかないと思うのですが
作りはそうなっていなく、かつ、根本的にまっとうにするにも放置
しすぎていてどうにもならないので、とりあえずモグラ叩き的に
対処してしまっています (^^;;

>>20
ども。
私も insert-directory-tree はかなり頻繁に仕事で使っています。
> 気付いて思わず「神！！」と叫んだのは言うまでもない。
そいつはふぉなみさんに向かって叫んでください (^^;;

m-x shell
から
calc[Enter]
うまく起動しねぇ！
プロセスはうごいてるけどウィンドウが出なせん
うまい起動の仕方教えてPLIEEZ

>>23
M-x calc
じゃねーの？

>>24

誤解させてすんません
ap-us01.usen.ad.jp
C:\WINDOWS\system32\calc.exe です
regedit.exeなんかもおんなじ挙動なんです

shellでWindowsアプリケーション起動せんほうがよいのかなー

>>25
勘違いｽﾏｿ
うちでは普通に起動した。
ちなみに使ってるシェルはbash。
試しにcmd.exeでやってみたらきちんと起動せず。

C:\>start calc[RET]
とやったら起動した。

>>26
どもです
ちょうど自分もいまstart起動で解決かな〜と考えてました

実をいうとcalcやregedit自体を起動したいんじゃなくて
shellの中でにコンパイルしたWinプログラムを実行したかったんです

おかげさまでコンパイル→実行がshellだけで完結しそーです
親切にどうもありがとう♪

>>25
> ap-us01.usen.ad.jp

これどういう意味？

むっちゃいｐに見えるのは折れだけだろうか？

lispmode.lの４０行目あたりで、
(setf (get 'if 'lisp-indent-hook) 2)
となってるけど、なんで２なのかな？
絶対１の方が正しいと思うんだけど。

参考：
ttp://flex.ee.uec.ac.jp/texi/emacs-jp/emacs-jp_131.html

いつもお世話になります。
outline-treeで
エディタ部
1
1-1
1-2
1-2-1
1-2-2
1-2-2-1
2
のように書いたものを
ツリー表示部
File
┣1
┃┣1-1
┃┗1-2
┃ ┣1-2-1
┃ ┗1-2-2
┃ ┗1-2-2-1
┗2
と階層化表示させたいのですが、どのようにしたらよいのでしょうか。
ツール->アウトライン設定->階層解析の部分をいじってみたのですが
さっぱりわかりませんでした。
わかりづらい説明で申し訳ないのですが、どなたかご教授ください。よろしくお願いします。

ども。
>>31
[ツール]-[アウトライン設定]-[正規表現] の設定でも可能ですが、
.olt に以下のを書いておくのが手間がかからないかなと思います。
ここでは、一例として text-mode の hook の最後に引っ掛けて
text-mode ではデフォルト使用にしてみています。

;; number-and-hyphen 用 (1, 1-1, 1-1-1, 1-1-2, ...)
(defun olt-make-regexp-number-and-hyphen (root-hitem)
(olt-make-regexp-internal
:root-hitem root-hitem
:layer-regexp-list
'("^[1-9][0-9]*\\(?:[^-0-9\n].*\\)?$"
"^[1-9][0-9]*\\(?:-[1-9][0-9]*\\)\\{1\\}\\(?:[^-0-9\n].*\\)?$"
"^[1-9][0-9]*\\(?:-[1-9][0-9]*\\)\\{2\\}\\(?:[^-0-9\n].*\\)?$"
"^[1-9][0-9]*\\(?:-[1-9][0-9]*\\)\\{3\\}\\(?:[^-0-9\n].*\\)?$")
:layer-regexp-list-case-fold nil
:layer-regexp-list-order :non-miss
:dependent-layer-regexp-list nil
:dependent-layer-regexp-list-case-fold nil))
(unless (member 'olt-make-regexp-number-and-hyphen *olt-make-function-alist* :key 'cdr)
(setq *olt-make-function-alist*
(nconc *olt-make-function-alist*
'(("* 1-1 等" . olt-make-regexp-number-and-hyphen)))))
(defun olt-setting-number-and-hyphen ()
(setq *olt-make-function* 'olt-make-regexp-number-and-hyphen))
(add-hook 'ed::*text-mode-hook* 'olt-setting-number-and-hyphen t)
(pushnew '(ed::text-mode . olt-setting-number-and-hyphen)
*olt-setting-alist* :test 'equal)

>>30
とりあえずここの if 式のところ参照。
ttp://www.shiro.dreamhost.com/scheme/wiliki/wiliki.cgi?Scheme%3a%a5%b3%a1%bc%a5%c7%a5%a3%a5%f3%a5%b0%a5%b9%a5%bf%a5%a4%a5%eb

30 さんの言ってるような感じのインデント方式は巷ではあまり見ない気がしますが、
CLISP のコーディング規約はそうなってますね。
ttp://cvs.sourceforge.net/viewcvs.py/*checkout*/clisp/clisp/src/CodingStyle?content-type=text%2Fplain&rev=1.12

Emacs の lisp-mode はどうなってるんだろう？
まあ、どれが正しいって話でもないので、自分が見易い様に設定すればいいんじゃないかなあと。

32様
OHKUBO様でしょうか。大感謝です。
多分、自分でいじっていたら、いつになっても実現できなかったです。

outline-treeはxyを拡張した中で一番の頻度で使わせてもらってます。
もっぱら、アイデアプロセッサ(?)のような使い方をしているだけですが。
最近はいろいろといじりたいところもあるのですが、
outline-treeをいじればいいのか、
違うところをいじればいいのかさえわからない状態です。

私はxyzzyを使い始めてまだ間もないのですが、カスタマイズの幅広さ、
なんかわかりませんが、先輩たちがとても親切なところにびっくりしています。
これからもよろしくです。いつか教えるほうにまわりたいなと思いつつ。

ども。
>>34
ぼちぼちと、やれることだけやってみています。
何かのお役にたっているのならば幸いです。

突然スマソ
何故か execute-shell-command が利かなくなってしまいました
eval で (execute-shell-command "help" :output (selected-buffer))とかやってみても

>Microsoft Windows XP [Version 5.1.2600]
>(C) Copyright 1985-2001 Microsoft Corp.
>
>D:\xyzzy>

と表示されるだけで、プロセスが動いた形跡すらないような感じです
(call-process) はちゃんと動くんですが…

OS側の問題でしょうか?

>>36
確証はないですが、↓との絡みが怪しいと直感が訴えています。
ttp://www3.tok2.com/home/xyzzy/ml/msg05391.html

xyzzy 外部の環境が問題になりそうなのでスパッとこう、とは言えないのであれですが。

>>37
どんぴしゃでした
どうもありがとうございました

これ良いね。
あの秀丸より大きなファイルをさくさくいじれる。
強調表示の色も多いし便利だ。

40M程度のファイルだと本当に秀丸と差が出るね。
grepも速い、感激。

ttp://www.uranus.dti.ne.jp/~shiro-/soft/xyzzy/keybind.html
ここに載ってるようにキーバインド変更したいんですがwinkey2.lとかいうファイルを作ればいいの？

せめて、やってみてから質問すれ。

そのページ読んでないの？

や、何をすればいいかもわからない状態です

>>44
なにすればいいかもわからない、って状態からなら
>>2のxyzzy日記から始めるのがいいかな。
そのページの記述も分かるようになると思う。

xyzzyにフォーカスをあわせてるときに、クリップボード拡張から直接
文字列を貼り付けるのはxyzzyの設定をどのように変更したらいいの？
ほかのエディタでは出来るんだけどxyzzyで出来ないので困ってます・・・。

お世話になります。
みようみまねでlispをいじり始めたのですが
難しくてくじけそうです。
今悩んでいることはcount-machesの使い方です。
やりたいことは
"i go [to] the park [on] sunday."
という文字列の\[[^]]+\]部分の数を勘定することで、
ネットを検索してみるとどうやらcount-matcesが使えそうなのですが
どう書いたらよいのかがさっぱりです。
どなたかご教授ください。お願いします。

>>46
xyzzyのほうで対応するならC-vでクリップボードから貼り付けするようにキー定
義を変える.
クリップボード拡張ソフトのほうで何とかするなら貼り付けるウィンドウごとに
送信するキーを設定できるやつを使ってxyzzyにshift-insを送るようにする.
この機能があるやつは割と普通にあると思うけど, たとえばclclがそう.

>>47
count-matchesは今のカーソルより後ろにあるバッファの一致する文字列を数える関数。
第一引数が検索する文字、第二引数はオプションでnon-nilの場合非正規表現で検索。
lisp/search.lに実装があるから見てみるといいよ。
また文字列として正規表現を書く場合は\を\\とエスケープしてやらなくちゃいけない。

バッファの中からじゃなくて（例えば変数に格納した）文字列から、の場合
(defun count-string-matches (regexp word)
  (let ((index 0) (count 0))
    (while (setq index (string-match regexp word (1+ index)))
      (incf count))
    count))
こんなのとかね。
//非正規表現で検索は省略ー。

あ、
(let ((index 0)
は
(let ((index -1)
の間違い。

grepした結果を編集すると元のファイルにも反映されるようなlispないですか？

>>51
もっと具体的にお願い

>>52
grepする→grepのバッファに一覧ができる
で、ここを編集すると直接もとのファイルも連動して編集されるような感じの。

F10とF11で渡り歩くのってそんなに手間かなぁ……。

ttp://d.hatena.ne.jp/yaneurao/20040714
このあたり見てできたらいいなと思っただけなんで
普段はそんなに手間じゃないと思うし。

>>48
うまくいった、助かったよ。ありがとう。

大変申し訳ないのですが・・・

いわゆる原稿用紙なんですが
全角で20文字で改行
全角文字以外のものが入力されたときに警告
20行目で一行を行をあけて改行できるようなmodeを作ってほしいのですが・・・

>>57
警告はダイアログ？
もっと詳しく仕様を書け

つか>>1嫁

警告音とともにステータスバーに表示できないとかかれて、入力されないのがいいと思うのですが、
すれ違いですた・・・

KaTeX 1.67.1.9 でコンパイルエラーが発生した時に、最終行で？　となっている部分にどのコマンド
（e,xなど）を入力しても受け付けない問題は解決したのでしょうか？過去ログでも解決していないよ
うなのですが。調査不足ならスマソ

>>57
mode じゃないですが、

C-u 4 0 M-x set-fill-column
でフィルカラムを40に設定
M-x auto-fill-mode
で40桁で改行挿入モードへ

M-x map-all-to-full-width-hiragana-selection
で半角文字を全角へ変換
M-x fill-paragraph
M-x fill-region
これらで整形をやり直す。

これで7割ぐらいはご希望を満たせてませんか？

>>62
すいませんありがとうございます！
自動改行ができればあとは何とか頑張れそうなのでやってみます

xyzzyのペースト、なんでInsertなんて使いにくいキーを選んだんでしょう？

Windows標準だからじゃない？

>>51
Meadow MemoにそういうことをするElispがあるので、
頑張って移植してみたら。

http://www.bookshelf.jp/cgi-bin/goto.cgi?file=meadow&node=edit%20grep

vi の dd みたいな機能が欲しくて見よう見まねで Lisp を書いてみました。
アドバイスがあればよろしくお願いします。

(defun kill-this-line ()
(interactive)
(kill-region (point) (progn (goto-bol) (point)))
(kill-region (point) (progn (goto-eol) (point)))
(delete-char))
(global-set-key #\C-Delete 'kill-this-line)

>>67
yank のことを考えると一気にやったほうがいいと思う。
(defun kill-this-line ()
(interactive)
(kill-region (progn (goto-bol) (point))
(progn (goto-eol) (forward-char 1) (point))))

>>67-68
read-only バッファで編集できない場合の考慮として 4byte 追加しました。

(defun kill-this-line ()
(interactive "*")
(kill-region (progn (goto-bol) (point))
(progn (goto-eol) (forward-char 1) (point))))

>>69
その4byte(+Xbyte)を取り戻すために。
forward-charの&optional引数って、省略しない人が多いみたいですね。
省略するかしないかはご自由に。

(defun kill-this-line ()
(interactive "*")
(goto-bol)
(kill-region (point)
(progn (goto-eol) (forward-char) (point))))

お三方。ありがとうございます。参考にさせていただきました。
ずいぶん使い勝手がよくなりました。

katex-mode を使いたいのですが、install.txt通りsite-lispに
katexのファイルを入れたのちに、「.xyzzy」に

(require "elisp")
(push '("\\.tex$" . elisp::katex-mode) *auto-mode-alist*)
(autoload 'elisp::katex-mode "katex" t)

と記述しました。
texファイルを開くとちゃんとkatex-modeが動いてるように見えるのですが、
C-C S "title" などの補完入力を試してみると、
「関数が定義されていません declare」と表示されてしまいます。

ログをあさって見ましたが、どれも微妙に違う症状のようなので、
困っています。どなたか助言していただけませんか。

>>72
> 「関数が定義されていません declare」と表示されてしまいます。
そのエラーメッセージから察するにおそらく >>16 で解決します。

>>73
ばっちり動作しました。
的確な助言ありがとうございました。

php-mode を使っているのですが、
現在、どの関数内にいるか知る方法はないでしょうか。
function xxx() {
// ここにカーソルがあるなら xxx と出る
}

>>75
適当
(defun show-function-name ()
(interactive)
(save-excursion
(when (scan-buffer "^function +\\([a-zA-Z_][a-zA-Z0-9_]*\\)"
:regexp t :reverse t)
(message "~A" (match-string 1)) ; ステータスバーに表示
(msgbox "~A" (match-string 1)) ; ダイアログで表示
)))

>>75
(defun show-php-function-name ()
(interactive)
(save-excursion
(scan-buffer "function[ \t]+\\([^ \t\n(]+\\)" :regexp t :reverse t)
(popup-string (match-string 1) (point))))

直前の関数名を表示するんだけど，こんなんでもいいのかな？

>>76-77
ありがとうございます！

これ便利そうなんですが、M-xから実行しなくても常にステータスバーに表示しておくことってできますか?

html+-modeで、タグに挟まれた内容を簡単に置き換える方法はありませんか？

理想としては
<td><b>なんとか・・・かんとか</b></td>
という状況で、「なんとか・・・かんとか」の辺りにカーソルを置いた状況で
そのコマンドを実行するとタグに挟まれた「なんとか・・・かんとか」の部分が
クリップボードの中身と置き換えられる、みたいな操作がしたいんですが。

>>79
自分も希望。

>>79
;;>>77のコードを改造。PHPを知らないので、問題あっても勘弁して。
(defun show-php-function-name ()
;;(interactive)
;;(if (equal buffer-mode 'php-mode)
(save-excursion
(if (scan-buffer "function[ \t]+\\([^ \t\n(]+\\)" :regexp t :reverse t)
(message "~A" (match-string 1)))))
;;)
(add-hook '*post-command-hook* 'show-php-function-name)

function /*hoge*/ foo()といった場合にぶっ壊れますし、
関数のブロックを出ても適用されますが、
(parse-point-syntax)を活用して対処しようにも、
HTMLに埋め込みのPHPコードのことを考えて、とりあえずやめておきました。

>>80
(require "html+-mode")
(defun bar ()
(interactive)
(multiple-value-bind (a b c)
(ed::uplevel-tag)
(when a
(goto-char b)
(let ((p (if (while (scan-buffer ">" :tail t)
(unless (parse-point-syntax) (return t)))
(point)
(return-from bar)))
(regex (compile-regexp (concat "</" c "[> \t\n]"))))
(delete-region
p
(if (while (scan-buffer regex :regexp t)
(unless (parse-point-syntax) (return t)))
(point)
(return-from bar)))
(insert (get-clipboard-data))))))

適当に書いてみました。
終了タグを省略している場合のことが考えられていませんが、
html+-modeそのものがそういう仕様だ。

>>82
あまり詳しくないので留意するよう仰られている部分についてはわかりませんが、
非常に便利に働いております。こういった機能結構便利なので、
phpに限らず希望される方も多いのではないでしょうか。

77,82両氏どうもありがとうございました。
横入りながら優れたlispを頂きました。

>>83
バッチリです。作業効率大幅アップです。ありがとうございます！

47様
お返事遅れてすみません。ありがとうございます。
あのお返事でずいぶん勉強になりました。
今後ともよろしくお願いします。

また、わからないところが出てきてしまいました。
どなたかわかる方教えてください。
formatで最小桁数を変数でいじりたいのですが
(format nil "~xD" 1)　　xは変数
出来るのでしょうか？
concatを使って試してみたのですが、"で
変な動作をしてしまいます。

>>86
いい大人なんだから、
すぐ聞かないで
もう少し自分で挑戦しようよ。
返事も遅いし、他人を道具扱いしてるようで・・・

>87
大人じゃなくて美少女だったらどうしてくれるんだ！ﾊｧﾊｧ

マジレスするが、これがわからんようだと後々厳しいぞ……。
見よう見まねじゃなくて、きちんと勉強すべし。
ttp://www.geocities.co.jp/SiliconValley-Oakland/1680/xyzzy_lisp.html
ここらへんの解説サイトでも見ながら。

>>86
(format nil "~V,D" digit number)
詳細は以下。
ttp://www.lisp.org/HyperSpec/Body/sec_22-3.html

>>87-88
まあ、ここは一応初心者スレなわけだし……
これって、けっこう引っかかり易いところというか判り難いところな気もするしなあ。
M.HIROI さんところに説明ありましたっけ。
ああでも、LISP の書き方ってなるとスレ違いか。

>>77
便利！でもカーソルを動かすとちらつくんだけど、
それは低スペック PC のせい？右にある文字コードや時間はちらつかないんだけど…。

>>90
ちらつくものだと．
カーソル動かしたり文字入力したりするたびにバッファ内を検索する
のは個人的にはどうかと思ってる．
関数名ならC-lでたいてい画面内に表示できるし， C-s や list-function で
目的の関数まで移動もできる．もっと大きなプログラム書くときは，
oltで関数一覧を表示させてやっている．
oltだとtreeを生成する時しかバッファ内を検索しないので処理も軽いけど，
初心者には設定が大変だと思う．自分もまだoltは使いこなせていないし．

>>77はちょっと見る分には手軽でいいのかもしれないけど，常時表示はおすすめ
できないので，他の方法をあたって下さい．

87-89様
お返事どうもありがとうございます。

87様(47?)に不快な気持ちを与えてしまったようなので、
言い訳させてください。
お返事は、その日中に確認しました。
なるべく、教えていただいたことは、何に使ったかを
書こうと思っていたので、自分の書きかけのlispをいじり始めると、
急遽連絡があり、一昨日までネットに触れない状態にありました。
復帰してから書き込めばよかったのですが、書きかけのlispを完成させようと
いじっているとまた、わからないこと発生。
それで、(自分的には)中途半端な状態で書き込みをしてしまいました。
87様の言われること、ごもっともで大変恐縮してしまいます。
せっかく、丁寧に教えてくれた47様に不快な気持ちを与えるような
書き込みしかできなかった自分が悲しいです。すいません。

連続で失礼します。
87様
ttp://www.geocities.co.jp/SiliconValley-Oakland/1680/xyzzy_lisp.html
のページと
http://hie.s64.xrea.com/xyzzy/reference/
は座右においていつでも調べられる状態にしています。
私の調べたかぎりでは両方のページには~Vに関しての記述はありませんでした。
> 後々厳しいぞ……。
と言われると、今でも十分厳しいですというのが、本音です。
あんまり、時間も取れませんし、本当にlispがいじれるようになるのかなと。
今てこずってるのはsetfです。便利そうなのですが、使えない。やばいなあ。
88様
そのものずばりのほかに、参考ページまで挙げていただきありがとうございます。
おっしゃられる通り、formatの使い方はちょっと他と毛色が違う気がします。
書式文字列もたくさん用意されていて、初めてだと、調べようにも何かを応用して
やりたいことが実現できるのか、そのものずばりの書式が用意されているのか
そこからわからないし、調べずらかったです。
これからわからないことがあった場合、挙げていただいた参考ページにあたりたいと思います。
それとlispの書き方についてはこのスレでないほうがいいですか？
xyzzyの設定から入った行きがかり上、ここで面倒みてもらっていたのですが、
そういわれると、ちょっと違うかもしれません。
初歩も初歩なので大目に見ていただければうれしいです。

92文中47は49様の間違いです。失礼しました。

>>93
> それとlispの書き方についてはこのスレでないほうがいいですか？

ええと、lisp ネタがあまり続くと右も左も判らない本当の初心者さんがつらい、
ていうことで >>1 にあるようなことになったのだった気がします。
まあその縛りをあまり厳密にしても、
そのせいで初心者に厳しいスレになったら本末転倒だなあという気がしますが、
とりあえず、lisp での書き方がなんとなく判るけれど、突っ込んだところが判らない、
くらいまで問題を詰められているなら、その手の話は win 板のスレで振ったほうが妥当だと思います。
多分反応もいいでしょうし。

>>94
了解しました。lispに関しての質問は移動します。
たぶん、今後もこちらにお世話になることも多いと思います。よろしくお願いします。

>>91
なるほど。ありがとうございました。

分からないことがあっても
自分で出来ることはやってから質問してほしいだけ
初心者用のlisp入門サイトで調べる
グーグルで検索
過去ログを見る
これぐらい遣ろうと思えば出来ると思うんだよね、
すぐ聞かないで１週間くらいは自分であれこれしないと
使えるようにはならないと思う。
でも言い過ぎかもね、すまんかった。

ちょいと聞きたいんだけど、
Netinstaller使ってる？それとも自前でｼｺｼｺ追加してる？

使ってる。
ていうか何が聞きたいの？

siteinit.lに書き込んだ設定が反映されません。.xyzzyとこれの両方に同じ設定書いたんですが
M-x load-fileしてやらないと反映されないのです。ダンプファイルは作り直したのですが・・
おたすけくだされ。

パスが通ってないとか?
xyzzy_HOMEになってるかとか確認してみたら。

siteinit.lcがあるのにバイトコンパイルしてないとか？

かぶっちゃうけどそのまま投稿。

>>101
状況から察するに古い siteinit.lc が残っているような感じ。
ttp://hie.s64.xrea.com/xyzzy/qanda/html/apart/qanda-00020.html
をよく読んでやり直してみて。

起動時に .xyzzy をロードしないのは環境変数 XYZZYHOME が正しく設定されていないから。
ttp://hie.s64.xrea.com/xyzzy/qanda/html/apart/qanda-00124.html
と設定を見直してみて。

ならんです・・・
パス名はXYZZYHOMEでxyzzy.exeがあるところにしてるしダンプファイル削除したりバイトコンパイルしたりしたんですが

最近、2ch-modeでハイパーリンクを踏むと

「http://www.google.ne.jp//
　指定されたファイルが見つかりません。」

とか怒られちゃうようになったんですが
これは何が原因なんでしょう。
一応リンク先には飛べるんですが、↑のダイアログが思いっきり鬱陶しいです。

>>105
siteinit.lは/site-lispの中にあるよね？
なんかxyzzy.exeと同じディレクトリに入れてるような気が

以前はsiteinit.lの設定が有効だったのに急に使えなくなったの？
それとも初めから？

改ページコード(0x0C？)を挿入する方法が
よくわらかんとです・・・

>>108
C-Q C-L
アルファベットの0xC番目だからL。

>>109
判りやすい解説ありがとうございました。

ﾔﾀｰbibtex-modeの移植できたよー
一ヶ月前はlispなんて全然わかんなかったのに
本スレに書くのはまだ怖いのでこっちに記念カキコ

ちなみに一部の機能は動きませんがほしい人がいたらうｐします
でもこんなマイナーなモード需要ないかな

>>111
個人的には移植過程をドキュメント化して頂きたい．
ってそーゆーのは駄目？

>>111
ぜひ Wiki にでも上げていただければと。
今はそうでもないですが、以前欲しいと思ったことがありますので、
きっとほかの誰かも欲しいと思っているはず（？）

>>111
よろ。

>>111
ネ申ｷﾀ━━━━(ﾟ∀ﾟ)━━━━!!
超欲しいです．うｐしてくださいおねがいしますだ

>>111
その勢いでRefTeXもきぼん

perl、PHPモードで、
class xxx
{
　　function yyy()
　　{
　　}
}
こうしたいのですが、
class xxx
{
　　function yyy()
　　　　{
　　　　}
}
こうなってしまいます；　
（二つ目のブロックから、インデントが余計に入ってしまう）
どこを修正すればいいんか見当も付かず、
もし判る方が居たら教えてください。

c-mode.lの最初の方にある、
(setq c-brace-offset 0)
を
(setq c-brace-offset -2)
に変更。
その後、c-mode.lをbyte-compile-fileして、
再ダンプすればいけると思う。

同じ動作を二つ以上のキーに割り当てられますか？
Alt+F4とC-x C-cの両方でxyzzyを終了させたいのですが

(global-set-key #\M-F4 'kill-xyzzy)
(global-set-key '(#\C-x #\C-c) 'kill-xyzzy)

と書いてもエラーは出ないのですがC-x C-cが効きません。

すいません。ネットワークの調子が悪くて書き込みできませんでした。

>>112
長くなったので次から３つに分けて書き込みます。

>>113-115
どこにうｐすればいいのかわからなかったので、とりあえず Wiki の
練習用ページにあげときました。
ttp://xyzzy.s53.xrea.com/wiki/wiki.php?%CE%FD%BD%AC%CD%D1%A5%DA%A1%BC%A5%B8

>>116
RefTeX も個人的にほしいので移植したいなーとは思ってるのですが、
来月から忙しくなるので気長にお待ちください。

○bibtex-mode の移植手順
はじめは Part 3 の 630-631 さんの書き込みを参考にしました。

0. emacs.l (elisp 移植キット)をいれておく。

1. bibtex.el -> bibtex.l とリネームして site-lisp にコピー。

2. bibtex.l を開いて頭に
(in-package "elisp")
(require "emacs")
を書く。

3. M-x load-file で bibtex.l を読み込む。
エラーが出る箇所を修正。よくわからなかったらとりあえずコメントアウト。
大きなファイルの場合コメントアウトしたところはメモしとかないと後で泣けます。

4. 3. をエラーが出なくなるまで繰り返す。
コメントアウトしたところはほっといてもいいが、できるなら修正。

5. .xyzzy に (require 'bibtex) あるいは (load-library "bibtex") と書いて再起動。

6. 実際に関数を動かしてみる。bibtex-mode なら C-c C-e C-a とか試してみる。
エラーが出るならエラーが出ないように修正。その後、動作が正しいかどうか確認。

で、一番大変な 3. や 6. の修正のところですが、主に使ったのは以下の３つ。
・xyzzy lisp のリファレンス
　　ttp://hie.s64.xrea.com/xyzzy/reference/
・Emacs lisp のリファレンス
　　ttp://shakosv.sk.tsukuba.ac.jp/ShakoDoc/Editors/NEmacs/elisp-jman/html/eljman_toc.html
・~/site-lisp/ フォルダや ~/lisp/ フォルダを grep 検索
特に lisp の書き方や読み方もままならないような最初のころは
３つ目の grep（実際に使ったのは OHKUBO さんの ggrep ですが）がとても役に立ちました。
それまでは grep 検索なんて使ったことがなかったのですが、ありがたさがわかりました。
たとえば define-key という関数の使い方がわからないとき、
この関数名で grep 検索すると、正しい使い方をしている例がたくさん出てきます。
あとはみようみまねで書き換えてみます。それでうまく動けばＯＫ。

これ（grep 検索→みようみまねで修正）を繰り返しているうちに、
なんとなくでも lisp のルールがわかってくればしめたもの。
リファレンスを見て意味がわかるようになってきます。
あとは上の３つを使ってうまく動かない関数をひとつひとつ修正していきます。

多かったエラーは
・引数がおかしいよ
　　→ Emacs lisp のリファレンスと xyzzy lisp のリファレンスを見比べる
　　→ 共通する引数を残しつつ、それ以外の引数を削ったり加えたりして修正してみる
　　→ うまく動けば万々歳、
　　　 何か動作が変でも致命的でないならとりあえず後回しにするのもありかも
・そんな関数知らない
　　→ emacs lisp のリファレンス
　　→ grep 検索や xyzzy lisp のリファレンスで似たような名前の関数を探してみる
　　→ それっぽい関数があったら置き換えてみる
　　→ うまく動けばry
・エラーは出ないけど動作が変
　　→ 一つ一つコードを読んでいく必要があります。大変です。

こんな感じです。まああくまでも個人的なやり方ってことで。
もっとうまい方法もあると思いますが参考までに。

おまけ
info-modoki-mode とか info.l とか入れると
xyzzy lisp のリファレンスや Emacs lisp のリファレンスの検索が楽になります。

長文失礼しました。
>>112 さん、こんなんでよかったでしょうか？

>119
割り当てられる。書式も見た感じ間違っていない。
さらに言うと、Alt-F4もC-x C-cも両方ともデフォルトでxyzzy終了になってる。

どこにその式を書いてる？
siteinit.lに書いているんだったらバイトコンパイルして再ダンプしてる？

>>119
M-x describe-key で C-x C-c で実際何の関数が呼ばれているのか
確かめてみてはいかが？

>>124-125
WindowsのキーバインドにするためGates.lを読ませてるんですがこれに式を追加しました。
C-xで切り取りが呼ばれているようです。標準だとAlt+F4で終了できなくないですか？
再ダンプもしてます。

>>126
・・・・・・。

>126
ああ、Gate.l使ってるのか。それを先に(略
代わりにwinkey.lを使うことはできないの？

>標準だとAlt+F4で終了できなくないですか？
ほんとだ。終了できねぇ。初めて知った……。

>>126
C-x で切り取りと両立したいのであれば
http://www.uranus.dti.ne.jp/~shiro-/soft/xyzzy/keybind.html#windows
もしくは
http://www.trick-with.net/xyzzy/

両立する必要がなければ
(load-library "Gates")
(global-set-key '(#\C-x #\C-c) 'kill-xyzzy)
で大丈夫だと思うが。

>>106
最近デフォルトブラウザ変えなかった?

Windowsのフォルダオプションからファイルの種類でURL:HyperText 転送プロトコル(HTTP)を選択して
詳細設定=>openを選択して編集=>DDEを使うのチェックをはずす

>>127-129
申し訳ございません。_
使い始めでよくわかっていませんでした。なんとかなりました、ありがとうございました。

初めはそんなモンですよ。私もそうでした。

俺も

oltでc++のアウトライン解析さすには動書けばいいの？

>>130
回答ありがとうございます。
ずばり、デフォルトブラウザをFirefox0.9.2に変更したばかりでした。

教えて頂いたとおりにフォルダオプションを覗いてみたんですが……
どうも「URL:HyperText 転送プロトコル」が存在してないみたいです。
URL:MailTo プロトコルやらURL:Telnet プロトコルはちゃんとあるんですが。

Firefox0.8の頃＆現在でもIE使用時は起こらなかったので
Firefox0.9.2の問題なのかもしれません。

>>135
Firefoxのスレ見れ。何度も外出

M-x shellするとcmd.exeが見つかりませんって出るんですがこれでコマンドプロンプト使う事はできませんか？
そっからcygwin起動させたいなとか思ってるのですが

>137
cmd.exeが見つからないっていったいどういう環境だよ……。
環境変数PATHの値を変にいじったりしてない？

>>138
パスはWINNT\system32が入ってるし、Winキー+Rでcmdでも起動できます。
パスは色々追加してますが元からあるのは編集してないんですが・・

むう。なおさら訳分からんね。

C-x & からcmdの起動できる？

あと デフォルトの shell なのか，shell3, shell-ext などの
拡張版のどちらを使っているか， shell に関して.xyzzy等で
設定をしているのかしていないのか，OSは(2kだと思うけど)
なんなのかについても報告しる．

それとcygwin使いたいなら，素直に拡張版の導入をおすすめする．

>>140
駄目でした。
>>141
前二行はわかりません_ただUNIXのemacsやmuleでできるからこれでもできるかなと思った程度です。
xyzzy側では特に設定はしてません、OSはその通り2kです。
cygwinは普通に使ってます。

ちょっと勉強してきます。

xyzzyenv.exe削除してたんですが戻したらいけました…ごめんなさい

　　許　さ　ん　　

_o/|_

例えばフレーム1とフレーム2があったとして、
フレーム1で作業している時はC-x bでフレーム2のバッファは表示しないよ
ってなことってできますか？

>>146
フレームとバッファは互いに独立しているものなので、
フレーム2のバッファ、というものは決定しようがないです。
逆に言えば、バッファとフレームの対応関係を決定する仕組みを
でっち上げればできなくはないです。

>>134
c++ 用といってもいろいろなコーディングスタイルがあるので，汎用的なのを
定義するのはわからない．クラス内ではメソッド名だけ宣言して，別ファイルで
クラス名::メソッド名 で中身を定義する xyzzy のソースとかもあるし．
全部をカバーする方法が思い浮かばない

C++ に対する XTAGS 書き出しがどの程度なのかしらないんだけど、
XTAGS 解析タイプにするのが安易でよさそうじゃないかな。

>>149
XTAGS 解析タイプは 要は文字列とファイル名&ポイントの連想リストだけど，
そこからどのようにアウトライン作るのかよく分からないよ．
XTAGSに登録されるようなものをアウトラインに登録していくってこと？
それともXTAGSファイルから，アウトラインを生成するの？

>>149
すまない． oltの設定に XTAGS ってあったのね．
でも，XTAGS による olt はカーソル追従，即時ノード実行を指定しても効かないから，
あまり使い心地が良くなかった．
それに編集していくうちにolt情報を更新しなけりゃいけなくなるけど，XTAGSは差分更新が
効かないから毎回全部を生成しなおすので重い．やっぱり正規表現で指定する方法のほうが
プログラミング言語にはあってると思う．

ちなみに c++モードに対し XTAGSにしたがって oltを生成するには
(add-hook '*c++-mode-hook*
#'(lambda () (setq olt:*olt-make-function* 'olt:olt-make-XTAGS)))

すみません、xyzzyの起動オプション一覧とかって
どこかにないでしょうか？
ファイルを指定行で開きたいのですが…

>>152
/path/to/xyzzy/html/00README.html
に書いてあるよ

>>153
ありがとうございました。できました

C-x 2　で窓を分割するなど、.lを読み込ませなくても最初から割り当てられている設定ってどこで決められてるのですか？

>>155
window.l:277:(define-key ctl-x-map #\2 'split-window)

window.lは必ず読み込まれるってことですか？

outline treeで
;.AAA
;..BBB
ってどうやって書けばいいの？
階層付きの記号のピリオドの前に
一文字つけたい

>>157
初回起動時にxyzzy.wxp(とかw2kとか)が作られて、そのときにlisp/以下の.l(c)とsiteinit.l(c)が評価される。

でいいんだよね。

>>157
init.cc:636: return Fsi_load_library (make_string ("startup"), Qnil);
startup.l:6:(si:*load-library "loadup")
loadup.l:31:(si:*load-library "window") (gc)

先手だと、だめぽ。

スマソ。五目並べの話ね。
後手なら結構勝てるようになった。

chicken! にむかつく今日この頃．　俺もまだ若い

>>160
分からないけどわざわざありがとうございました。

>>164
要は ~/lisp にデフォルトで入っているファイルは
起動時に必ず読み込まれると思ってもいい．
気になるなら， *scrach* で *modules* C-j と入力すると
現在ロード済みのモジュールが一覧表示されるから，確かめてみるといい．

>>164
あと、こことか。
ttp://www1.odn.ne.jp/ymtz/tips.html#boot

タブをBackSpaceで消すときに一発で消すのってどうしたらいいの？
今はなぜかタブがスペース4つになって、それが１つ消えるだけなんだけど。

>>167
ttp://hie.s64.xrea.com/xyzzy/qanda/html/apart/qanda-00108.html

BackSpace の動作はモードによって変わるからどのモードの話か分からないと
上記ぐらいしか答えられません。

java-mode の話です。すいません。
んで、
(define-key ed::*java-mode-map* #\C-h 'backward-delete-char)
と設定してみたんですが、backward-delete-char という関数自体がないっぽい･･････？

でもまぁxyzzyのデフォルト仕様ではないとわかっただけでもありがたいので、暇を見て関数を探してみます。
ありがとうございました。

>>169
delete-backward-char

動いた！サンクス

はじめまして、さっそく質問させてください。
リージョンで選択した領域に対して、以下のような操作をしたいんですが
どうしたらよいでしょう？
例えば、CモードやC++モードで
if (xxx == yyy)
{
zzz = 1;
}
これをリージョンで選択した状態で、適当に指定したキー(C-c pとか)
を押すと
#if 1
#else
if (xxx == yyy)
{
zzz = 1;
}
#endf
としたいのです。
会社のコーディング規約で変更時はこうしなきゃいけない
もので・・・
LISP達人のどなたか教えてください。
ちなみにアセンブラの時は違うようにしたいので
これはCモードかC++モード時だけにしたいんです。

やな規約だなぁｗ
cvs使えって上に進言してみたら？

(defun comment-out-by-preprocessor ()
(interactive "*")
(if (mark t)
(save-excursion
(save-restriction
(narrow-to-region (point) (mark t))
(goto-char (point-min))
(insert "#if 1\n#else\n")
(goto-char (point-max))
(insert "\n#endif")))))
(define-key ed::*c-mode-map* '(#\C-c #\p) 'comment-out-by-preprocessor)
(define-key ed::*c++-mode-map* '(#\C-c #\p) 'comment-out-by-preprocessor)

一つのフォルダにあるテキストをサブディレクトリも含めて
丸ごとxyzzyで開きたいんですが、どうやったらいいですか？

>>174
それはファイラー側の仕事かと

>>174
(defvar *find-file-directory-file* "*.txt")
(defun find-file-directory (dir &optional encoding nomsg)
(interactive "DFind file: \n0zEncoding: " :title0 "Find file")
(find-file (directory dir :wild *find-file-directory-file*
:recursive t :absolute t :file-only t)))

まずは簡単な方法で。
ほんとはワイルドカード指定で開けたほうがいいんですけどね。

>>173

！！サンクスです！！素晴らしい！！

> (insert "\n#endif")))))
は
> (insert "#endif\n")))))
のほうがいいので変更しました。

ところでリージョンが選択されたままなのでC-gしないといけないんですけど
なんとかなりませんか？
当方たしかHIEさんとこから拾ったリージョン反転表示を使用してるんですが。

> やな規約だなぁｗ
> cvs使えって上に進言してみたら？

じつは使ったこと無いですがそんな便利なんですか？
見てみます。

>>177
rv-region.lを読めば分かるけど、
「反転表示を止めるコマンドを追加する」説明が書かれてある。
よって、
(setq *rv-exit-command-list* '(comment-out-by-preprocessor))
とかするとOKです。

comment-out-by-preprocessorの名前を、
comment-out-region-by-preprocessorなどと変えるだけでもよい
（*rv-exit-command-regexp*のため）。

>>178
> comment-out-by-preprocessorの名前を、
> comment-out-region-by-preprocessorなどと変えるだけでもよい

正直なんだかよく分からないのですが、すんばらしく希望の動作になりました。
サンクスです。ハッピーです！

>>177
> > cvs使えって上に進言してみたら？
> じつは使ったこと無いですがそんな便利なんですか？
> 見てみます。
一度つかったら cvs なしでは生きていけない。

>>175
え？あのファイラーってフォルダごと開けるんですか？

>>176
siteinit.lに追加して、フォルダを丸ごと投げ込んだところ
ディレクトリは開けませんと怒られました
つД｀)

>>181
たとえばあふ使ってたらあふがxyzzyにテキストデータを渡す役割をしなければならないってこと。

>>181
> siteinit.lに追加して、フォルダを丸ごと投げ込んだところ
> ディレクトリは開けませんと怒られました
> つД｀)
フォルダを丸ごと投げ込むって、フォルダをD&Dして開きたいの？
>>176氏のやつは M-x find-file-directory とかで使用します。
D&Dで開きたいのであれば、以下を追加でどうかな。
(add-hook
'*before-find-file-hook*
#'(lambda (x)
(when (file-directory-p x)
(find-file-directory x)
(selected-buffer))))

>>182
>>183

皆様、丁寧にありがとうございます。
実は、先日導入したばかりでして、Lispを見てもイマイチ分かってませんでした。
M-x find-file-directoryでやったらできました。
183氏のD&Dで開く方のも使わせて頂きます。
重ね重ね、ありがとうございました。

コマンドラインからディレクトリを渡した時に「開くダイアログ」を開かせるにはどうすればいいんでしょうか。
「コマンドラインからディレクトリを開こうとするとgrepになってほしい」っていうのはあったんだけど。

こんな感じかな。
dialog.lから半分以上パクってきたんだけど……。
デフォルトでファイル名のところに*が入ってくるのは仕様って事で勘弁してください。

(add-hook '*before-find-file-hook*
#'(lambda (directory)
(if (not (string-match ".*\\(\\\\\\|/\\)$" directory))
(setq directory (concat directory "/")))
(when (file-directory-p directory)
(setq directory (concat directory "*"))
(multiple-value-bind (files index encoding eol-code)
(file-name-dialog
:title "ファイルを開く"
:multiple t
:default directory
:filter *file-dialog-filter*
:filter-index *file-dialog-filter-index*
:char-encoding (or *expected-fileio-encoding* t)
:eol-code *expected-eol-code*)
(when files
(setq *file-dialog-filter-index* index)
(let ((*expected-fileio-encoding* encoding)
(*expected-eol-code* eol-code))
(declare (special *expected-fileio-encoding* *expected-eol-code*))
(find-file files))
(dolist (f files t)
(add-history f '*minibuffer-file-name-history*))
(add-history files '*minibuffer-file-name-history*))
(selected-buffer)))))

>>186さんのは正攻法ですね。
それに比べておれのは邪道っぽい。
(add-hook 'ed::*process-command-line-hook*
#'(lambda (arg) (interactive)
(when (file-directory-p arg)
(let ((dir (default-directory))
(buf (selected-buffer)))
(set-default-directory arg)
(open-file-dialog)
(save-excursion
(set-buffer buf)
(set-default-directory dir))))))

>>186
> (file-name-dialog
> :title "ファイルを開く"
> :multiple t
> :default directory
↑ここのとこ :default の代わりに :initial-directory で
指定すると "*" の問題が解決すると思う。
(参照) [xyzzy:06686] の辺り

これに伴って前処理の部分もばっさり無くせるんじゃないかな。

>188
そんなのがあったのか、知らなかったよTHX.

>187
あー、なるほど考えたね……。
そっちの方が軽くていいかも。

まあ、とりあえず変更後の貼っておきますね。
>185さんお好きなほうをどうぞ。

(add-hook '*before-find-file-hook*
#'(lambda (directory)
(when (file-directory-p directory)
(multiple-value-bind (files index encoding eol-code)
(file-name-dialog
:title "ファイルを開く"
:multiple t
:initial-directory directory
:filter *file-dialog-filter*
:filter-index *file-dialog-filter-index*
:char-encoding (or *expected-fileio-encoding* t)
:eol-code *expected-eol-code*)
(when files
(setq *file-dialog-filter-index* index)
(let ((*expected-fileio-encoding* encoding)
(*expected-eol-code* eol-code))
(declare (special *expected-fileio-encoding* *expected-eol-code*))
(find-file files))
(dolist (f files t)
(add-history f '*minibuffer-file-name-history*))
(add-history files '*minibuffer-file-name-history*))
(selected-buffer)))))

半角、全角の文字を相互変換するにはどうしたら良いでしょうか？

>>190
add-popup-conv-menu を導入してみたら？

add-popup-conv-menu は NetInstaller から入れることができます．

出来ました( ´∀`)
ありがとうございます。
xyzzy凄いけど、機能が把握しきれん…

>>193
最初はとにかく，他人が書いた格調lispを追加して使っていくのみ．
おれは xyzzy をぐぐって，lisp 追加をひたすらやりつづけた．
そのうち自分で何かしたくなったとき，使い込むことにより似たようなことやってるlispが
あったなと思えるようになるので，あとは必死でソースコードを読むだけ．
がんがれ

年内に出るらしい「入門xyzzy」のためお小遣いを貯めて待つべし。

>>194
siteinit.lが500行超えました…何がなんだか分かりません。
自分もlisp覚えようかな…Cくらいならできるんだけど。

>>196
lispに興味あるなら，そろそろコード読んでもいいと思うよ．
リファレンスを引けるようにして，~/ でTAGSファイルを生成して
何をするか知っている関数を読んでいく．
分かり始めると楽しいよ．

>>197
タグジャンプってこんなに便利なものだったんだ。
今まで毎回毎回grepで探してた orz

>>195
本当？！これは買わないと

xyzzyでMSNメッセを使い、さらにそこで人工無能を動かし。
ついでにIRCも動かして、
ニュースのヘッドラインを取得することはできますか( ´∀`)

>>187と>>189のどちらでも思い通りの動作になったのですが、
「正攻法」とのことで>>189の方を使わせていただきました。
>>186さん、>>187さん、ありがとうございます！

Windowsヘルプファイルを書く（リッチテキスト形式）ためのモードってないんですかね？
\plain や \parとかの、あれです。

ttp://homepage1.nifty.com/bee/diary/20027.html
使ってないのでよく知らんけど、やっつけ仕事っぽいね


http://hie.s64.xrea.com/xyzzy/extlib/html/index-all.html
にも載ってない。

>198
list-function も便利ですぞ。
貴兄がPGなら、何かのキーに割り当てておく事を薦める。

正規表現で
”あ”以外の一文字（英数字＋記号＋日本語とか全部含めて）
は、どうやって書けばいいですか？

[^あ]

outline-treeを入れたんですが、javaの解析ができないので
xyzzy本スレ7の977を参考に.oltに

;; Java-mode
(require "java")
(defun olt-setting-java-mode ()
(setq *olt-make-regexp-list* '*olt-make-regexp-list-java-mode*)
(setq *olt-make-function* 'olt-make-regexp))
(add-hook 'ed::*java-mode-hook* 'olt-setting-java-mode)
(pushnew '(ed::java-mode . olt-setting-java-mode)
*olt-setting-alist* :test 'equal)

と書き込んだんですが、解析できません。
java-modeでアウトライン解析できるようにするにはどうしたらいいですか？

grep-dialogと同等の設定を
ミニバッファからの入力でしたいです。

grepd.l覗いてみたけどさっぱり分からず…

xgrepとか

>>209
おお、まさにこれがしたかったです。
ありがとう！

ウィンドウ名を初期設定の
xyzzy [バージョン]@[コンピュータ名] - [フルパスファイル名]
からただのファイル名にするにはどうすればいいですか？

>>211
(setq title-bar-format "%b")

>>212
ありがとうございました。

age

最近使いました。bufmenuを導入しましたが、
「これ以外すべて閉じる」がうまくできません。
すべて閉じてしまいます

どこをいじればいいんですか？

>>215
なんかバグっているっぽいですね。
勝手に直してみたので (require "bufmenu") より後に
以下を書いてみてください。
(defun bufmenu-kill-all-buffers (&optional exception)
(interactive)
(let ((buffer-lst nil))
(dolist (b (buffer-list) t)
(let ((bn (buffer-name b)))
(unless (or (string= bn " " :end1 1)
(string= bn exception)
(member-if #'(lambda (x)
(let ((lbn (length bn))
(lx (length x)))
(and (>= lbn lx)
(string= bn x :end1 lx))))
*bufmenu-no-close-buffer-list*))
(push b buffer-lst))))
(when (and (> (list-length buffer-lst) 0)
(or exception
(yes-or-no-p "バッファを全部閉じますよ。")))
(dolist (buffer buffer-lst t)
(kill-buffer buffer)))))

花鳥をインストールしようとおもって
http://hashi4.civil.tohoku.ac.jp/soft/node48.html
に書いてあるとおりに.xyzzyをいじったんですが、
「ファイルが見つかりません:"elisp"」
なんてのが出ちゃいます。
なにが悪いのかｻﾊﾟｰﾘでつ。
教えてエロイ人！

ごめん、俺エロくないから教えられないわ。

>>217
ああ？　誰がエロだこのダボが。
それがひとに教えてもらうときの態度か？
流行ってれば何でもやって良いのか？　ああん？

>>217
site-lisp/katex/elisp.l はありますか。

>>218-219
気持ちは痛いほどわかるが、まあ落ち着いて。

>>217
関係あるかどうか分からないけど、
そこのサイトの説明 C ドライブと D ドライブが
ごちゃごちゃやね。
C ドライブに展開したはずなのに
まとめたら D ドライブになってる！？

>>221 追記
http://hashi4.civil.tohoku.ac.jp/soft/node48.html
の説明はあんまり良くない。
# タイプセッタの設定はアレじゃたぶんうまくいかない。
そのサイトの説明は忘れて
$XYZZY/site-lisp/katex/install.txt
を読んでやり直す方がいいと思う。

>>221-222 を読んで思ったのだけど、
(push "d:/xyzzy/site-lisp/katex" *load-path*)
を修正してないって落ちはないですよね。
(pushnew (merge-pathname "site-lisp/katex" (si:system-root)) *load-path* :test #'string=)
てしといた方がいいかな。

>>203
サンクス。だれもつくってないのかなー。
だれかつくってくれ！おねがい

>>224
欲しい人でないと、どんな機能が欲しいものなのかわからないですよー

>>217

ttp://www.econ.nagoya-cu.ac.jp/~miyahara/TeX.html

とかとか。

>>217
>>16とか違う？

>>220
ありませんでした。elisp.lを探してきてsite-lisp\katexに置いたら解決しました。
どうも申し訳ありません。
レスしてくれた親切な方々、ありがとうございました。

エロい人とかまだ言う奴いるんだな。

過去ログ3にあったらしいけど読めないので。
外部からURLを渡してwww-modeで表示させたいんですが

xyzzycil.exe -f www-open-url "http://www.2ch.net/"

としても

引数が少なすぎます: (www-open-url)

となってうまくいきません。どうすればうまくURLを渡して表示させることができますか？

>>230
> 外部からURLを渡してwww-modeで表示させたいんですが

508 [03/11/17 10:14 ID:PuNsI1rA] 名無しさん＠お腹いっぱい。 <sage>

>>507
とりあえずこれでできたけど
xyzzycli -e "(www-open-url \"http://www.google.com\")"

>>231
を、できますね。

Sleipnirのユーザー定義ツールとして
　コマンド：　C:\(中略)\xyzzy\xyzzycil.exe
　引数：　-e "(www-open-url \"{URL}\")"
　作業フォルダ：
と登録するとSleipnirで現在開いてるページがwww-modeで読めるようになりました。
CSSを無効にしてもフォントサイズがHTMLで1に固定されてる極悪ページがあって困ってたんですよね。

感謝。

cssのインデントって自動でできないんでしょうか。

http://hie.s64.xrea.com/xyzzy/note/major_mode.html#css-mode
をsiteinit.lとかcss-mode.lに書いても全然変わんない・・・。

>233
俺はそれでインデントしてるけど。

siteinit.lやcss-mode.lに書いてるんなら、バイトコンパイル後再ダンプしてる？

KaMail でフォルダの中を覗いたときに、
メール一覧が日付順降順で並ぶように設定したいのですが、
どういう方法があるでしょうか。

>>235
#\C-c #\s #\d

>>236
レスありがとうございます。
> #\C-c #\s #\d
これはメール一覧バッファでやるんでしょうか？
打ってみたけど削除マークが付くだけでした。

メールがはじめから日付順降順で並ぶように設定できる方法はないんでしょうか？

>>234
できました。
どうも再ダンプ後にバイトコンパイルしてたみたいで・・・

>>237
>>236さんのはここの日付でソート and 番号振り直しじゃないかな？
ttp://hie.s64.xrea.com/xyzzy/note/kamail.html#key-bind1

>>239
それですね。でもなぜかうちでは動いてくれません・・・。

特別な操作無しでっていうのは無理なんですかね。
自分でも研究してみますんで解決策ご存知の方いらっしゃいましたら
助けていただけると嬉しいです。よろしくお願いします。

>>240
Summary バッファにて F6 で日付降順で並べて
M-r で番号を振りなおせばそれなりになりませんか？

もしくは以下をどこかの hook に引っ掛けるとか。
(defun kamail-special-sort-by-date-reverse ()
(interactive)
(kamail-summary-sort-by-date t)
(kamail-renumber))

すいません、2ch-modeの事なんですが、
スレ一覧の取得の時は串通さないで、本文取得の時は串を通すということは出来ないでしょうか？
一応今は、

(setq www::*www-proxy-host* "proxy.hogehoge.com")
(setq www::*www-proxy-port* 8080)

として、全てに串を通してるんですが、ちょっとこれだと問題があって・・・

#Lisp読んだり書いたり出来る方かなり尊敬してまつ。
#自分も勉強してみようかなぁ。
ちょっとこれｄさと

あれ？一番下の行は無視してくださいorz

>>242
根本的に解決するのは面倒なので、串を通したいコマンドを
以下のように再定義するということでいかがでしょう。

(in-package "2ch")
; board-select は串を通す my-board-select に
(defun my-board-select ()
(interactive)
(let ((www::*www-proxy-host* "proxy.hogehoge.com")
(www::*www-proxy-port* 8080))
(board-select)))
(define-key *board-map* #\RET 'my-board-select)

>>244
レスありがとうございます。

物わかりが悪くて申し訳ないのですが、

(defun my-board-select ()
(interactive)
(let ((www::*www-proxy-host* "proxy.hogehoge.com")
(www::*www-proxy-port* 8080))
(board-select)))

を追加した後、全てのboard-selectを呼び出しているところを、my-board-selectに置き換えるということですよね？
そうしてみたんですが、上手く串を通してくれなくて・・・
で、色々参考にしながら、

(defun board-select ()
(interactive)
(let ((www::*www-proxy-host* "proxy.hogehoge.com")
(www::*www-proxy-port* 8080))
(my-board-select)))


(defun my-board-select ();元々board-selectの部分＠macro.l
(interactive)
(let ((func (cdr (assoc buffer-mode *2ch-mouse-left-press*))))
(when func
(funcall func))))

と、board-select自体を置き換えて・・・というのもやってみたんですが、これでもうまくいかず・・・
自分の解釈がかなり間違ってるような気がするんですが（汗
よろしければ、もう少しヒントを頂けないでしょうか？

>>245
言葉が足りなかったかな。それじゃあ最初から。
とりあえず ~/.2ch/config.l での初期設定では串を通さないことにしておきます。

本文を取得するコマンドはいくつかあるんですが、
（例えばスレ一覧表示時に RET、スレ表示時に r、追っかけスレ巡回更新、・・・）
そういうコマンドをすべて >>244 を参考に再定義します。
コマンドの再定義に伴いキーバインドも変更します。
これらは全て ~/.2ch/config.l に書いてください。

串を通したいコマンドを串を通すように変更するだけなので
$XYZZY/site-lisp/2ch/ の中身は書き換えません。
>>244 に書いたのしか試していないのでうまくいかない場合もあるかも。
そういう時はまた質問してください。

例が一つじゃ分かりにくいだろうということでもう一つ

(in-package "2ch")
; tracking-update-full は串を通す my-tracking-update-full に
(defun my-tracking-update-full ()
(interactive)
(let ((www::*www-proxy-host* "localhost")
(www::*www-proxy-port* 8080))
(tracking-update-full)))
(define-key *menu-map* #\T 'my-tracking-update-full)

>>246-247
ｵｫｫｫｫｫ!!上手くいきました。分かりやすい説明をありがとうございます。
少しずつ追加していってます。

ところで、続けざまに質問して申し訳ないのですが、スレ一覧などをクリックした場合（こちらではconfig.lを弄ってダブルクリックにしていますが）
のコマンドは何になっているのでしょうか？
LBtnUpを追加してみたのですが、上手く認識（？）されないようなので・・・

>>248
左クリックなら 2ch-mouse-left-press です。
この関数は場面によって動作が変わります。
（動作の一覧は *2ch-mouse-left-press* に定義されています。）

しかし、これも同様に対処できるみたいです。
(in-package "2ch")
; 2ch-mouse-left-press は串を通す my-2ch-mouse-left-press に
(defun my-2ch-mouse-left-press ()
(interactive)
(let ((www::*www-proxy-host* "localhost")
(www::*www-proxy-port* 8080))
(2ch-mouse-left-press)))
(define-key *board-map* #\LBtnUp 'my-2ch-mouse-left-press)

>>249
2ch-mouse-left-pressで成功しました。
不甲斐ない自分に丁寧なレスをありがとうございます。
とりあえず、>>2あたりを見つつ、Lisp始めてみようかなと思ってます。

ところで、;thread-open-2ch-urlは串を通すmy-thread-open-2ch-urlに
(defun my-thread-open-2ch-url ()
(interactive)
(let ((www::*www-proxy-host* "127.0.0.1")
(www::*www-proxy-port* 7474))
(thread-open-2ch-url)))
(define-key *thread-map* #\u 'my-thread-open-2ch-url)

として、2chURLを自分で指定して開くときに串を通すようにしたのですが、
その時に、引数が少なすぎます: (2ch::thread-open-2ch-url) と言われてしまいます・・・
続けざまに質問で悪いのですが、

;thread-jumpは串を通すmy-thread-jumpに
(defun my-thread-jump () (interactive)
(let ((www::*www-proxy-host* "127.0.0.1")
(www::*www-proxy-port* 7474))
(thread-jump)))
(define-key *thread-map* #\RET 'my-thread-jump)

として、2ch内URL上でRETしたときのスレ移動も串を通すようにしてみたのですが、
thread-jumpがsubject.txtを取得しようとするのは元々なのでしょうか？
そのときにsubject.txtを串を通して取得しようとしてしまうのですが・・・

ご教授頂けるとありがたいです。
教えて君で本当にすみませんorz

すでにここまでの辺の話は本スレの方がいいような。

つーか、ソースの該当箇所を見てればこんな質問はしないと思うが。

>>242 の質問をここでした後、本スレ行きがよかったかもね。

>>252-254
確かに本スレのほうが良かったですね・・・
一応grepかけてソース見てみたんですが全然わからなくてorz

本スレに書こうかと思ったけど、これ以上教えて君するのも何なんで自分で調べてみます。
すいませんでした。

xyzzyのソフトを勉強するのにemacsの解説本を読んで勉強をしても
有益でしょうか

本が出るらしいからそれまではネット上の情報だけでも十分だと思う。

>>257
レスどうもありがとうございます

OS を再インストールしたので、C ドライブに xyzzy をフォルダごとコピーしたら、
siteini.l のダンプができなくなってしまいました。

ダンプファイルを移動して、xyzzy を起動すると、
Permission denied : "C:\xyzzy\etc\DOC"とでてしまって、起動できません。

で、ダンプイメージ (DOC) を消去して起動したら、今度は .xyzzy や
siteini.l 書いた設定がすべて無視されてしまいます。Ver は 0.2.2.232 です。

ご教示よろしくお願いします。

環境変数は設定した？

多分っていうかほぼ間違いなく環境変数XYZZYHOMEの設定のし忘れ。

>>260 >>261

さっそくレスありがとうございます。一応、コントロールパネルの「システム」で
環境変数は下記のように設定してあるんですが・・・

XYZZYHOME　　c:\xyzzy

色々いじくった結果、C:\xyzzy 以下のファイルがすべて書き込み禁止に
なっております。それが原因なのでしょうか・・・・

>>259
> ダンプファイルを移動して、xyzzy を起動すると、
> Permission denied : "C:\xyzzy\etc\DOC"とでてしまって、起動できません。
Permissin denied なんだからアクセス権がないんじゃないとか。
Dドライブだとどうなる。

で、そんなことより、

> Ver は 0.2.2.232 です。

232 くれ。ソースが232 しか公開されていないのでないので欲しいんじゃ。

いっぺん書込み禁止解除してみたら？
Permission denied って出たんだからその可能性大。

と、>>263 を書いてふと、xyzzy のフォルダのプロパティをみたら、
「読み込み専用」にチェックが入っているジャン！

超へぼい理由で質問してしまい、申し訳ありませんでした。

>.>264

>>232 くれ。ソースが232 しか公開されていないのでないので欲しいんじゃ。

これは書き間違いで、ぼくも233です。まったく役に立たなくてすいません。
皆さん、ご迷惑おかけしました。

>>264
> 232 くれ。ソースが232 しか公開されていないのでないので欲しいんじゃ。
かめーさんのとこにそのまま残ってるよ。
さっき試したらダウンロードできた。
場所は ttp://www.jsdlab.co.jp/~kamei/cgi-bin/download.cgi?0.2.2.232

>>268
さんきゅー。

マジで本が出るのですか？

>>270
でます。ディアゴスティーニから。

毎回lispの断片が本の付録でついて来て
全部集めてbyte-compileするとメジャーモードになったりするのか

>>271
ぐぐったら面白い報告が出たんですが・・・だいじょぶなんだろか・・・

巨大なSLが走ったりするんだろう。

毎回c-curveとかドラゴン曲線とかヒルベルト曲線とかのモードがついてくるんだろ、きっと。

右下に表示されてる時計を非表示にすることはできますか？

>>276
> 右下に表示されてる時計を非表示にすることはできますか？
できます。
例えば
(setq *status-bar-format* "")
とか。
詳細は ttp://hie.s64.xrea.com/xyzzy/reference/html/apart/ref-_2Astatus-bar-format_2A.html
の辺りを参考に。

longhornのこと考えて.net環境へポーティング中。
とりあえず拡張Lispの力を借りずに自力でカラー印刷できるようにした。
まぁ個人利用しかできないんだけどなぁ・・・

>>278
是非 ML へ投稿を。

>>278
dll化できれば自由に配布できるけど，それは無理ですかね?

>>278
パッチなら公開してもいいでしょ。

ワロタ。
必死だな。冗談に決まってるだろ。

>>277
おおぅ、あっさりいけました。ありがとうございました。

俺は信じている。

M-x diff で縦に分割ではなく、
横に分割するにはどうしたらいいでしょうか？

>>285
えーと、上下に分割する、てことでしょうか。
(require "diff")
(setq *diff-split-vertically* nil)
でどうでしょう。

>>286
あー、その通りです。ありがとうございました。

>>279-282
いや冗談でも何でもないんだが。
それにDLL、パッチっていっても
自分用に全面的に書き直してるし、
.NET Frameworkだんで。
自分が必要だと思ったら亀井氏にコンタクトとってみますが、
今のところ完成度低いのでいつになるかもわかりません。

>>288
> 自分用に全面的に書き直してるし、
いっそのことフルスクラッチで書き直して公開するとかさ。

どっかで似たようなのを見たので練習がてら作ってみた。特に意味はない。
(defun kitaa ()
(interactive)
(let ((kita-list '("ﾟ∀ﾟ" " ﾟ∀" " ﾟ" " " "ﾟ " "∀ﾟ " "ﾟ∀ﾟ")))
(dolist (kao kita-list)
(message "ｷﾀ━━━(~A)━━━!!!!" kao)
(sit-for .1))))

>>290
試してみた。和んでしまった。
GJ!

(defun kitaa ()
(interactive)
(let ((kita-list '("ﾟ∀ﾟ" " ﾟ∀" " ﾟ" " " "ﾟ " "∀ﾟ " "ﾟ∀ﾟ")))
(dolist (kao kita-list)
(message "ｷﾀ━━━(~A)━━━!!!!" kao)
(sit-for .1))))
こうじゃないのか？ といってみるてすｔ

>>292
いや最初そんな感じにしたんだけど実行したときにずれちゃったんで…

あほくせ

diff-mode に入ったとき自動で IME を OFF にすることはできないでしょうか。
( n で移動しようとすると画面上部に「ん」となってしまって )

>>295
(add-hook '*diff-mode-hook* #'(lambda () (toggle-ime nil)))
こう？

>>296
ありがとうございました。便利になりました。

正規表現を使っての色付けってどうすれば出来るんですか？

>>298
モード毎に正規表現でキーワードを指定したい、てことでしたらこんな感じです。

(defvar *hoge-mode-regexp-keyword*
(compile-regexp-keyword-list
'((...)
...)))
(add-hook '*hoge-mode-hook*
#'(lambda ()
(make-local-variable 'regexp-keyword-list)
(setq regexp-keyword-list *hoge-mode-regexp-keyword*)))

compile-regexp-keyword-list の ... の部分については以下を参照のこと。

ttp://hie.s64.xrea.com/xyzzy/reference/html/ref-regexp-keyword-list.html

その都度指定して色づけしたい場合は、pickup-pattern でできます。

ttp://ohkubo.s53.xrea.com/xyzzy/index.html#pickup-pattern

>>299
3日前に触りだしたばかりなのですが、中々難しい事なようで・・・。
理解できるよう学習してみます。有難うございました。

またつまずいてしまったので、下らない事でしょうけどお付き合いしてくれると助かります・・・。


(defvar *html-mode-regexp-keyword*
(compile-regexp-keyword-list
'(("&[a-z]+[0-9]*;" t 1)
)))
(add-hook '*html-mode-hook*
#'(lambda ()
(make-local-variable 'regexp-keyword-list)
(setq regexp-keyword-list *html-mode-regexp-keyword*)))


と>>299さんのものを参考に記述してみたのですが、
これでhtml-modeにすると「名前が衝突するため、exportできません。」とエラーがでます。

ttp://hie.s64.xrea.com/xyzzy/note/package.html#e
を見たり、エラー名でググってみたりしたのですが、解決策がよく判りません。

どうしたらいいのでしょうか。

>>301
*html-mode-hook* を ed::*html-mode-hook* とするか、
さもなきゃ (add-hook ... の前に (require "htmlmode") でどうでしょう。

実際問題として、名前の衝突が発生したら、
とりあえず該当するライブラリを require しとけでいい気もします。
元のライブラリに問題がなければ、それで大体の場合なんとかなります。

あと、html を扱うなら気が向いたら html+-mode を導入されるといいかと。
せっかくですし。

ttp://www1.odn.ne.jp/ymtz/html_plus-mode.html

# autoload と package が絡んでエラーがでるのって faq な気がする。
# wiki あたりに書いといたほうがいいのかなあ。もうあります？

>>301
俺のところでは 301 のコードでエラーでなかったけど、
'*html-mode-hook* => 'ed::*html-mode-hook* と変えてもだめ？

かぶった。スマソ。

かぶってなどいないっ！

*html-mode-hook*　を　ed::*html-mode-hook*　にする方法では別のエラーがでてしまいました。

>>302さんの
＞さもなきゃ (add-hook ... の前に (require "htmlmode") でどうでしょう。
で解決できました。

皆さんのお陰で少しだけ理解が深まったと思います。
有難うございました。


# html+-modeとやらも試してみたいと思います。わざわざご丁寧にどうも。

ediff はないでしょうか？

xyzzyってEmacsのようにインラインで画像を表示できたりするんでしょうか？

こんな感じに
ttp://www.ifa.au.dk/~harder/imaxima.png
ttp://www.gohome.org/wl/wl-e21.png

>>308
できません。

BASIC言語でいう、inputとprintみたいな動きをするのってありますか？

>>310
それぞれ 4,5 個は思い当たります。
どこからどうやって入力を受け取って、どこにどうやって出力したいのかが判らないとそれ以上はなんとも。

あと、そういった Lisp の扱い方関連はこちらでお願いできると嬉しいです。
http://pc5.2ch.net/test/read.cgi/win/1085301777/l50

>>311
そんなにあるんですか。

10 input str
20 print "hoge"; str ;"huga"
30 end

みたいな事をしたくて。

質問の場所も教えてくれてありがとうございます。

>>312
ここを見てみると、とりあえず色々ありそうってことはわかるかも。

ttp://hie.s64.xrea.com/xyzzy/reference/html/idx-io.html

普通に考えると input -> read-string,print -> format になるんかなあ。

xyzzyでタブ、全角スペース、改行表示にチェックを入れた時に表示される、
....(タブ)みたいなのとニョロニョロの下線(全角スペース)みたいなのと、
↓(改行)みたいなのって、xyzzyとは関係なくそういう文字があって、
たまたまそれをタブ等の表示に利用しているのでしょうか？
それともxyzzyの独自の記号(画像？)なのでしょうか？
xyzzyのタブ全角スペース等表示機能をemacs lispに移植できないものかなぁと思ってるのですが…。

>>314
void
FontSet::paint_newline_bitmap (HDC hdc)

でSetPixelで地道に書いている。

2ch-modeで板一覧の更新でけんくなった。
http://www.ff.iij4u.or.jp/~ch2/
からアドレス移動したですか？

file not updated って出てるけど

KaTeX について質問です。

OS の再インストールに伴い、xyzzy のフォルダをまとめてコピーしたら、
KaTeX が正常に動作しなくなってしまいました。具体的には、tex ファイルを
開くと「変数が定義されていません:･ｿ」（最後は文字化け？）と
エラーメッセージがでます。KaTeX のコマンドは使用できるのですが、
コメントを除いて、tex タグ（コマンド）の色付けがなくなっています。
ちなみに設定ファイル (.xyzzy) には次の様に書きました。

(push "~/site-lisp/katex" *load-path*)
(require "elisp")
(push '("\\.tex$" . elisp::katex-mode) *auto-mode-alist*)
(autoload 'elisp::katex-mode "katex" t)
(setf elisp::tex-command "platex")
(defun katex-mode()
(interactive)
(elisp::katex-mode))

環境変数 (XYZZYHOME) の設定などを確認したのですが、
問題ありませんでした。また、おそらく xyzzy よりも Windows の方に
原因があるのではと思い、xyzzy フォルダの「読み取り専用」を
はずしたりしてみましたが、同様に駄目でした。

過去ログをみると、似たような症状はありますが、
どれも微妙に違うようです。どなたか、ご教授いただけたら幸いです。

modeごとに背景色とかを変えるのは出来ないんだっけ?

>>318
うちのxyzzyはそれで動いてるんだけどな

(setf elisp::tex-command "platex")
を
(add-hook '*katex-mode-hook*
#'(lambda ()
(setq elisp::tex-command "platex")))
にしてみたらどう？ごめん、適当

>>319
無理だと思う

>>319
できる

やればできる。

ttp://pc5.2ch.net/test/read.cgi/hp/1005046309/375
これの使い方すら判らないのですが、どうすれば使えるんでしょう。

君は使わなくていいよｗ

特定のモードに移るたびにset-buffer-colorsするってこと?

326は>322>323です.

>>326
違うよ。
あらかじめモードごとに色をセットしておいて
次回からは切り替えるたびに色が変わるって言うのがどっかにあったけど
場所忘れちゃった…

>>316
(defvar *2ch-base-url* "http://www6.ocn.ne.jp/~mirv/")
(setq *menu-file-name* "bbsmenu.html")

みたいだね。
漏れはこうして直に(http://www2.2ch.net/2ch.htmlでも使ってるﾔｼ)板一覧読むようにしてる。

>>318
まとめてコピーしたってあたりが気になるな。
xyzzy.w** を作り直したらどう？いや、ただの勘だけど。

>>328
xyzzy part5にて発見できました.

　 　　　 　▓　　　　 　 ▓
　　 　　 ▓█　　　　　▓█
　　　　▓▓██　　　▓▓██
　　 ▓▓▓▓▓▓▓▓▓▓▓███
　▓▓▓██▓▓▓▓▓██▓▓███
▓▓█▓▓▓▓▓▓▓▓▓█▓███
　▓▓▓▓█▓▓▓▓▓█▓▓▓███
　▓▓▓▓▓█████▓▓▓▓███
　　▓▓▓▓▓███▓▓▓▓███
　　　 ▓▓▓▓▓▓▓▓▓███
　　▓▓▓▓▓▓▓▓▓▓▓▓███
　▓▓▓▓▓▓▓▓▓▓▓▓▓▓███
　▓▓▓▓▓▓▓▓▓▓▓▓▓▓███

>>318
"･ｿ" ←これ、BOM かも。
でも普通にコピーしてそんなもん紛れ込むかっていう疑問が。
とりあえず katex のフォルダに入ってるファイル（*.lc も）と、
その他関連する設定ファイルとか全部開いて、
utf-8 って判定されるファイルがないかが気になります。

ダンプファイルにエラーがまぎれてたらそもそも起動できないような気もするしなあ。

あ、M-x toggle-trace-on-error してからロードして、
*trace output* バッファにどんな出力がされるか、も。
それでどのファイルにエラーが紛れてるかわかる気がする。

C-i に ^I (Quote char: TAB) を割り当てたいのですが、

(setf (svref *kbd-translate-table* (char-code #\C-i)) #\F24)
(global-set-key #\F24 --------)
　　　　　　　　　　　　　　　　↑ここには何を書けばいいのでしょうか？

皆さん、アドバイスありがとうございます。

>>318 さんが文字コードの問題を指摘されて、最近デフォルトの文字コードを
utf8 に変更したことを思い出しました。そこで、>>334 さんの方法でエラー
をトレースした結果、KaTeX モード起動の度に生成されるユーザー辞書
(~/_katexrc) が uft8 になっており、それがエラーの原因であることが
わかりました。

両者をどう共存させるかの課題は残りますが、当座の問題は解決しました
のでご報告した次第です。重ねまして、皆さんありがとうございました。

文字コードのことを指摘してくれたのは >>333 さんですね。
失礼しました。

>>335
(global-set-key #\F24 #'(lambda () (interactive) (insert "\t")))
でどうでしょう｡

>>316
あれ・・・なんか訳分からんこと言ってた。

(defvar *2ch-base-url* "http://www.ff.iij4u.or.jp/~ch2/")
(setq *menu-file-name* "bbsmenu.html")

だね。
ていってもLisp全然わかんないんで、defvarのほうはmain.lの60行目を直接書き換えてるんだけど、
config.lから変更する方法ってどうやるんだろ・・・
setqのほうはconfig.lに書いてます。

>>339
(setq *2ch-base-url* "http://www.ff.iij4u.or.jp/~ch2/") と config.l で。

>>339
defvar って書いてあるものは setq で設定しておけばそちらが優先されるので
本体を直接書き換えるより >>340 のを config.l に書いておくのがオススメ。

>>340-341
おぉ。ありがとうございます。
setqでdefvarの内容書き換えるって感じなんですね。

>>338
完璧です。ありがとうございました。
たったこれだけでも結構難しいんですね。精進します。

表示→ツールバー→バッファでタブ上に表示させています。
現在カーソルがあるバッファを太字で強調することはできるでしょうか？

>>344
太字はできませんが、「選択バッファタブ表示色/背景色」で
他のバッファタブと比較し強調することは可能です。

>>345
色の方が嬉しかったです。ありがとうございました。
xyzzy って完成度、高いですね。

2ch-modeのスレッド表示だけMS Pゴシックにしたいん
ですが、どういうhookを設定すればいいんでしょう？

>>347
フォントの設定をlispで変更することはできません。
また、プロポーショナルフォントを使うこともできません。

>>348
プロポーショナルフォントは使えるはず。設定画面から選べないだけかと。
lispでフォントを変えられると嬉しいとは思うが、2ch-mode以外では役に立たないとも思う。

>>349
設定ファイルを直接編集したとしても、プロポーショナルフォントを
プロポーショナルでは使えないためプロポーショナルフォントとしては使えません。
固定ピッチになります。
普通は使えないという範囲でしょう。

>>348-350
うむむ、そうなのですか
まあ、"v" のモーダルダイアログでも十分ですが・・・

>>351
2ch-dialog なんてのもありますよ。
ttp://ohkubo.s53.xrea.com/xyzzy/#2ch-dialog

xyzzyを使い始めようと思いいろいろいじってて、
わからないので教えてください。

htmlでダブルクリックでタグ内選択するような設定はできますか。
またclickableurlでシングルクリック（もしくはダブル）でurlを選択だけしたい設定は
どうすればいいのでしょうか。

あとmode.lというモード切替を使いたいんですけど、
変数が定義されていませんとでて使えません。どうすればいいでしょうか。
それとrefer-to.lというのはもう手に入らないのでしょうか。

よろしくお願いしまつ。(*´Д｀*)

xyzzy はよく CommonLisp ほぼ互換と紹介されていますが、
CommonLisp の勉強をするための実行環境として使うのには
適してますか？

>>354
ある程度は使えますが CLOS というオブジェクト指向システムには対応してないみたいです。
実際の勉強にはここ↓も見るといいかも。
http://www.geocities.co.jp/SiliconValley-Oakland/1680/xyzzy_lisp.html

outline-treeの使い方がいまいちわからないので教えてください。

textやlispでの動作はしているのですが、HTMLやPHPでの設定ができません。
特にPHPで使いたいっす・・

このスレで >17さんが質問した、

>(when (find-load-path "html+-mode")
>(.require "html+-mode")
>(add-hook 'ed::*html+-mode-hook* 'olt-setting-html-mode)
>(pushnew '(ed::html+-mode . olt-setting-html-mode)
>*olt-setting-alist* :test 'equal))
>
>.と書き、HTML ファイルを開いて Ctr + R でアウトラインを表示させると、
>通常の HTML モード（見出しがタグの種類）になってしまいます。
>
>これを「ツール」-->「アウトライン設定」-->「動作設定」のタブにある
>「HTMLファイル (heading)」で開けるようにするには、どうすれば
>いいでしょうか？

ってやつも、作者様の返答にあわせて設定したのですが、そもそも
HTMLファイル(heading)ってどんなアウトラインになるのかすらも
わかりません。
読み込んでも反映されないので・・

誰かわかる方教えてください。

>>356

まず outline-tree　における通常の「HTML」はタグ名がアウトラインに表示されます。つまり、
<h1> とか <dt> とかですね。それに対して「HTML(heading)」は、タグの内容がアウトラインに
表示されます。たとえば <h1>リンク</h1> だったら、「リンク」と表示されます。

設定ファイル (.olt) が反映されないのは、どうしてでしょうか？　ちゃんと ~/（xyzzy の実行ファイルが
あるフォルダ）に置いてありますか？

PHP は使ったことがないので申し訳ありませんが、わかりません。取り急ぎ。

>>353
> htmlでダブルクリックでタグ内選択するような設定はできますか。
下のコードでどうかな。html+-modeにしたいなら、コメントのコードに切り替えてください。

(require "htmlmode");(require "html+-mode")
(defun html-mouse-left-press ()
(interactive)
(if (= (mod *last-mouse-click-count* 6) 2)
(when (and (eq *last-mouse-window* (selected-window))
(save-excursion
(goto-last-mouse-point)
(parse-point-syntax)))
(goto-last-mouse-point)
(while (scan-buffer "<" :reverse t)
(unless (parse-point-syntax)
(return)))
(start-selection 2 t)
(while (scan-buffer ">" :no-dup t :tail t)
(unless (parse-point-syntax)
(return))))
(mouse-left-press)))
(define-key *html-mode-map* #\LBtnDown 'html-mouse-left-press)
;(define-key *html+-mode-map* #\LBtnDown 'html-mouse-left-press)

>>353
次。
> またclickableurlでシングルクリック（もしくはダブル）でurlを選択だけしたい設定は
適当ですが、以下。シングルクリックで行います。
(require "clickable-url")
(in-package "editor")
(defun clickable-url-mouse-left-press ()
(interactive)
(let ((click (mod *last-mouse-click-count* 6)))
(if (= click 2)
(clickable-url-open))
(clickable-url-selection)))
(defun clickable-url-selection ()
(interactive)
(unless
(and (eq *last-mouse-window* (selected-window))
(save-excursion
(goto-last-mouse-point)
(skip-chars-forward *clickable-url-chars*)
(let ((epoint (point)))
(and (skip-chars-backward *clickable-url-chars*)
(scan-buffer *clickable-url-regexp*
:regexp t :case-fold t :limit epoint))))
(start-selection 2 t (match-beginning 0))
(goto-char (match-end 0)))
(mouse-left-press)))

> あとmode.lというモード切替を使いたいんですけど、
> 変数が定義されていませんとでて使えません。どうすればいいでしょうか。
もう少し状況を詳しくお願い。
> それとrefer-to.lというのはもう手に入らないのでしょうか。
そうみたいですね。

>357
なるほどでございます。headingいいなぁ〜
しかしHTMLファイルのアウトライン設定をHTML(heading)にしても
そうならないのはそもそもなぜなんだろう？

.oltは、~/ においてあって、中身は sample.olt とだいたい一緒で、
HTMLの読み込み部分は17さんの質問された内容と同じものし、
さらにphp-modeでの読み込みを自分なりに追加しようとしてみて
setting.lに他のを真似しながら追記してみたりしてみました。

いろいろ調べてみたのですが、olt でモード追加する説明のような
ページ見つからなかったっす・・

>>356

結構お詳しいようなので、超初心者の私がアレコレ言うのは恐縮ですが、環境変数の設定
（「コントロールパネル」-->「システム」）あるいは、ダンプの有無をご確認ください。

>なるほどでございます。headingいいなぁ〜

いいっすよ〜、ウヒヒ、ウヒヒ。作者さまには足は向けられませんね。

>>356-357 >>360-361
ども。

~/ は xyzzy の置かれているフォルダというよりは、環境変数 XYZZYHOME (等)
の値なので、もしかしたらそこら辺で .olt が読み込まれていないのかも
しれませんね。

> いろいろ調べてみたのですが、olt でモード追加する説明のような
> ページ見つからなかったっす・・
ないですね (^^;;

バッファ内にある内容が同一の行を削除するようなLispってありませんか？
CSVファイルをマージするときに使いたいのですが…diffとかを使ったほうがいいのかな。

>>363
(defmacro each-line-region (from to &body body)
"各行に対して body を実行"
`(let ((a (min ,from ,to)) (b (max ,from ,to)))
(save-excursion
(save-restriction
(narrow-to-region a b)
(goto-char (point-min))
,@body
(while (forward-line 1)
(goto-bol)
,@body)))
t))

(defun delete-duplicates-line (from to &optional (test #'equal))
"region内で test で一致する行を削除"
(interactive "*r")
(let (lines)
(each-line-region
from to
(push (buffer-substring (point) (progn (goto-eol) (point))) lines))
(setq lines (delete-duplicates (nreverse lines) :test test))
(delete-region from to)
(format (make-buffer-stream (selected-buffer)) "~{~A\n~}" lines)))

>>358-359
(ﾟ∀ﾟ) !!
ありがとうございました!
どちらも期待していた動作になりました。
タグ選択はトリプルクリックに割り当てました。便利でつ。
この時、タグ内にURLがある場合でも、
URL選択（シングルクリック）を優先（反映）させることは可能でしょうか。

mode.lはsiteinit.lに記述していたのですが、
ネットで調べながらいろいろコピペしてたら"変数が〜"のダイアログが一応出なくなりました。

あと他の質問なのですが、
セレクション部分の置換をするにはどうすればいいのでしょうか？
またホイールスクロールしてもキャレット位置を移動させないようにすることは可能でしょうか。
たて続けですません。
よろしくおながいします。　（・∀・）

>17様、 >362(作者様？)
レスありがとうございます。
電車の中で携帯でレスを確認して、思いついたことをやってみたらちょっと解決しました。

とりあえず、olt読み込みを各モード読み込みの後にしてみたら、HTMLファイルがheading
で開かれるようになりました…しかしheadingで見ても、アウトラインが表示されないんで
すよ。。これがわからん

そして上でも書いた、phpで使いたいってやつですが、今いろいろと見ていて激しくoltを
わかっていなかったことに気づきました。。恥ずかしくてここには書きたくないのですが、
sample.oltを参考にしていたので、

; bat-mode
(when (find-load-path "bat-mode")
(require "bat-mode")
(add-hook 'ed::*bat-mode-hook* 'olt-setting-bat-mode)
(pushnew '(ed::bat-mode . olt-setting-bat-mode)
*olt-setting-alist* :test 'equal))
; php-mode
(when (find-load-path "php-mode")
(require "php-mode")
(add-hook 'ed::*php-mode-hook* 'olt-setting-php-mode)
(pushnew '(ed::php-mode . olt-setting-php-mode)
*olt-setting-alist* :test 'equal))

とか書いてました。
'olt-setting-bat-mode)とかってのはアウトラインタイプのことだったのですね。。
で、とりあえずphpはインデント量で見るようにしました。
まじでひどいなこれは・・

てなわけなので全然詳しくないです >17殿
続く

続き

とりあえずぐぐったらだいたい２ｃｈなので、キャッシュで見る、とりあえずスレッド
全部見とく。
ってかんじで便利っぽいものをがんがん追加しているだけです。
エラーでたらてんぱってだいたい放置するし、今回の、php-modeなんてねえよ
っていうエラーも放置しました。
ちゃんとolt/のファイル見たらわかったはずなのにね・・

でもだいぶ使えるようになってきたと思っております。
oltを使いこなして、ftpupdateで多数のサーバーを扱えるようになればもう完璧
すぎて失禁するかもしれません。

また限界なほどわからなかったら書きます。まあheadingは解決していないの
だが寝ます。
長文失礼致しました。

>>365
URLというか、:stringシンタックスの場合、stringを選択するというなら以下かなあ。
(defun html-mouse-left-press ()
(interactive)
(if (= (mod *last-mouse-click-count* 6) 2)
(when (and (eq *last-mouse-window* (selected-window))
(save-excursion
(goto-last-mouse-point)
(parse-point-syntax)))
(goto-last-mouse-point)
(case (parse-point-syntax)
(:tag
(while (scan-buffer "<" :reverse t)
(unless (parse-point-syntax) (return)))
(start-selection 2 t)
(while (scan-buffer ">" :no-dup t :tail t)
(unless (parse-point-syntax) (return))))
(:string
(while (backward-char)
(unless (eq (parse-point-syntax) :string) (return)))
(forward-char)
(start-selection 2 t)
(while (forward-char)
(unless (eq (parse-point-syntax) :string) (return))))))
(mouse-left-press)))

> セレクション部分の置換をするにはどうすればいいのでしょうか？
セレクション内だけをreplace-stringしたいということなら、セレクションをnarrowすれば良いのでは。
(narrow-to-region (selection-point) (selection-mark))))をしたあと、置換する。

セレクション全体を別の文字列に変えたいなら、(delete-char-or-selection)してから、
その「別の文字列」をinsertするだけでOKです。

>>365
> またホイールスクロールしてもキャレット位置を移動させないようにすることは可能でしょうか。
とりあえず、

(defun mouse-wheel-scroll-without-moving-caret (window n lines)
(unless lines
(setq lines (window-lines window)))
(with-selected-window
(let ((p (point)))
(set-window window)
(scroll-window (* n lines))
(goto-char p))))
(setq mouse-wheel-handler #'mouse-wheel-scroll-without-moving-caret)

このコードを書いてみたものの、コマンド終了後は、
キャレットは必ず可視領域（pos-visible-in-window-p)にないといけないようで（多分）、
キャレットが引っ掛かって、少ししかスクロールできない。
どうも出来ないっぽいです。

>>365
キャレットを移動させないってどんな感じなんでしょう？
なにかホイールでのスクロール以外のことをしたら
キャレットがもとあった位置に戻る、てことで OK？

>>365,369
これでどうでしょうか．既知の問題として，
・行の折りたたみに対応していない
・2chモードで書き込みフォームを表示してしまうと，スクロールがおかしくなる
等ありますが，それなりには動作します．
(defun mouse-wheel-scroll-keeping-position (window n lines)
(with-selected-window
(set-window window)
(unless lines
(setq lines (window-lines window)))
(let* ((cline (current-line-number))
(gcol (goal-column))
(mlines (* n lines))
(deltalines (- (get-window-line) mlines)))
(scroll-window mlines)
(if (<= 0 deltalines (window-lines))
(goto-line cline))
(goto-column gcol)
(set-goal-column gcol))))
(setq mouse-wheel-handler #'mouse-wheel-scroll-keeping-position)

ところで mode.l って何ですか

>368
(ﾟ∀ﾟ) !!
ありがとうございました！
シングルクリックでURL選択はできませんでしたが、""内がダブルクリックで選択できるようになりました。
こちらの方が便利ですね。

>369
ありがとうございました。369についてはあきらめます。
>370
メモ帳と同じ動作（ホイールで画面をスクロールしてもキャレット位置そのまま）にしたかったのです。
ホイールスクロールしてもセレクションが解除されないようにするというのは見つけたのですが。
>371
ウィンドウ幅で自動折り返しにしているので、試してみます。ありがとうございます。
mode.lは右クリックメニューにモード切替を追加するというものでした。

>(narrow-to-region (selection-point) (selection-mark))))をしたあと、置換する。
これはやってみたんですけど、どうも慣れなくて、
できれば、マウスで選択した範囲があるときの置換は、
その範囲だけを対象とすることができるといいのですが、なにかいい方法はないでしょうか。

あと編集された行にマークを付けるというのを見つけて便利に使わせてもらってるんですが、
行番号の1桁目だけが色が付くのを、変更行の行番号部分全体にしたい場合はどう設定すればいいですか。
(set-text-attribute pos pos 'modified-line
あたりがくさいのではとにらんでみたのものの全然わかりません。
よろしくおながいします。（・∀・）

358氏すごいな。あんな感じにさくっと自分で書けたら楽すぃだろうなぁ。(*´Д`*)｡oO

calmemo入れたんですが，
関数が定義されていません: editor::calendar-title-string
って言われます．
起動後カレンダーが表示されるんだと思うんですが，
3ペインには分かれるんですが，それぞれのバッファには
何も表示されません．
何でですかね？

>>373
よく分からないが、
(require "calendar")
を適当な場所に書くと動くかも。

xyzzyでファイルを編集すると、個別にセキュリティを設定しているファイルの
アクセス権が親フォルダからの継承になってしまうようなのですが、
アクセス権の設定を、元の設定のまま編集するにはどうしたらいいでしょうか？

>>375
書き込み先はネットワークドライブ？ それともローカル？

すいません。説明が大雑把でした。
ローカルのドライブです。NTFSのアクセス権なんですが。
ちなみに環境は、WindowsXP sp2、xyzzy 0.2.2.233です。

> ・行の折りたたみに対応していない
対応した (と思います)
(defun mouse-wheel-scroll-keeping-position (window n lines)
(with-selected-window
(set-window window)
(unless lines
(setq lines (window-lines window)))
(let* ((cline (current-line-number))
(gcol (goal-column))
(mlines (* n lines))
(deltalines (- (get-window-line) mlines))
(ccol (current-column)))
(when (scroll-window mlines)
(setq ccol (current-column))
(when (<= 0 deltalines (window-lines))
(goto-line cline)
(goto-column ccol))
(set-goal-column gcol)))))

2chモードの問題に対する対処としては config.l に
(make-local-variable 'mouse-wheel-handler)
(setq mouse-wheel-handler #'mouse-wheel-scroll)
と書いておいて下さい．
その他のモードでもなれば同様に回避できますし，
また，なったことをここで報告してもらえると善処できるかもしれません．

>>377
(setq backup-by-copying t)
としたらどうでしょうか？

>>378
出来ました。ありがとうございます。

>>364
ありがとう！
こーゆーのが欲しかったのです。

>>372
置換については
(defun replace-selection (pattern replacement &optional noerror)
(interactive "*sReplace selection: \nswith: "
:default0 ed::*last-search-string* :history0 'search
:default1 ed::*last-replace-string* :history1 'search)
(save-restriction
(if (pre-selection-p)
(narrow-to-region (selection-point) (selection-mark))
(narrow-to-region (point-min) (point-max)))
(perform-replace pattern replacement nil nil (interactive-p) noerror)))
こんなのでどうでしょう。

最近秀○から乗り換えたものです。
[〜]とか(〜)など括弧で囲まれた部分や行頭が■から
始まる部分などを正規表現で指定して強調表示したいのですが、
どこをどういじればいいのでしょうか？
いろんなサイトを覗いてみてますが、それらしい記述が見当たらないので
質問させてください。
対象はtext-modeを想定しています。

2行以上の改行がある場合
一行を残し、無駄な行を削除したいのですが、どうしたらいいですか？

>>383
ｽﾚ違い。消えてねｗ

(defun delete-blank-lines-region (start end)
"連続した改行のみの行を1行の改行にまとめる"
(interactive "*r")
(save-restriction
(save-excursion
(goto-char (point-min))
(while (and (scan-buffer "^$" :no-dup t :regexp t)
(not (eobp)))
(delete-blank-lines)
; (insert (format nil "~D" (point)))
))))
(defun delete-blank-lines-selection ()
(interactive "*")
(ed::map-selection #'delete-blank-lines-region))

置き換えで
\n\n\n -> \n\n
を繰り返せば良いんでないか

正規表現置換で
\n\{3,\}
\n\n

>>386-387
なるほど。
サンクス

xyzzyでは日本語をシンボルに使っても普通に動くんですね

(defun あいうえお (xyz) (print xyz))
(あいうえお "むむむ")

(defun 関数 (変数) (print 変数))
(関数 "変数")

あ、これでもいいのか

>>389-390
ｽｹﾞｰ・・・そうなんだ。
つか、390にﾜﾛﾀよ。

ひとつ教えてほしいのですが
xyzzyで連続していない複数行の選択ってできますか？

たとえば文章が10行あったとして
1,3,5,6,7,10行目をコピーして、それらを最終行に移動させる。

といった感じです。よろしければ教えてください。

>>382
>>299

>>392
xyzzy 組み込みの選択ではできません。
やるとしたら、その用途用のコマンド群を準備することになります。

＞394
そうですか。返信ありがとうございます。
ん〜なんか色々準備が必要なんですね・・・

それにしても地震揺れた〜

リージョンとセレクションを同一視する方法はありますか？
いま
(global-set-key #\C-y 'paste-from-clipboard)
(global-set-key #\C-w 'kill-selection-to-clipboard)
(global-set-key #\M-w 'copy-selection-to-clipboard)
ってしてるんですが，これだとリージョンが使えなくなっちゃう

>>396
ttp://www3.ocn.ne.jp/~han/xyzzy/
にリージョンとセレクションをトグルで変換ってのがあるけど。

>>396
共通設定にリージョンとセレクションを中途半端に同期する
って，そういう項目無かったっけ？

http://www.lispworks.com/reference/HyperSpec/Body/m_time.htm
(time)ってマクロ無いんですね。
式の実行時間を計るにはどうすればいいんでしょう？

>>399
xyzzyのCltl2準拠度は高くないからね。
M-x apropos
time
すれば見つかると思うけど，

get-universal-time
get-internal-real-time

>>398
共通設定->さまざま->削除バッファとクリップボードを中途半端に同期する
ってのがありますが変化がありません

>>401
それはxyzzyがアクティブになった時・アクティブが他のアプリに移る時に
クリップボードとキルリングを同期するって項目。

>>401 すまんかった．こっちで．

(defun copy-selection-to-killring-and-clipboard ()
(interactive)
(copy-selection-to-clipboard)
(let ((x (get-clipboard-data)))
(if x (ed::kill-new x))))

(defun kill-selection-to-killring-and-clipboard ()
(interactive "*")
(kill-selection-to-clipboard)
(let ((x (get-clipboard-data)))
(if x (ed::kill-new x))))

連投スマソ． >>403 は selection用だった．
今度こそこっちで．

(defun copy-to-killring-and-clipboard (from to)
(interactive "r")
(copy-region-to-clipboard from to)
(ed::kill-new (get-clipboard-data)))

(defun kill-to-killring-and-clipboard (from to)
(interactive "*r")
(kill-region-to-clipboard from to)
(ed::kill-new (get-clipboard-data)))

文章を整形するときに「\n」じゃなくて「半角スペース＋\n」にしたいんですが、
どうすればいいか教えてください。

大体、常識も無しでいきなりxyzzyみたいなエディタ使うからキチガイが湧くんだ。

>>405　の質問は取り消します。

>>407
>>405とIDが違うねぇ〜

>>408
ダイアルアップじゃねーの。

すげえ想像だな

>381
ありがとうございます。
ただこれだと、セレクションを含むそれ以降がすべて置換されてしまいます。
replace-selection.lというのも見つけたんですけどそれも同じ動作でした。
なので 368 の方法に慣れようと思います。（´・ω・｀）

>371
ためしてみたら、キャレット部がウィンドウ内にある場合はキャレットが移動しませんでした。
スクロールしてウィンドウからでてしまうと解除されてしまうようでした。
>378 については最初からだめでした。
>369 にあるようにキャレットは必ず可視領域にないといけないんですかね。

変更行に色を付けるというのは
ttp://xyzzy.s53.xrea.com/wiki/wiki.php?cmd=read&page=tips%2F%CA%D1%B9%B9%B9%D4%A4%CB%BF%A7%A4%F2%C9%D5%A4%B1%A4%EB
にあったやつなんですけど、色付けが行番号の1桁目だけだと見づらいので、
できれば行番号部分全体に色を付けるように変更する方法よろしくおながいします。（・∀・）


かなり使いやすくなってきました。
回答くださった皆さんのおかげでつ。・ﾟ・(つД｀)・ﾟ・

>>411
最適化をかけたつもりが，バグを入れただけだった見たい．ごめん．
これでカーソルが画面内に残せる限りはカーソル位置が変わらないはず．

(defun mouse-wheel-scroll-keeping-position (window n lines)
(with-selected-window
(set-window window)
(unless lines
(setq lines (window-lines window)))
(let* ((gcol (goal-column))
(cline (current-line-number))
(mlines (* n lines))
(deltalines (- (get-window-line) mlines))
ccol)
(when (scroll-window mlines)
(when (<= 0 deltalines (window-lines))
(setq ccol (current-column))
(goto-line cline)
(goto-column ccol))
(set-goal-column gcol)))))
(setq mouse-wheel-handler #'mouse-wheel-scroll-keeping-position)

>>411
replace-selection.lなんてあったんですな。
381のコードは無駄だったか（if関数のelse部分いらなかったし)。
> セレクションを含むそれ以降
とありますけど、(max (selection-point) (selection-mark))以降も、ということですか？
381コードもreplace-selection.lも、そんなことないですけど。

> 変更行に色を付ける
(defun set-modified-line-mark (pos line)
(save-excursion
(goto-line line)
(set-text-attribute pos pos 'modified-line
:foreground 0 :background 2
:prefix
(code-char (+ (rem (if (buffer-line-number-mode)
(current-virtual-line-number)
line) 10)
(char-code #\0)))
:extend t)
(while (next-virtual-line)
(unless (= line (current-line-number))
(return-from set-modified-line-mark))
(set-text-attribute (point) (point) 'modified-line
:foreground 0 :background 2
:prefix
(if (buffer-line-number-mode)
(code-char
(+ (rem (current-virtual-line-number) 10)
(char-code #\0))) #\_)
:extend t))))
適当に書いたのでバグっているかもしれませんし、変な動作をすることもあると思いますが、
そのへんは手直ししてください。

>412 これでカーソルが画面内に残せる限りはカーソル位置が変わらないはず．
そういう動作になりました。画面内に残せる限りというところがつらいですね。ありがとうございました。
使ってるうちにキャレットが移動する状態にだんだん慣れてきますた。(*´Д`*)

>413
セレクションは普通にマウスでドラッグした部分、とどこかのページで読んだんですが、
もし違って解釈していたらごめんなさい。
要するにマウスでドラッグした部分だけ対象にしたかったんです。
> 変更行に色を付ける
は 411 に書いたURLのもので問題なく使えているのですが、
変更行に色付けの方法を、
行番号の1桁目だけではなく、全桁（行番号表示部分全体）を対象にしたいんです。（・∀・）
358氏のものも 411 のものと同じく行番号の1桁目だけ色が付きました。
動作自体は特に問題なかったです。

xyzzyはいい感じでつね。（なんとなく。）

>>414
; text-attribute のセット。色等は適当に。
(defun set-modified-line-mark (pos pos2 line)
(let ((prefix (code-char (+ (rem line 10) (char-code #\0)))))
(set-text-attribute pos pos2 'modified-line
:foreground 0 :background 2)))
; フック関数。
(defun buffer-modified-hook (buffer operation from to undo-p)
(let ((pos from))
(save-excursion
(goto-char pos)
(while (<= pos to)
(progn
(goto-bol)
(set-modified-line-mark (point)
(save-excursion (goto-eol) (point))
(current-line-number))
(if (not (next-line))
(return))
(setq pos (point))
)))))
とか？

＝､,-､　　､ヽ､　＼>　　　,,　 '''＼　＿
メﾞヽ､＼￣"""￣--‐　　 ､ ＼　　／ゝ､＼
＝─‐＼＼‐　 ／─'''''ニ二＼''' |レﾚゝゝ､＼ 　　　　　　　　　　／￣￣￣￣￣
￣く<<く >, ﾞ､／＜三三二＼￣＼ゝゝゝゝゝゝﾞ''ヽ､　　　　　　　|
＜<<<〈__入 ﾞ､く彡三三三二ヽくゝ＼メメメゝ､＿ゝ､＼　　　　　| 一つだけ
くく<<<<<< ﾞ､ ﾞ､ミ三三二ニ─ゝゝゝゝゝ,,,,,,,､ '（ ﾞ''ヽ､ヽ､　　　＜　　　願いをかなえよう
くくくくくく彡‐ヽ ﾞ､ﾐ三三二ニ'''くくゝゝ＿ゝゝ､＼＼＿,>」ﾉ,　　　 |
く く く く く 彡ﾞ､ﾞ､三三二ニ‐くゝ､／ ,,,,,,,,メメゝヽ''''"ゝゝﾞ丶､　　＼＿＿＿＿＿
二─二二彡彡､ﾞ､三三二==くメゝ／　　 ﾞ'ヽ､メゝゝゝゝゝゝゝﾞ''ヽ-､,,,,,,＿
‐'''"￣ ＼彡彡ﾐ､ﾞ､三二=''"く<メ/::　　　　　　＼''-､メメゝゝゝ＿ゝ ､ ,,､ヽヽ
､　　,,,,-　ﾞ彡／/ヽﾞ､三二＝ くゝ/:::....　　　　　　＼>∠ﾚ-,-‐ニ二メヽ''ヽ ﾉ
　ﾞヽ､,,,-‐//_//／,,､ﾞ､三二=　　ﾞ､　""'''　　　　　　ヽ＞／／ﾚﾚヽ,,＿__　 /
-,,,,,,-‐'''"""/////,,ヽ ﾞ､三二─　ﾞヽ.　　　　　　　　 ／／-ﾍﾍ,､ ﾚレレﾚノ
''"　　　　　　,ｌ|"////ﾉ,､＼彡'''''‐-ニ,､　::::::::::,,,,,,,,／／　　　　ﾞヽﾌ/|/| ﾚ'
　　　　　　／ゝ､/ヽ|ヽﾚ,,ﾞヽ､ﾞ''ヽ､,,,,,,＿ヽ''ニ＝'',,-'"､─-,,,,,＿　　￣"'ﾉ
　　　　　/メ / ﾚ／,''"へへへﾞ''─----￣-メヽ"ゝゝﾞゝヽ､　　＞---''"

ひさしぶりのバージョンアップ

>>414
> セレクションは普通にマウスでドラッグした部分、とどこかのページで読んだんですが、
> もし違って解釈していたらごめんなさい。
> 要するにマウスでドラッグした部分だけ対象にしたかったんです。
解釈はあってます。
勘ですが、実行するコマンドが間違っているような気がします。
M-x replace-selection としてますか？ メニューから選んだりしてませんか？

> 行番号の1桁目だけではなく、全桁（行番号表示部分全体）を対象にしたいんです。（・∀・）
そのような機能はおそらく用意されていません。
欲しければ亀井さんにお願いしてください。

>>381
こうじゃないッスか？
(defun replace-selection (pattern replacement &optional noerror)
(interactive "*sReplace selection: \nswith: "
:default0 ed::*last-search-string* :history0 'search
:default1 ed::*last-replace-string* :history1 'search)
(save-restriction
(if (pre-selection-p)
(narrow-to-region (selection-point) (selection-mark))
(narrow-to-region (point-min) (point-max)))
(goto-char (point-min)) ; +
(perform-replace pattern replacement nil nil (interactive-p) noerror)))

ファイルを開いたとき, 前回編集していた位置に自動的にジャンプするようにす
るにはセッションに保存しておく以外ないですか?

>>414
私は378さんではないですが、ちょっと改造してホイールでぐりぐりやった後に
キーボードで何か入力すると元の位置に戻るようなのを書いてみました。
カーソルはついてきちゃうように見えますが、元の位置は保存されてます。
(defvar *mouse-wheel-scroll-origin* nil)
(defun mouse-wheel-scroll-back-to-origin ()
(goto-char *mouse-wheel-scroll-origin*)
(setq *mouse-wheel-scroll-origin* nil)
(delete-hook '*pre-command-hook* 'mouse-wheel-scroll-back-to-origin))
(defun mouse-wheel-scroll-keeping-position (window n lines)
(unless lines
(setq lines (window-lines window)))
(with-selected-window
(set-window window)
(let* ((pos (point))
(mlines (* n lines))
(deltalines (- (get-window-line) mlines)))
(scroll-window mlines)
(if (<= 0 deltalines (window-lines))
(goto-char pos)
(unless *mouse-wheel-scroll-origin*
(setq *mouse-wheel-scroll-origin* pos)
(add-hook '*pre-command-hook* 'mouse-wheel-scroll-back-to-origin))))))
(setq mouse-wheel-handler #'mouse-wheel-scroll-keeping-position)

>>420
> ファイルを開いたとき, 前回編集していた位置に自動的にジャンプするようにす
> るにはセッションに保存しておく以外ないですか?
使ってないからよく分かりませんが、これとか。
ttp://www.afis.to/~start/xyzzy/mode/save-info.html

すいません。ちょっと改良。元の位置が画面外に出てしまった後でも、
画面内に戻ってきたらその位置にカーソルを表示するようにしました。
421の6行目から始まる関数を差し替えてください。
(defun mouse-wheel-scroll-keeping-position (window n lines)
(unless lines
(setq lines (window-lines window)))
(with-selected-window
(set-window window)
(let* ((pos (or *mouse-wheel-scroll-origin*
(point))))
(scroll-window (* n lines))
(if (pos-visible-in-window-p pos)
(goto-char pos)
(unless *mouse-wheel-scroll-origin*
(setq *mouse-wheel-scroll-origin* pos)
(add-hook '*pre-command-hook* 'mouse-wheel-scroll-back-to-origin))))))

>>422
どうもありがうございます.
とりあえず指示通りに.xyzzyに以下のように書いたのですが,

(setq *save-info-file* "~/.save-file-info")

;この save-info-file.l
(load-library "save-info-file")
(setq-default *save-info-do* t)


(add-hook '*find-file-hooks* 'load-*save-file-info*)
(add-hook '*after-save-buffer-hook* 'save-*save-file-info*)


編集したファイルを閉じて開こうとすると次のようなエラーが出て開けないので
すが, どうしたらいいものやら. よろしければお知恵を拝借願いたいです.

不正なデータ型です:"#<char-encoding: sjis>":char-encoding

巨大な lisp ファイルを compile or load しようとすると
どこかで存在しないシンボルを参照したらしく
"変数 xx が定義されていません" というダイアログが出ます。

このエラーが具体的にファイル内のどこで発生したのか
わからずに困っています。compile errorを追跡する方法は何か
無いでしょうか？

toggle-trace-on-error などそれらしいのは試してみたのですが・・・

コメントアウト

何度もすいません。これで 2ch-mode でも問題なく移動できるはずです。
もちろん元の位置にも戻れます。
(defun mouse-wheel-scroll-keeping-position (window n lines)
(unless lines
(setq lines (window-lines window)))
(with-selected-window
(set-window window)
(let* ((pos (or *mouse-wheel-scroll-origin*
(point))))
(scroll-window (* n lines))
(if (and (pos-visible-in-window-p pos)
(save-excursion
(forward-line (1+ *scroll-margin*))
(pos-visible-in-window-p (point)))
(save-excursion
(backward-line (1+ *scroll-margin*))
(pos-visible-in-window-p (point))))
(goto-char pos)
(unless *mouse-wheel-scroll-origin*
(setq *mouse-wheel-scroll-origin* pos)
(add-hook '*pre-command-hook* 'mouse-wheel-scroll-back-to-origin))))))

>>425
面倒ですが確実な方法を。
わざとエラーになるような構文を適当な位置に挿入します。(hogehoge) とか。
load などの際にはファイルの先頭から読んでいって最初のエラーを返すので、
もしエラー内容が変わらなければ元のエラーは挿入した位置より前にあります。
エラー内容が「関数が定義されていません：hogehoge」とかなれば、
本当のエラーはその位置より後ろにあります。
あとはこれを繰り返して範囲を狭めていってください。

全選択するとカーソルがファイル先頭に来てしまうのはどうにかなりませんか？

>>429
どうにもなりませんが、例えばどのソフトのどのような動作のようにしたいですか？

html+-modeを参考に

(pushnew '("\\.xyzzy$" . lisp-mode) *auto-mode-alist* :test 'equal)

ってやったんだが、こんな感じに拡張子にモードを関連付けしていけば良いのか？
記述間違ってない？

>>424
ぱっと見、ポイントの保存以外の動作はあやしい気がします。
とりあえず、この設定を最後に追加してみてください。
(setq *file-save-info-list*
(list
(list '(point) 'goto-char)))

>>431
ok

>>414
あ、全桁か…。勘違いしてました。
物理行の第1行目だけでなく、折り返されたときの2行目以降も、
ということだと、なぜか誤解してました。

418さんのいうように、無理のように思います。

すんげえ初歩的ですみませんが、
リージョンの範囲内だけの文字変換ってできますか？
方法があれば教えてください

文字変換でなくて文字列置換でした…

>>436
narrow-to-regionで指定範囲のみ編集可能にして置換するとか。

>>437
なるほど、ありがとうございました。

>358,418
>そのような機能はおそらく用意されていません。
マーク行の反転みたく行番号全体に反映させることはできないんでつね。
了解しますた。（・∀・）!!

>418
>replace-selection
いろいろ試したけどやっぱりだめですた。（´・ω・｀）
おとなしく narrow-to-region にします。

>421
ありがとございました。これもあきらめて素直にデフォルトに従うことにしました。
一応 423,427 共に試してみましたが、最初からだめでした。


回答くださった方々ありがとござました。・ﾟ・(つД｀)・ﾟ・
これから使いこんでいって、
いつか漏れも分からぬやしを励ますことができるようにな(ry

>>433
サンクス

またまたすません。（・∀・）!!

いままでのログを読むと、358氏の>381,413とか、>419とか、
replace-selection.lとかで、
普通にセレクション置換できているみたいなんですけど、
漏れができないのはなにか設定が間違っているのでしょうか。
replace-selection.lの場合は導入後、siteinit.lに
(require "replace-selection")としてます。
置換はマウスドラッグした後replace-dialogを割り当ててるキーから行っていまつ。

というのも、リージョンを反転するというものを使おうとしてみたところ、
なぜか反転されないのでなんか関係あるのかなぁと。（´・ω・｀）
rv-region.l導入後、siteinit.lに
(require "rv-region")
(global-set-key #\C-@ 'rv-set-mark-command)
で起動し直して、C-@でマークし、適当な位置にキャレットをもっていっても反転しまてん。
見当違いだったらすません。


>415は行番号ではなくて本文側が反転されてしまいますた。(ﾟДﾟ；)

>>441
>置換はマウスドラッグした後replace-dialogを割り当ててるキーから行っていまつ。
それが原因ですね。今までいろんな人たちが書いてくれていたのは
replace-dialog 自体を書き換えるものではありません。
起動の仕方は >>418 氏の言うとおり、M-x replace-selection です。
ダイアログはでません。

replace-dialog 自体を書き換える方法もちょっと考えてみます。

>>432
出来ました. どうもありがとうございます.
こういうときlispわかってたらなあと思います.

>>441
replace-dialog を書き換えることもできました。
でも単に関数を上書きするだけだと70行近くなるのでここに貼るのは気が引ける…。
ダイアログが出なくてもいいなら上記の方法でやってみてください。

>>442
>起動の仕方は >>418 氏の言うとおり、M-x replace-selection です。
replace-selection.l の M-x replace-selection は
>418 氏以前に試していたのですが、
replace-selection とすると No match となりました。
ちなみに >381 氏のは置換されませんですた。
>419 氏のは ﾀﾞﾒﾎﾟ（´・ω・｀） と思いあきらめて試していなかったのですが.......
M-x replace-selection でできますた !!!!ｻﾝｸｽ（・∀・）ｽﾊﾞﾗｼｲ!!!!

>>444 replace-dialog を書き換えることもできました
(ﾟ∀ﾟ) !! それがあるとさらにしあわせになれそうですが。。。

>>445
もしかしてこれでいけたりして。
要 encap.l
(require "encap")
(encapsulate 'replace-dialog
'replace-selection-dialog
'((interactive)
(save-excursion
(ed::map-selection
#'(lambda (start end)
(goto-char (point-min))
(apply basic-definition argument-list))))))

>>419 のやつは書いた後にまだまだいまいちだなと思った。
replace-selection.l の方がいいです。
replace-selection.l を使う場合は
M-x replace-string-in-selection と
M-x replace-regexp-in-selection です。
ドキュメントが無いので仕方ないかな。

>>445
あれま、書いてるうちに別案が。一応Wikiに書いてみたんでどうぞ↓
ttp://xyzzy.s53.xrea.com/wiki/wiki.php?tips%2F%C1%AA%C2%F2%C8%CF%B0%CF%C6%E2%A4%CE%A4%DF%C3%D6%B4%B9
でもあそこの人たちはすごいので、もっといい案が出てくるかもしれません。
２、３日反応を見てからでもいいかも。

>>446
もとのreplace-dialogつぶしてどうするよ

>>448
> >>446
> もとのreplace-dialogつぶしてどうするよ
あら、そうッスね。map-selection の動作を理解してなかったッス。
効率悪そうですがこんなもんでしょうか。
; あいかわらず encap.l が必要
(require "encap")
(require "dialogs")
(encapsulate 'replace-dialog
'replace-selection-dialog
'((interactive)
(if (pre-selection-p)
(save-excursion
(ed::map-selection
#'(lambda (start end)
(goto-char (point-min))
(apply basic-definition argument-list))))
(apply basic-definition argument-list))))

>>446
>replace-selection.l を使う場合は....
不勉強でした。ありがとうござます。ﾊｽﾞｶﾁｨ..・ﾟ･(ﾉД`)･ﾟ･
>もしかしてこれでいけたりして
いけました！が、セレクションがない場合に、
replace-dialogをすると反応しませんでした。
一度でもセレクションしてからreplace-dialogした後だと、
セレクションがなくても出るようになりました。
とおもったらこれは >449 で解決されてるんですかね。

>>447
ﾋｬﾎ━━━＼（ﾟ∀ﾟ）/━━━ !!!!!
いけますた！ありがとうござました。
Wikiの方の動向も見てみようとおもいまつ。（・∀・）

(define-modify-macro concnew (obj &rest args)
(lambda (place obj &rest args)
(unless (apply #'member obj place args)
(nconc place (list obj)))))

この式を評価すると、変数 nreverse が定義されていないと
いう意味不明なエラーが出ます。nreverse なんてどこにも
使って無いんですが何故でしょう・・・

>>451
スレ違い気味かなと思いつつ。xyzzy part10 にて既出だったので引用しておきます。

>256 [03/12/14 15:52 ID:RBHbnH7I] 名無し~3.EXE <sage>
>
> >>78
> 激しく遅レスですが、
> define-modify-macro の定義に問題がありました。
>
> setf.l line.302
> (return ``(setf ,reference (,',function ,reference ,,@nreverse ,(cadr l)))))
> ↓
> (return ``(setf ,reference ,(list* (quote ,function) reference ,@(nreverse vars) ,(cadr l)))))
>
> で、とりあえず concnew は動きました。
> rest パラメータを使うものについては問題ないと思います。

>>452
おお、ここは本スレじゃなかったのですね。すみません。
ご回答ありがとうございました。

ファイラーでＤＩＲの移動（Ｊ）でよく移動するのですがその時に表示
されるダイアログのなかに今までの履歴のパスがありますよね？あれを
でないようにすることはできないでしょうか？filer-directoriesに設定
してあるものだけを表示して欲しいのですが．．．

>>454
~/lisp/filer.lのfiler-jump-directoryをちょっと書き換えただけ。
F12キーに割り当てているのは、自分で#\Jとかに変えてください。
あ、「ｶﾚﾝﾄﾃﾞｨﾚｸﾄﾘ」も要らないなら、("ｶﾚﾝﾄﾃﾞｨﾚｸﾄﾘ" . ,(default-directory))を消せばOK。

(in-package "editor")
(defun filer-goto-directory ()
(multiple-value-bind (result data)
(dialog-box *filer-jump-directory-dialog-template*
`((list ("ｶﾚﾝﾄﾃﾞｨﾚｸﾄﾘ" . ,(default-directory))
,@*filer-directories*))
'((list :column (100))))
(when result
(let ((path (string-trim " " (cdr (assoc 'path data)))))
(when (zerop (length path))
(setq path (cddr (assoc 'list data))))
(and path
(filer-chdir path))))))
(define-key filer-keymap #\F12 'filer-goto-directory)
(in-package "user")

>>455
うぉーい、うまくいきました。ありがとうございましたー。

今気づいたんだが、亀井さんとこが
「ばさらやる気のない謎のぺぇじ」から「ばりやる気のないぺぇじ」に変わってる。

>>457

>457

>>457
も一回あくせすしてみ

>>460
なんだ。そうだったのか。先に言ってよ orz

>>457
「めっさやる気のないぺぇじ」というのもありますね。
どういうローテーションなんだろ？

ただいえるのはいつもやる気がないｗ

バージョンアップまだかな・・・

ごくたまに、今まで２回ほどやる気があった時がなかったか？ｗ

>464
やる気のあるページが出た時には思わず保存してしまった(w

---
めちゃやる気のないぺぇじ
やっさやる気のないぺぇじ
びみょーにやる気のないぺぇじ
ばりやる気のないぺぇじ
ちーともやる気のないぺぇじ
あまりやる気のないぺぇじ
でらやる気のないぺぇじ
ばさらやる気のないぺぇじ
ごっつやる気のないぺぇじ
まったくやる気のないぺぇじ
むっさやる気のないぺぇじ
やる気のないこと山の如しなぺぇじ
でたんやる気のないぺぇじ
げらいやる気のないのぺぇじ
なまらやる気のないぺぇじ

ちっとばかしやる気のあるぺぇじ
---

大体このぐらい・・・？
それぞれのページは「謎のぺぇじ」になることもある。

メニューのツール(T)->共通設定(C)でタブ幅を設定しても、
xyzzyを再起動するとデフォルトの8に戻ってしまいます。
.xyzzyに(set-tab-columns 2)を記述しても効果がありません。
他にタブ幅を変える設定はありますか。

>>467
> xyzzyを再起動するとデフォルトの8に戻ってしまいます。
そんなことはない．
historyファイルを正しく読めてないんじゃないのかな．
XYZZYHOMEは正しく設定しているよね？
タイプミスなんてしてないよね？
それ以外の可能性は，ちょっとよく分からない．

>>468
見て見たら.xyzzy.historyが古かったから削除したらいけました。
どうもありがとう。
でも何故そうなったのかは分からず終いでした。

nani konosure
script no kumikata toka yoku wakannai kara kitara
highlevel sugi orz

確かにこのスレもpart1のころと比べるとだいぶレベルが上がってるね。
昔はwww-modeのコンパイル方法がわからなくて悩んでたくらいなんだから

>>471
それはクレクレ厨に親切な人がコードを書いてあげるスレになったからでしょ．
ここに誰もコードを貼り付けなければ，もう見に来ないですむんだけどなぁ．

なんじゃそりゃ

その通りだと思うよ。

すみません。教えてください。

OHKUBOさんのbrowserexでﾌｧｲﾙのﾃﾞｨﾚｸﾄﾘ表示した時に、
ﾌｧｲﾙも表示できるﾂﾘｰ型のｴｸｽﾌﾟﾛｰﾗみたいなので表示することってできませんか。
別画面でｴｸｽﾌﾟﾛｰﾗを開くのではなくて、
ﾃﾞｨﾚｸﾄﾘ表示部分からﾂﾘｰ型の移動ができると便利だなと思ったので。

sfilerというｴｸｽﾌﾟﾛｰﾗみたいなものを表示というものや、
select_directoryというﾌｧｲﾗでﾂﾘｰ型移動というものはみつけたんですが。。。

ﾌｧｲﾙのﾃﾞｨﾚｸﾄﾘ表示のところにselect_directoryみたいな表示を組み込むとか、
そんな感じでもいいんですが。
どなたかいい方法ありましたらよろしくお願いします。m(_ _)m

おかしいな。ageてしまいました。すみません...|ω･`)

横スクロールバーは出せませんか？

>>477
>2のリンク先

>>477
ツール→共通設定→表示→水平スクロールバー

>478-479
すいません、ありがとうございました。

2ch-modeで最近開いたスレ履歴の数を増やしたいんですけど
どこいじればいいですか？

>>481
> 2ch-modeで最近開いたスレ履歴の数を増やしたいんですけど
> どこいじればいいですか？
~/.2ch/config.l にこんな。

(setq 2ch::*history-save-size* 50)

当然ながら50のところは好きな数で。
バイトコンパイルしてたら、し直すのを忘れずに。

ウホッ、ありがとん。

行番号の数字の部分の幅って変更できませんか？

バッファツールバーを左側に出して、タブの文字列は横書きにしたい
んですがどうすれば・・・

>> 485
HIE氏のQandA参照。
http://hie.s64.xrea.com/xyzzy/qanda/html/bufferwindowframe.html#48

「こういうのできないかな」と思ったときは、
http://hie.s64.xrea.com/xyzzy/
http://web.sfc.keio.ac.jp/~t01450ms/xyzzy/wiki/
この２ヶ所を探してみれば、だいたい見つかる。
というかテンプレ読もう。

c-mode（やそれ以外でも）でのインデント（TABキーを押すとかオートインデントとか）で、
スペース(0x20)を使わずにTAB(0x08）でインデントするように変更するにはどうしたら
いいんでしょう。
せっかくオートインデントとかリージョンインデントとかあるのに、cltl+q TABでぽちぽち
タブコード入れていくのに疲れました。

あ、ちなみに、オートインデント機能を無効にして、TABを押したらTABコードが
入力されるようにする方法は知ってます。（コピペしたものなのでとうのlispの
中身の意味は全然理解してませんが）

>>487
(setf *c-indent-tabs-mode* t)

>>489
ありがたう。

>>489
あ、もしかして、これ、TABにしたいモード分全部かかなきゃいかんのでしょうか。

つうか、まったく同じ質問がWindows板の過去ログにありましたね。
http://pc3.2ch.net/win/kako/1019/10196/1019691417.html

indent tabs mode xyzzy でググって見つけましたorz

>>491
大抵の場合 *c-indent-tabs-mode* の値を引き継いでいるから，
それだけでも結構いろいろなモードに反映される．
デフォルト値は
(setq indent-tabs-mode t)
としておく．

独自の *xxx-indent-tabs-mode* 等があれば，個別に対処するしかない．

>>492
すまない．引き継いでるのは perl だけだった OTZ
1つ1つ設定してくれ

もし、知っている人がいたら教えてください。
ttermを入れて、AS400端末を見ることができて、感動しているのですが、
文字の位置が本来の位置とずれ、うまく使えないようなのです。
この場合の対処方法についてご存知の方はいらっしゃいませんか。
教えて頂けたら幸いです。

神の声、再公開

ハコ箱フォルダ
http://www.hakobako.com/

ID:　wewewe3 or wewewe4
PASS:　asdf111

>>495
なにこれ?

ゑゑゑ ◆WEWEWE2jRkの声
http://lhswewehdq.at.infoseek.co.jp/

えーっと、631番さん
えークラミジアとえートリコモナスのア、アンサンヴル
そんなゑゑゑさんですが、マリオの、本職は、なんで、あーもぅ･･･

コイツまた空気読めねぇーよぉー　だーからぁーア、ウザコテとか言われるんだろぉー

ウッゼーェ！

あのななんと言うかなぁ、えーっと、ウザコテは、なぁ、なんと言うか
あのーウ、ウザコテになろうとしてウザコテになってんじゃねぇんだよ
ウザコテになるしかなかったからウザコテなってしまったんだろうがぁー

ホーント狙ってやってないでしょぉー
やるんだったら最初っから狙ってウザコテになりなさいよ

クッソーォ！　ウッゼーェ！


http://www.yonosuke.net/dtm/data/5088.mp3
http://www.yonosuke.net/dtm/data/5078.mp3
http://ime.pandora.nu/cgi-bin/source/ime0003.mp3


月刊 失業者マガジン9月号より
毎日がうまくいかなくても
コーヒーを飲みながらこの曲を聴ける幸せを思い出して欲しい

なんか、この声俺の声と似てる。

elisp.lってどこにあるんですか？

すみません、自己解決しました

　　　　　＼　DATTEﾔｯﾃﾗﾝﾅｲｼﾞｬﾝ♪／

　　○　○..　○..　○..　○.　○.　○.　○..　○.　○　　ウェーイ　ウェーイ
.　v/ゝv/ゝ.v/ゝ.v/ゝ.v/ゝ.v/ゝ.v/ゝ.v/ゝ.v/ゝ.v/ゝ
.　/<. /<. /<.　/<..　/<..　/<.　/<.　/<..　/<..　/<

http://web1.nazca.co.jp/hp/wewewe/
http://web1.nazca.co.jp/hp/wewewe/
http://web1.nazca.co.jp/hp/wewewe/
http://web1.nazca.co.jp/hp/wewewe/
http://web1.nazca.co.jp/hp/wewewe/
http://web1.nazca.co.jp/hp/wewewe/

ニュー速VIPキモ声固定ランキング

1位　　ゑゑゑ　　　　声、発言、口調の全てがキモい、これを超えし者は存在するのか？
2位　　魔少年Ｄ．T　デブ声、声が篭っている
3位　　マルメン　　　全体的にキモい
4位　　イロモノ　　　おっさん声


http://web1.nazca.co.jp/hp/wewewe/

ハコ箱フォルダでのラジオの配布

http://www.hakobako.com

ID　：　wewewe5
PASS：　asdf222

>>494
いれて試したが，特に変なところは無いように思う
少なくとも俺には，あんたの質問が意味不明だ
もっとも詳しく説明されても俺には答えてあげられるスキルは無いけど

>>503
> >>494
> いれて試したが，特に変なところは無いように思う
おお〜、返答ありがとうございます。

> 少なくとも俺には，あんたの質問が意味不明だ


質問の意味は、パーソナルコミュニケーションで
下のように表示されているところ、

1. Entry 16. Instruct
2. Judge 17. Display
3. text 18. Menu

どういうわけか、

1. Entry 16. print out
otes 2. Judge 17. Display
3. text 18. Menu

のように表示されてしまうのです。
メニューだけならまだしも、あらゆる画面がこんな感じになって
どうしようもないという状況です。


> もっとも詳しく説明されても俺には答えてあげられるスキルは無いけど
そうおっしゃらずに、、、、
「おまえ、これチェックしてないやろ、アホボケ」という答えを期待しています。

sqlplus-modeってのが過去存在したようなんですが
googleで探してもどこにも見当たらずダウンロードできません・・・・
ご存知の方いらっしゃいませんか

>>505
作者の方がページ消しちゃったみたいですね。
ttp://web.archive.org/web/20030408165622/http://www.enjoy.ne.jp/~nekoaji/xyzzy/xyzzy.htm

それを元にしてこんなの作られた人もいるようです。
ttp://nyrl2000.hp.infoseek.co.jp/xyzzy/

>>504
そういう反応は嫌いじゃないかも．
なので，少しコード追ってみたけど，やっぱり分からないや
タブ幅という単純な問題でもなかったし．
この問題は AS400 にログインした時のみ出るのだとしたら，こっちではちょっと確認しづらい．
下のコードを tterm.l の一番最後に入れて，サーバーからどんなメッセージが返されるのか
調べてみては？
それとここにそのログはって，何が違うのでしょうかっていうのはなし．
初心者だから・・・ってなきごともなし．
自分でうまくいくサーバーと何が違うのかを調べる．
原因がわかったら，報告してくれると直す人が現れるかもしれない．

(defvar *temp-buffer-stream* nil)
(setq *temp-buffer-stream* (make-buffer-stream (create-new-buffer "*tterm log*")))
(defun tterm-process-filter (proc str)
(with-tterm-cmd-buffer (process-buffer proc)
(tterm-display-prettydump str)
;(message "~A" str)
(format *temp-buffer-stream* "~A" str)
(tterm-display-netdata str)
(or (and tterm-reset-p
(if (eq (elt str 0) *TELNET-CMD-IAC*)
(setq tterm-reset-p nil)
t))
(tterm-process-input proc str))
(setq tterm-prompt-end-point (point))
(run-hooks 'tterm-filter-hook)))

2ch-modeで、スレ検索をした後の"2ch: Grep"というbufferでリンクを開こうとすると、
下記のエラーが表示されてしまいます。
"変数が定義されていません: 2ch::thread-buffer-parent"

~/.2ch/config.l にある"リンクは常にブラウザで開く"を有効にすると、
上記のエラーは表示されなくなりますが、
今度は2ch内のリンクが2ch-mode内で開けなくなってしまいます。
いったいどうしたらいいんでしょうか・・・

ああ・・誰か私を励まして・・・

メニュー項目のそれぞれ右端に表示されているショートカットキー（新規作成 Ctrl-n←これ）は消せませんか？
設定の表示とか舐めるように見ても探せません。

>>508
頑張れ、超頑張れ。

>508
マジ頑張れ。努力すればたまに結果がついてくるから頑張れ。

>>507様
早速のレスありがとうございます。


> この問題は AS400 にログインした時のみ出るのだとしたら，こっちではちょっと確認しづらい．
> 下のコードを tterm.l の一番最後に入れて，サーバーからどんなメッセージが返されるのか
> 調べてみては？
了解しました。では早速下のコードをtterm.lへいれてと、、、






tterm立ち上がりません。


ガーン、理由分かりません？


ということで、下記のコードの
ご報告また後ほどということに。

取り急ぎ、お礼まで。
（なんか、調査にだいぶ時間をとらせて
しまったみたいですみません。）

>>512
> tterm立ち上がりません。
なんででしょう？ M-x toggle-trace-on-error
してから試してみてください．

HTMLの編集してるとき、
タグの部分を簡単一気に選択したいなーと思っていろいろ探してたら、
>>368のものを見つけて便利に使わしてもらってます。
ついでに<title>励ましあえ その5</title>みたいな>と<の間の文字でもそうしたくて、
なんかいろいろ見ながら多分一応それらしく動くものをつくってみたんですが、
それを>>368のものと一緒に動作させる方法がよくわかりません。
<と>の間のときには>>368ので、
>と<の間（<と>の外？）のときには違うクリックの動作をさせるには、
どうすりゃいいんでしょうか。
ちなみにつくってみたのはscan-bufferで>の手前までいって、
start-selectionで<までいくという感じなんですけど。。。
使い方間違ってるかもしれなくて、
根本的によくわかってないのでどなたかアドバイスお願いします。

>>514
358ですが、まず>>358の
> (when (and (eq *last-mouse-window* (selected-window))
> (save-excursion
> (goto-last-mouse-point)
> (parse-point-syntax)))
を以下に変える。
(when (eq *last-mouse-window* (selected-window))

で、case関数に、(:comment )(t ...)を追加する。このとき、...の部分に、タグ外部でやりたいことを書く。
つまり、
(case (parse-point-syntax)
(:tag ...)
(:string ...)
(:comment )
(t ...))
とするわけです。
詳しくは、reference.xmlのcaseとparse-point-syntax参照。

>>509
infoとかapp-menu.lを見る限りまともな方法はなさげ。
まともでない方法でよければ0.2.2.233のxyzzy.exeで
0092DDE: 74 → EB
としてみるとか。

等幅フォントは扱えませんか？

>>517
等幅フォントしか扱えません。

思い切り間違えたon_　プロポーショナルフォントでした
で、無理ですか…AAの編集ができなくて困ってたのです

kamailとPOPFileの連携について教えて下さい。
POPFileのインストールを終えて、.kamailに
(setq *kamail-pop3-server* "127.0.0.1")
(setq *kamail-pop3-get-list*
'(
("127.0.0.1" "pop:user:apop" "passwd")
))
としました。
そこで、kamail側から受信を試みたところ、一通りメールを受信した後に、
「c:/progra~1/xyzzy/kamail/pop:user:[email protected]
　パラメータが間違っています。」
とエラーメッセージが表示され、メールの受信が完了できません。
何か回避策はないでしょうか？

>>515
できますた！
ｻﾝｸｽｺです。

あのー質問なんですが、
ここと、Win板の方と、両方すれあるみたいなんですが、
こういうことはこっちで聞けやｺﾞﾙｧ！とかみたいなのって、
なんかあるんでしょーか。
漏れみたいな初心者には、禿増しあうやしすれの方が、
回答もらいやすいとかそーいうのでうが。

>>522
既に誰かはできていることが，自分はうまく使えない場合は励ますほうで．
それ以外は本スレだと俺は思っている．
少なくともここは，初心者の要望を出す場所ではないと思う．

>>519
2ch-dialog使えば、多少は楽になる。

>>522
>>1くらい見てから質問してもいいと思うのだが。

>>522
両方のスレをしばらく見て雰囲気をつかむ。

>>522
半月ROMれ。

昔は半年 ROM れと言われたもんだ。

clickable-urlいれてて、たとえば、
background=http://xyzzy.xyzzy/...
の"background"部分のダブルクリックで、
ブラウザが立ち上がっちゃんですが、
これはこういうものなんでしゃうか。（´・ω・｀）ｼｮﾎﾞ

>>528
そう気づいたなら修正してあぷする

>>528
ほんとだ。

>>528-530
ども。直したのでこれからアップしますね。(^^;;

>>531
修正早っ。乙です。

>>531
tips/clickableurlの色付表示を新たに入力したものに対しても有効に - Xyzzy Wiki
http://xyzzy.s53.xrea.com/wiki/index.php?cmd=read&page=tips%2Fclickableurl%A4%CE%BF%A7%C9%D5%C9%BD%BC%A8%A4%F2%BF%B7%A4%BF%A4%CB%C6%FE%CE%CF%A4%B7%A4%BF%A4%E2%A4%CE%A4%CB%C2%D0%A4%B7%A4%C6%A4%E2%CD%AD%B8%FA%A4%CB
> いつかそのうちに clickable-url の方も書き換えますね。

これもぜひお願いします！

もしかして標準のエディタにしてるとview-source:で不具合出る？

>>534
いま試したところ、特に不具合には気がつきませんでしたが、
どのような症状がでますか？

>>533
ども。やっつけ仕事的にやっときました。

とりあえず正規表現キーワード一本でいくようにしたため、ファイル
オープン直後は URI は色づけされていません。
各種 mode-hook に引っ掛ければいけますが、それも面倒ですね。
set-text-attribute と regexp-keyword-list の両方で色づけする
というのはいまいち感が漂いますが、結局そうするかもしれません。

ミニバッファ内でファイル名を補完する・・・って感じのLispが何処かにあったと思うんだが何処だったっけ？
探してるけど見つかんないorz

(interactive "f") は？

Netinstallerでinstallの"i"を実行すると、尽く
「エラーが発生しました。指定されたファイルはアーカイブファイルではありません」
のようなメッセージが出て失敗するのですが何故でしょう・・・

>540
　UNLHA32.dll とかは入れてありますか？圧縮形式に対応した解凍
DLLをインストールしていないと使えません。

DLL がインストールしてあるなら、不正な lzh の問題かもしれない。

>>536
ありがとうございました。無理言ってすみません。

www-modeを入れてみたモノの、
yahoo検索もできず、今ひとつ使えない
感じなのですが、皆さんはどのように
お使いになってらっしゃるのでしょうか。
2ch-modeは使いまくってるのですが。

>>544
検索は google なら通りますね。
それはいいとして、私の場合は、
ローカルにある諸々の html なドキュメントを見たいときに使うことが多いです。
ブラウザってよりはビューアな感じかなあ。

>>545さま
即レスありがとうございます。
> >>544
> 検索は google なら通りますね。
確かに、通りました。ちなみに、自分はCeek.jp
というところをよく使うのですが、これもおｋでした。

> それはいいとして、私の場合は、
> ローカルにある諸々の html なドキュメントを見たいときに使うことが多いです。
> ブラウザってよりはビューアな感じかなあ。
うーん。そういう使い方もありですね。自分の
場合は、職業柄ローカルにｈｔｍｌのファイルをいれることは
あまりにないのですが。

質問です
このソフトでウムラウト記号を検索、ほかの文字に置換するのは
どうやったらできるでしょうか
検索窓にウムラウト文字を入力しようとしても、入力されません(コピー＆ペーストでも無理でした)
対応するフォントに設定しないといけないようなのですが
検索窓のフォントをどうやって変えるのかがわかりません

>>547
M-% は？

>>548
M-x query-replace でした．
このキーバインドはデフォルトじゃなかった orz

>>547
ダイアログでやりたいなら、
・lisp/dialog.l の 84-100 行目をコピーして、.xyzzy に張り付け。
・最初の行、(defvar *replace-dialog-template* を、(setq ed::*replace-dialog-template* に変更。
・(:font 9 "ＭＳ　Ｐゴシック") とかなっている行の、フォント名を適当に変更。

とかでとりあえずフォントの変更はできますが、そもそも検索窓が多言語に対応しているのかなあ。
（一応付け加えるなら、元のファイル (dialog.l) の方は変更しない方が無難です）

素直にやるなら、replace-string とか replace-regexp を適当なキーに割り当てて、
（例えば (global-set-key #\C-r 'replace-string) とか）
ミニバッファから入力するようにします。こっちの方が多分面倒は少ないです。
ダイアログじゃなきゃやだって言うなら話は別ですが。

>>548
M-% ってデフォルトで割り当てられてましたっけ？

あら、かぶった。失礼。

>>548
>>550
どうありがとうございます
ダイアログから検索することにはこだわってはいないので
紹介してくださったミニバッファから行うもので試してみます

タイトルにファイル名だけ表示するというのはできない？

>>553
ttp://www.uranus.dti.ne.jp/~shiro-/soft/xyzzy/preference.html

pythonを使ってみようと思い， py-mode を導入したけれども
なんかうまく動いてくれません． 普通に使えている人っていますか？
#\: や #\TAB を入力しても エラーが出て使えません．

>>555
特に問題ないですよ。
何か、py-modeでいじりました？
エラーのメッセージ内容も教えてください。

すみません．バージョンが古かったのが原因でした．＿|￣|○
2002-??-???? 版 だったのですが， 2003年版にして動きました．

それと cygwin で入れた python2.3.4 を使ってますが， shell.l とか
shell3.l で python まともに使えないのも自分だけでしょうか？
>>> が表示されないのでインタラクティブに使えません．

mapaeなんですが

perl ./mapae.pl getRecentPost

としても

fault:No posting privileges

となってしまうのですが、このスレで聞くのは
間違いかもしれませんが・・・。全く原因がわかりません。
他のブログクライアントでは問題なかったのですが

>>558
このスレで聞くのは本当に全く間違いです。
わかっているならば誤ったことはするべきでありません。

HIEさんとこのchcolorで.xyzzyに

(autoload 'chcolor "chcolor/chcolor" t)
(autoload 'chcolor-specify-file "chcolor/chcolor" t)
(chcolor-specify-file "MIFES")

と書いて起動した時の*scratch*バッファは
設定が反映されてMIFESカラーになるのですが、
この後続いてファイルを開くと設定が反映されず、
デフォの色になってしまいます。
ここでM-x chcolorでメニューを出して
（この時"次から開くバッファも変更"と"常に全てのバッファを変更"に
チェックが入ってる状態です）
色を変えると次から開くバッファも色が変わってくれます。

起動後M-x chcolorすることなく.xyzzyに設定したカラー設定を
全てのバッファに適用するにはどうすればいいのでしょうか？

>>560
(require "chcolor/chcolor")
(chcolor-specify-file "MIFES")
でどうかと？

あー，勘違い．
つーか そういうテンポラルな変更じゃなければxyzzy.ini のレベルで変更してもいいと思うけど．

(autoload 'chcolor "chcolor/chcolor" t)
(autoload 'chcolor-specify-file "chcolor/chcolor" t)
(chcolor-specify-file "MIFES")
(setq *chcolor-table* (chcolor-load-from-ini
(merge-pathnames "MIFES" *chcolor-ini-dir*)
*chcolor-keylist*))
(chcolor-set 1)

>>561,562さん
所望の動作になりました！ありがとうございます。

>>554
さんくす

howm-wrapを使用し始めたのですが、emacsだと

2004-10-02-014734.howm | =のタイトル

とでるところが

2004-10-02-014734.howm |

のように=でつけたタイトルが一覧表示（メニューでa）で表示されません。

皆さんちゃんと表示できてますか？
.xyzzyを以下のようにhowmに関する記述のみにして確認しています。

(require "elisp")

;;; migemo
(require "migemo/migemo")
(autoload 'migemo-toggle "migemo/migemo" t)
(define-key *isearch-map* #\C-e 'migemo-toggle)

;; howm
(pushnew (merge-pathnames "site-lisp/howm/" (si:system-root))
*load-path* :test #'string-equal)
(require "howm-wrap")
(setq elisp-lib::howm-menu-lang 'elisp-lib::ja)

>>565
出ないね． 修正コードよろしく

>>563
こんなのもあるよ
http://ohkubo.s53.xrea.com/xyzzy/#chini
設定ファイルはchcolorのやつの拡張子をiniに変えるだけでOK

>>565
(setq howm-list-all-title t)
で出る。

C-x # sort
で buffer が sort されるのはわかったけど降順にするにはどうしたらいいのかな。
#'> とか -r とかしてみたけど、違いますとか言われちゃいます。

C-x @ sort /?

sort /r
でいけた。

ありがとうﾏﾝｺ

だいぶ以前にご迷惑かけた47です。あれから、ない頭で暇を見つけてはxyzzyで遊んでました。
今日、初めてメジャーモードというものをつくることができました(できたと思っているだけかも)。
49さんはじめいろいろ教えてくださった方に感謝です。ありがとう！

47氏乙

「迷惑」ってのはあの騒動のことか

ﾜﾛﾀ

確かに47氏だな。

レス見て今更気付きました。かなりにやけてしまいました。
今後は47D(47駄目なほう)に改名します。

バックアップファイルを作業中のフォルダ下のbackupってフォルダに保存するようにしてます。
で、Gresregでバックアップファイルにも一致するような置換条件（特にファイル名に*を指定したとき）を与えたときに、
バックアップファイルにも置換を行ってしまうためにbackupフォルダが何重にもできてしまうんですが、
回避する方法はありますか？

そもそもバックアップファイルは置換対象にしないようなオプションがあってもいいと思いますが。
バックアップですし。

バックアップって作業中のディレクトリ以下にも設定できるんだ．知らなかったというか忘れてた
コードレベルの対策は既知じゃないなく，考えるのが面倒だしそっちも自分でコード書くつもりがなさそうなので

gresregの対象ファイルを拡張子で制限するか
バックアップをまった区別のディレクトリ以下に置くようにすればいいでしょ？
cvsやsubversion使って，もっとちゃんと管理してもいいし．

2ではバックアップファイルを開くのが面倒になるけど，その補助として open-backup が使える．
自分はバッファタブの右クリックメニューからも呼べるようにしてある．

> そもそもバックアップファイルは置換対象にしないようなオプションがあってもいいと思いますが。
そういうコードを書けというならすれ違い． また頼んでいる態度とも思えない

>>579
open-backupは知りませんでした。
ただ、全く別の場所に集中して置くとなると、同名のファイルを扱うことが多いので不具合がありそうなのでやめておきます。
拡張子で制限してしまうのが一番手っ取り早いですね。

>> そもそもバックアップファイルは置換対象にしないようなオプションがあってもいいと思いますが。
>そういうコードを書けというならすれ違い． また頼んでいる態度とも思えない
頼んでるのではなく、「そんな機能があるとしたら」に対しての反応が知りたかっただけです。
不快な想いをさせてしまったのであれば、すみませんでした。

>>580
>1-5を読んでリンク先もちゃんと見てみたら？
君のやりたいことに関するヒントはたくさんあるはずですよ。

>>581
えぇ、確かにありました。
*hierarchic-backup-directory*をtに設定することで階層が掘れるんですね、知りませんでした。
ご迷惑をおかけしてすみませんでした。

もしかしなくてもFAQだと思いまつがすみません

parenで作者さんのサイトでは特定のモードだけ括弧だけボールドにする方法として
(setq *c-mode-hook* '(lambda ()
(setq *paren-highlight-only-paren* t)))

が紹介されていますが、全てのモードで共通して括弧のみボールドに
することってできますでしょうか？

(require "paren")
(turn-on-global-paren)
(setq *paren-highlight-only-paren* t)

としてみましたがだめですた。やっぱ各モードごとに設定してやらないとダメ？

超便利な拡張LISPがいっぱい存在していて魅力的なxyzzyですが
いざ自分で何かカスタマイズしようとするととたんにつまずいてしまう orz
あと変更のあった行番号をボールド表示とかもやりたいんだけど
どこかにお手本とかありましたら誘導していだけると嬉しいでつ

>>583
setq じゃなくて setq-default で行けたはずです。
ちょっと今手元にないので確かめられなくてアレですが。

>>583
> あと変更のあった行番号をボールド表示とかもやりたいんだけど
たしか過去ログにあったはず。 たぶん本すれのほうだと思うけど。
見つけたらここにもリンク載せてくれるとうれしい

>>584
おぉ、レスありがとうございます。確かに↓で無事できました。ヽ(´▽｀)ﾉ

(require "paren")
(turn-on-global-paren)
(setq-default *paren-highlight-only-paren* t)

共通設定は -default でやれば良いと φ（。。）ﾒﾓﾒﾓ…
キーバインドは　global-set-keyとかやるらしいので
見当ﾊｽﾞﾚにも globalなコマンド調べてたです

>>585
リロードしないで書き込んでしまいました。こちらも情報提供サンクスです。

本スレっていまPart11ですよね…ちっと気合が必要かも
元秀丸ユーザーとしては変更行可視はやはりどうしても欲しいので
がんがって探してきますです

多分に時間かかると思いますが見つかったらリンク張りに戻ってきますね

>>586,587
ソース見て *paren-highlight-only-paren* は defvar でなく、
defvar-local で定義されているから
setq でなく、
setq-default と覚えるとよいかも。
defvar-localで定義するとすべてのバッファにローカル変数として定義されると
思ってよい。
変更行可視は wiki にあるのがよいよ。

>>583
http://xyzzy.s53.xrea.com/wiki/wiki.php?tips%2F%CA%D1%B9%B9%B9%D4%A4%CB%BF%A7%A4%F2%C9%D5%A4%B1%A4%EB

これを参考に。

CSSのキーワードファイルに次のを追加しても反映されません。
@charset
@import
!important

次のように記号を抜けば反映されます。
charset
import
important

記号も含めてキーワードに指定するにはどうしたらいいですか？

>>590
@, ! をワードに設定する

>588-589
ここのみなさんは親切でつね、ありがとーです
(つかこのスレ「行番号」で検索かけたら>411あたりで既出ですた。どうもすみません)

早速入れて触ってみました。()内に、:bold t な行を入れてやるとボールド表記もｲｹﾙ(・∀・)

(set-text-attribute pos pos 'modified-line
:bold t ;　←
:foreground 0 :background 2
:prefix prefix :extend t)))

Alt↑↓で変更行ジャンプまでできるのが素晴らしい
欲を言うとアンドゥしたときは色変表示消えてくれるとｶﾝﾍﾟｷ

>588
setq-defaultでデフォ値指定してからsetqで各モード別個別指定ってことですかね
楽かつ応用きく方法だなー。秀とかだと各々のファイル設定ごとに一々
指定しなおさないといかんので（設定の複製はできるが、依存性はない)こういうのは嬉しいです

ちょっと書きますよ。
filerのマーク対応版 filer-get-filenamestring
(defun filer-get-filenamestring (type)
(let ((n (or (filer-get-mark-files)
(filer-get-current-file)))
str)
(flet ((get-directory-name-or-file (f)
(if (file-directory-p f)
(last (pathname-directory f))
(file-namestring f)))
(get-file/// (f)
(concat "file:///" f)))
(setq str (if (consp n)
(format nil "~{~A\n~}"
(case type
(1 (mapcar #'get-directory-name-or-file n))
(2 n)
(3 (mapcar #'map-slash-to-backslash n))
(4 (mapcar #'get-file/// n))))
(case type
(1 (get-directory-name-or-file n))
(2 n)
(3 (map-slash-to-backslash n))
(4 (get-file/// n)))))
(copy-to-clipboard str)
(if (consp n)
(message "~D個のファイル名をコピーしました" (length n))
(message "ファイル名 ~A をコピーしました" str)))))

>>484
むり

>591
これで行けました。ありがとうございます。
(set-syntax-word *css-mode-syntax-table* #\@)
(set-syntax-word *css-mode-syntax-table* #\!)

>>397さんのリンク先にあったトグルで変換を書き換えて
リージョンとセレクションを同一視する用に書いてみた
Lisp知らないので，たぶんこういう意味だろうって書き換えていっただけ
もっとスマートに書く方法あれば教えてください
(defun kill-selection-or-region-to-clipboard ()
"リージョンか選択範囲をクリップボードに切り取り"
(interactive)
(let (start end)
(case (get-selection-type)
((1 2 3)
(kill-selection-to-clipboard))
(t
(if (mark t)
(kill-region-to-clipboard (mark) (point))
())))))
(defun copy-selection-or-region-to-clipboard ()
"リージョンか選択範囲をクリップボードにコピー"
(interactive)
(let (start end)
(case (get-selection-type)
((1 2 3)
(copy-selection-to-clipboard))
(t
(if (mark t)
(copy-region-to-clipboard (mark) (point))
())))))
(global-set-key #\C-y 'paste-from-clipboard)
(global-set-key #\C-w 'kill-selection-or-region-to-clipboard)
(global-set-key #\M-w 'copy-selection-or-region-to-clipboard)

ちょっとばかし勉強した結果
(defun kill-selection-or-region-to-clipboard ()
"選択範囲を，無ければリージョンをクリップボードに切り取り"
(interactive)
(if (get-selection-type)
(kill-selection-to-clipboard)
(progn (kill-region-to-clipboard (mark) (point)) )
))
(defun copy-selection-or-region-to-clipboard ()
"選択範囲を，無ければリージョンをクリップボードにコピー"
(interactive)
(if (get-selection-type)
(copy-selection-to-clipboard)
(copy-region-to-clipboard (mark) (point))
))
(global-set-key #\C-y 'paste-from-clipboard)
(global-set-key #\C-w 'kill-selection-or-region-to-clipboard)
(global-set-key #\M-w 'copy-selection-or-region-to-clipboard)

↑実験中のだった
(defun kill-selection-or-region-to-clipboard ()
"選択範囲を，無ければリージョンをクリップボードに切り取り"
(interactive)
(if (get-selection-type)
(kill-selection-to-clipboard)
(kill-region-to-clipboard (mark) (point))))
(defun copy-selection-or-region-to-clipboard ()
"選択範囲を，無ければリージョンをクリップボードにコピー"
(interactive)
(if (get-selection-type)
(copy-selection-to-clipboard)
(copy-region-to-clipboard (mark) (point))))
(global-set-key #\C-y 'paste-from-clipboard)
(global-set-key #\C-w 'kill-selection-or-region-to-clipboard)
(global-set-key #\M-w 'copy-selection-or-region-to-clipboard)

(defun start-selection-mode()
(interactive)
(start-selection 2 nil))
(global-set-key #\C-\@ 'start-selection-mode)
(global-set-key #\C-y 'paste-from-clipboard)
(global-set-key #\C-w 'kill-selection-to-clipboard)
(global-set-key #\M-w 'copy-selection-to-clipboard)
でもいいか

>>599 よりも >>598 のほうがいいと思う。
マークはカットやコピーだけに使うものじゃないし。
(defun start-selection-mode()
(interactive)
(set-mark)
(start-selection 2 nil))
でもいいけど。

ところで、kill-lineが全く考慮されてないけど使わないのですか？

>>600
忘れてた・・・

howm-wrap の本家で

リンクつきテキストの気分で
「>>> ~/BabyloniaWave.txt」の上でリターン×2 → BabyloniaWave.txt を開く
「>>> ~/BabyloniaWave.png」の上でリターン×2 → 画像 viewer を起動

って書いてあるけど、
goto リンクにファイル名を指定しても xyzzy で開いてしまって
画像 viewer とか、それぞれのアプリで開けないのはワタクシだけですか？

>>602
こっちはバージョンが古いからね

エディタを秀丸→gVim→Peggy→xyzzyと変更したけど、
やぱーりLispが読めねぇ…

PerlもRubyもPythonも読むのは苦労しないのに、Lispだけは…
しかし秀丸に戻るのも癪だしなー

Lispって慣れれば読めるようになるのか？

洩れは読めないけど、テキトーに簡単なもんは書ける。
とりあえず今はそれで十分。先人の遺産もあるしね。

>>604
なれですね．
複雑なマクロはなかなかなれませんが．

>>604
ほかの言語を読めるんだったら、よくでてくる構文さえ覚えてしまえば読めるようになると思う。

マクロだけはどうにも慣れない。

1週間ほどlispコードとにらめっこすればとりあえず括弧は気にならなくなるからあきらめるな

皆ありがとう。とりあえず諦めずにがんがるよ

スクロール時のカーソル固定って
できないんでしょうか。

>>378

列カーソルって出せませんか？

>>611
本スレも含め，少しは過去ログ検索する．

>>613
出ません

バッファツールバーで、バッファをドラッグアンドドロップで並べ替えできるようにしたいんですが、
どうしたらいいでしょう？

Q&Aの「USB メモリから xyzzy を使うことはできますか？」
ttp://hie.s64.xrea.com/xyzzy/qanda/html/install.html#161

↑にあるサンプル試してみましたがｶﾚﾝﾄがうまく取れないみたい(´･ω･｀)
XYZZYCONFIGPATHも固定にしたかったのでググりながらバッチ書いてみました。
うちのXPではとりあえず動いたけど、何か変なとこあったらツッコミよろしくです

---- xyzzy.bat ----
@echo off
rem --- %0(.batのﾌﾙﾊﾟｽ)からﾃﾞｨﾚｸﾄﾘ取得
rem (ﾌｧｲﾙﾄﾞﾛｯﾌﾟすると%CD%でｶﾚﾝﾄが取れないのでその対策)
for /f "delims=\ tokens=*" %%z in ("%~0") do (
set SCRIPT_CURRENT_DIR=%%~dpz
)
rem ---ﾃﾞｨﾚｸﾄﾘ文字列は\で終わるようにｾｯﾄ
if NOT "%SCRIPT_CURRENT_DIR:~-1%" == "\" (
set SCRIPT_CURRENT_DIR=%SCRIPT_CURRENT_DIR%\
)

rem --- xyzzy.exe / xyzzy.iniの場所を.batからの相対ﾊﾟｽでそれぞれ指定
set XYZZYHOME=%SCRIPT_CURRENT_DIR%
set XYZZYCONFIGPATH=%SCRIPT_CURRENT_DIR%usr\アカウント名\OS名\
set SCRIPT_CURRENT_DIR=

start %XYZZYHOME%xyzzy.exe %1 %2 %3 %4 %5 %6 %7 %8 %9
exit
-------------------

>>616
http://xyzzy.s53.xrea.com/wiki/index.php?QandA%20%A4%CB%A5%C4%A5%C3%A5%B3%A5%DF%A4%F2%C6%FE%A4%EC%A4%EB%2F3
のxyzzy.bat.3.lzhでうまくいってるけど。

>616,617
そんな難しい書き方せんでもこれで良いと思われ。

@echo off
setlocal
set XYZZYHOME=%~dp0
set XYZZYCONFIGPATH=%~dp0usr\
%XYZZYHOME%xyzzycli.exe %*
endlocal

>>617
それをサンプルに XYZZYCONFIGPATHの追記 & 編集ﾌｧｲﾙを(xyzzy.datに)ﾄﾞﾛｯﾌﾟして開くを
追加してったら>616になりますた。xyzzy.set xyzhome.dat xyzstart.batと3個も別ﾌｧｲﾙが
必要な理由がわかんなくって削っちゃったんだけど、複数OSに対応に必要だったのかな？

>>618
添削サンクスです、ｶﾚﾝﾄ取出しは、%~dp0 だけで良かったんか
%1〜%9 → %* も、すごいスッキリしますた。ありがトン

持ち出し先が自宅と同じOSとは限らないんで汎用で使える.batにしたいんだけど
DOS本なんて何年も前に捨ててるので汎用ﾊﾟﾗﾒｰﾀがわかんなくってね
バッチ内で環境変数セットしてもローカルとして扱われると思ってたんだけど
setlocalは入れといたほうがいいのかな

%XYZZYHOME%xyzzycli.exe %*
はうちで試したら頭に start 付けてやったほうが、DOS窓が早く閉じるみたいでした。
(xyzzyとcliはケースで使い分けたいので別batにするつもりでつ)

xyzzy 0.2.2.233に、howm-wrap_040126を入れてhowmを使い出そうとしているのですが、
どうやってもメモの保存時にcome-fromリンク・WikiNameが.howm-keysに追加されません。
M-x howm-keyword-addで文字列を入れるとちゃんと.howm-keysに追加されるのですが、
何か設定がおかしいのでしょうか。

>619
616と618はNT系にしかない機能を使っているから、9x系でも使いたいのなら>617のを使わないとダメですぞ。
（チルダによる環境変数の編集機能、%1〜を表す%*、括弧によるブロック化は9x系では使えないはず）

あとsetlocalには意味は無いかもしれない。

xyzzyでアウトライン表示したいと思って TreeView.dllをダウンロードしたんだが、こっからどうすればいいかまったくわかりません。
助けて。
http://ohkubo.s53.xrea.com/xyzzy/index.html#outline-tree

>>622
そこの上にあるolt-20030414ってリンクから落として解凍。
んで、あとはreadme.txtとか、olt.lの先頭を読みながらｶﾞﾝｶﾞﾚ

ファイル種類別にフォントの変更をしたいのですが可能ですか？
色を変える方法はわかったのですが・・・
例えばtxtファイルの日本語はMS明朝、英語はMSゴシック。
cppファイルの日本語はFixedSys、英語はTerminalといった具合。
むずかしい。

>>624
うん．できないね，それ

net-installer を入れようとおもったんだけど
Not Foundです。
どこにあるのでしょうか？
http://www.mirai.ne.jp/~gyo/xyzzy/ni.html

>>626
ほんとだ、消えてる

http://www.uranus.dti.ne.jp/~shiro-/soft/xyzzy/keybind.html#windows
のwinkey2を使ってるんですが、C-S-Endで現在位置から最後まで選択させようとするとエラーが出ます。
C-S-Homeはできるのでこっちもできると思うんですが、どうすればいいですか？

>>628
どんなエラーが出るの?

こことxyzzyすれ両方過去ログ含め目を通してきました。（ﾟ∀ﾟ）/

読み方：
適当に読み飛ばしつつ、なんとなく調べたりしながら、
ヒーヒーいってみますた。

要した時間：
時間を見つけながら約2週間

目を通したと思われる2chスレの文字数（ざっくり）：
全角880000文字
半角2200000文字

読み終えた感想など：
頭の中を鉛筆もった小さな亀が右往左往してる漢字。
いろいろ加えたり削除したりしてたらxyzzyの挙動が変になった。
とにかく疲れたorz

身についたスキル：
非常に断片的に知識がつめこまれた模様。
2chスレの流し方。

今後の予定：
初心にかえって起訴から。

>>629
HomeとEndが逆でした、C-S-Homeで現在位置から最初まで選択させようとするとエラーが出るのでした。
エラーは「関数が定義されていません; editor::selection-begininning-of-buCCffer」です。

>>630　いいねェ。俺もそんなんだったよ。

>>631
間違って
(global-set-key #\S-C-Home 'selection-beginning-of-buCCffer)
って書いてない？
ちゃんと
(global-set-key #\S-C-Home 'selection-beginning-of-buffer)
って書いた？

>>633
コピペか何かミスってたようです。ありがとうございました。

>>626
復活を待てないなら、この辺から。
ttp://cvs.sourceforge.net/viewcvs.py/kamail/

>>621
Σ(ﾟДﾟ)ｶﾞｰﾝ バッチコマンドDOS5時代から大して変化してないのかと思ってた
調べてみたら 9x系は本当に使えるパラメータ少ないのね orz
でもまぁ職場のPCはNTだから当座は何とか…
教えてくれてありがトンでした。

Autohotkey用mode作りたくて朝からc-mode,bat-mode,あたり継ぎはぎしてまつ
なんかもう、色分けと簡易インデントができりゃいいや、疲れちった

>>636
> 簡易インデント
autohotkeyがどんな言語か知らないけど，けっこうインデントは大変じゃない？

>>624
ああ、それ俺も調べたことあるよ。
連れが秀丸使ってるけど、それができるらしくて。
ま、英語と日本語でフォント変えることはできないらしいけど、
ファイル種類別に変えられるらしい。
うらやましくて、ちょいとxyzzyでやりたかったんだけど・・・
俺もやりたいので、誰か実現きぼんぬ

>>638
xyzzy.ini を複数用意して，xyzzyプロセスごとに違うフォントを使用する
ぐらいのことはできる．

バッファごとに切り替えたいというなら，
フォント名が入っている変数に lisp からアクセスできるかどうかが問題．
c++のソースまではチェックしてないのでよくわからないけど．

>>637
最初c-modeをコピペして色々やってみたけらとても妖しい動きに。
結局bat-modeのｲﾝﾃﾞﾝﾄ部丸ごと貰ってきてTabｲﾝﾃﾞﾝﾄ殺したら
そこそこ使えそうな感じになりますた。

つか別に難しいことしなくていいから普通のオートインデント
(Enter押下で次行追加時現在の行と同じだけSP&TAB追加)でOKなんだけど。
xyzzyはlispわかんないとお手上げですね。

>>638
秀のはxyzzyみたいにsetq-defaultな設定ができないので結構不便だけどね
ﾚｼﾞ使ってるのでコピペ編集もできないし

>>640
> (Enter押下で次行追加時現在の行と同じだけSP&TAB追加)
newline-and-indent

*quit-flag* と *inhibit-quit* という変数を見つけたんだけど，
使い方が分かりません．
*inhibit-quit* を non-nil にしている間， quit ができないよ
うになっていると期待知るんだけど

>>642
この二つを比べる限りではそれっぽいね

(progn
(setq *quit-flag* t)
(princ "foo"))

(progn
(setq *inhibit-quit* t)
(setq *quit-flag* t)
(princ "foo"))

あーでも
(progn
(setq *inhibit-quit* t)
(quit)
(princ "foo"))
こうするとQuitするから違うか。

>>643-644
(let ((*inhibit-quit* t))
;(let ((*inhibit-quit* nil))
(dotimes (i 10)
(dotimes (i 100)
(dotimes (i 100)
(message "~A" *inhibit-quit*)))))

これで確かめた限りでは t と nil で違いがあった．
t の時は，多分ループが終わってから quit が行われている感じだった．
nil の時は，C-g を押した直後にquitしている．

>>645
確かにそんな感じだなあ。
C-gだと評価が全部終わってからquitが実行されてる。

(let ((*inhibit-quit* t))
(sleep-for 3)
(let ((*inhibit-quit* nil))
(sleep-for 3)))
こんなふうにすると3秒経ってからはすぐにquitするし。

こことか見てみたけど、分かったような分かんないような。
http://www.bookshelf.jp/texi/elisp-manual-20-2.5-jp/elisp_21.html#SEC311

>>641
(global-set-key #\RET 'newline-and-indent)

とりあえず .xyzzyに↑追加してみた。
期待していた普通のオートインデントとは微妙に動作が違うみたいだけど
だいぶ使いやすくなったよ。ありがトン

質問です。

http://howm.sourceforge.jp/cgi-bin/hiki/hiki.cgi?MightiestEnvironment
ここの「sleipnirからの送るの実装」を見ながら、てきとーにやってみたんですが、
ブラウザからhowmにコピーするとき、原文の改行位置の直後に必ず"^M"が付いてしまいます。

例えばブラウザ上で

> hoo
> bar
> hoge

という文字列を選択して右クリック→”howmめも”とすると、一応howmにコピーされるのですが、
こんな風になってしまいます。

> = xxURL http//hoo.bar.hoge/xxxx
> Title: hoobarhoge
>
> hoo ^M
> bar ^M
> hoge
> ...

基本的にlispが解らんのがいかんのですが、
切り貼りしたコードを以下に示して置きますので、
奇特な方、どこがどのようにおかしいのか教えてくださいまし。
（続く↓）

・レジストリの編集は上記サイトの記述通りに行いました。
・copyhowm.htmlは、上記サイトの記述をまるまるコピーしました。
・.xyzzyに記述したのは以下のコードです。

(defun removeM(instr)
(let ((target instr))
(while (string-match "^M" target)
(setq target (concat (substring target 0 (match-beginning 0)) (substring target (match-end 0)))))
target))
(defun myhowm-memo(url)
(interactive "sURL: ")
(howm-create)
(insert (format nil "xxURL ~A" (removeM url)))
(save-buffer))

これも上記サイトのものをコピーしてmyhowm-bookmarkをmyhowm-memoに書き換えただけですね。

あとサイト中の「^Mは実際のコードに置き換えてください」という記述がよく解りません。
この際の「コード」とは、一体なにを指しているのでしょうか。
また、”myhowm-memo”と”removeM”の取っている値”url”の意味がよく解りません。
山勘で”string”とかにしてみましたが、結果は一緒でした。
(interactive...)の意味もいまいち解りません。特に必要ない気もしますが...。

何しろ私のコードに関する知識は話になりません。どうか、どなたか教えてくださいませ...。

環境を忘れとりました。
OSXP sp1
browserIE 6 （fub .NET版 0.0.2.18)
xyzzy0.2.2.233
howm1.1.2.1
howm-wrap1.1.0.3
です。

>>649
C-q C-m

むむ...。

>>651
レスどうもです。
何かしら啓示がもたらされたのであろうことは理解できるんですが、
私の頭の中でどうしても解決と結びつきません。

このquoteされたM（という言い方が正しいのかどうか解りませんが）自体は一体どういう意味を持っておるんでしょうか？
どうしてこの場合には、実改行の前にこのようなものが付け足されておるのでしょうか？
改行コードとか調べりゃ解るんかな。ちょっと調べてみます。

もしかして、スレ違い？

>>649
３行目の
(while (string-match "
まで書いたら、C-qを押す。
そうするとミニバッファに「Quote Char:」と表示されて入力を求められるので、
そこでC-mを押す。
というのが>>651の啓示。

>>651 >>653
そうか...そういうことか...。
見た目は同じでも中身が違うんやね...。（見た目も色違うかったけどね）
ご丁寧にありがとう、ありがとう（涙）。

けど、何で実改行がちゃんと入っているのにその前に制御文字が表示されてしまうんでしょうか？
CRが^Mに化けとるんなら、改行無しのひとつながりになるべきなような気がするんですが。
CRってのは\nとはまた違うのん？そもそもこの場合のquoteってどういう意味？むむ...。
もちっと勉強します。

なんにしろ実際的な問題は解決したみたいです。
interactiveは、ブラウザからコピーだけの場合はやっぱりいりませんね。
(instr)とか(url)がちょっとまだ解りませんし、なんか無駄な部分もあるのかも知れませんが、
とりあえず、希望通りの動作をしております。
これでhowmによるテキストデータベース環境が一歩前進しました。
lisp勉強して目標は「俺的最強環境」。
地平線の向こうにして、はるか遠い...。

xyzzyの本が出るってきいたけどいつ発売？

>>655
出るかどうかまだ未定

服部さんとこのページってどこに移転したの？
php-modeが使いたいんだけど

>>657
あ゛ほんとだ。
消えてる。

>>657-658
少しはログを読みましょう。
>>626-627,>>635

>>658
すまんかった。書いてあったのかorz

browserex でブラウズして、
ブラウザ部分の大きさを引っ張って変えたとき、
終了時サイズの保存にチェックをいれていても、
次開くと、もとの大きさに戻ってしまいます。
outline-tree のようにはいかないのでしょうか。

ここの過去ログ xyzzyの使い方が分からぬやし 励ましあえ その３
はもう二度と見られないんですか？

むり

過去ログ倉庫作ったら需要あります？

>>662
openjanedoe用
tp://49uper.com:8080/html/img-s/16425.zip

>>664
割と高機能な全文検索が付いてたら(・∀・)ｲｲ!!かも

>>665
はやりこのスレ的には2ch-mode用でしょう
私もほすい

持ってるけどどうしたらいいの？

>>665
レスありがとうございます。
さっそく、これから過去ログを読んでみようと思います。

>>667
�@~.2ch/pc5.2ch.net/software/dat/ 以下に、665さんに頂いた 1063367821.dat をコピー
�A2ch: Menu で右クリックして「追っかけスレのグループを追加」を選択して、
例えば、グループ名:xyzzy などと記入
�B作成された、~.2ch/tracking/xyzzy.txt を開いて、
("ソフトウェア" "pc5.2ch.net" "/software/" "1063367821.dat" "xyzzyの使い方がわからぬヤシ 励ましあえ その3" "1001")
と記述（この時点でスレは読めるはず）
�C2ch: Menu で右クリックして「追っかけスレを巡回更新」を選択
�E「エラー、過去ログにしますか？」などと聞かれるので 「はい」を選ぶ
これで、私の環境では2ch-mode で見られるようになりました（2ch GrepもOK)。

それよりも，2chで紹介されたlispをwikiにせっせと移す職人の登場に期待

>>670
まかせた！
wikiなんだから誰がやってもOK！

>>654
改行コードは、システムによって違います。
あなたのxyzzyのファイルメニュー→開くで改行コードが複数種類ある事を確認出来るでしょう。

そのため、システム間を跨いでテキストファイルをベタにやりとりすると
改行がおかしくなります。

過去ログ倉庫欲しいよ

>>662
ttp://makimo.to/2ch/pc2_software/1063/1063367821.html

ここの住人はにくちゃんねる知らんの？
解決したみたいだからどうでもいいが

>>669
私にもできました。サンクスコ

>>674
レスありがとうございます。
2chはほとんどxyzzy関係のスレしか見ていないので、あまり良く知らんのです。
しかし、にくちゃんねるはいろんな機能があるみたいで面白そうですね。

>>663
無理ですか。終了時サイズ保存ってそういうことじゃないんですね。

>>665
最近xyzzyを使い始めたばかりなんで、
とりあえず、励ましあえその２とかはhtmlからdat変換して見てるんですけど、
きれいに変換できないから、Jane用のdatがほしいです。

>>677
> 最近xyzzyを使い始めたばかりなんで、
> とりあえず、励ましあえその２とかはhtmlからdat変換して見てるんですけど、
> きれいに変換できないから、Jane用のdatがほしいです。

よくわからないんだけど、2ch-modeで励ましあえその２とかを見たいってこと？
だったら、このスレの002にあるURLの上で k を押せば取得できるはず。

>>678
最近xyzzyを使い始めたばかりなんで、(2ch-modeは未導入です)
(janeを使ってるので、励ましあえその２とかも)Jane用のdatがほしいです。
ってことだと思われ

きれいに変換できないってのの意味はわかんないけど
自分とこのJaneDoeViewではhtmlからdatで変換に問題出たことないよ
…んでも激しくよく落ちる、このレスも書き直しだし
折を見て2ch-modeへ移行したいかも

ごめん、励ましあえその２とかは k　では取得できないみたい。
そういえば、自分でも確か html to dat というソフトでdatに変換したんだと
思うけど、その場合一部うまく変換できない箇所があったような気がする
（気にしないでそのまま使ってますが）。

>>679
2ch-modeは追っかけスレの巡回更新、2ch Grep、xyzzyの様々な機能や設定（色設定等）
がそのまま使える）等々なかなかいいですよ。

>>677
tp://49uper.com:8080/html/img-s/16540.zip

>>2 のURLが古い(？)だけです。
xyzzyの使い方がわからぬヤシ 励ましあえ その2
http://pc5.2ch.net/software/kako/1054/10541/1054141308.html

>>682
私の場合このURL上でkすると激しく文字化けした状態で表示されてしまいます。
おそらく何かの設定がおかしいのだろうと思いますがよくわかりません。
どなたかアドバイス願えませんか？

openjaneなlogを2ch-modeなログに
tp://49uper.com:8080/html/img-s/16555.zip

（2ch-mode用のbbsmenu.txtが必要なので、あらかじめ2ch-modeで取得しておくこと)
解凍して出来るjane-to-2ch.l をsite-lispに。
xyzzyを立ち上げて、Lisp-Interaction-modeで以下を1行づつ入力しつつ評価する（CTRL-J）

(require "jane-to-2ch")
(setq jt2::*2ch-mode-log-path* "~/.2ch")
(setq jt2::*openjane-log-path* "X:/programs/openjanedoe/Logs/2ch")
;;;2ch-modeのログを上書きしてもいい場合は
(setq *jt2-overwrite-2ch-mode-log* :overwrite)

(jt2::translate-log)

手元では動いてはいるけど、まともに動くかどうかは分からないので、
バックアップを取った上、自己責任でどうぞ>>移行したい人

>>683
確か~.2ch/config.l の gzip転送を有効にすればよかったんじゃないかな。

>>685
やー、ちゃんと見れるようになりました。サンクスです。
実はこれ、前から時々悩んでたんです。どうもありがとー。

>>679
どうもです。補完してくれた通りです。
>>680
>一部うまく変換できない箇所があった
と同じでした。
>>681
さんくすです！

過去ログ倉庫あったらうれしいですね。
xyzzy に慣れるってことで 2ch-mode 使ってみようかな。。

>>682
> >>2 のURLが古い(？)だけです。
そうだったのか・・
すませんです。

どうも。本スレで叱られて今ショック状態です。(^^;)
やっとxyzzy+KaTeXでコンパイルやプレビューはできるようになったのですが、
バイトコンパイルすると、数式記号イメージ補完でエラーが出るようになるんです。
それは例えば「;-」のあとにTabを押すと
「不正な関数です:elisp::KaTeX-math-japanese-sign」
なるエラーがでてしまうんです。「;->」の後にReturnを押せばちゃんと\rightarrow
は出ます。また、バイトコンパイルする前はまったく問題なく動きます。
自分ではいろいろ調べまわったつもりですが、どうもわかりません。
どなたかご教示を。

>>689
> バイトコンパイルすると、数式記号イメージ補完でエラーが出るようになるんです。
> それは例えば「;-」のあとにTabを押すと
> 「不正な関数です:elisp::KaTeX-math-japanese-sign」
> なるエラーがでてしまうんです。

~/site-lisp/katex/ 以下の *.lc を全部消す．
多分これで直ると思う．
katex はコンパイル済みファイルをネットインストーラーのファイルに同梱してないので，
自分でコンパイルしている人は気をつけないといけないよね

さっそくのレスありがとうございます。
>>690
＞~/site-lisp/katex/ 以下の *.lc を全部消す．
それは結局バイトコンパイル前に戻すということなんでしょうか？
つまり、バイトコンパイルなどせずに使用しなさいということでしょうか？

>>690
今はとりあえずxyzzy+KaTeXを入れなおして、バイトコンパイルせずに
使っている状態なのですが。

過去に同じ症状になった時，これで直ったと思ったんだが違ったかな．
~/_katexrc の削除も試す価値あると思う

>>690
せっかくレスしてくれているのに返事が遅くてすみません。
極力パソコンに向かうための時間を作ろうとしているのですが、
なかなかそうもいかなくて。なんとか明日中には試したいと思います。

>>694
そんなに悪い応対しているとは思えないけどね．
レスも丸1日あくのもよくあることだし，説明もわかりやすいし，
自分で何とか解決しようと頑張ってるみたいだからね．
ただ しろうと を名乗られるのはあまり好きじゃないけど．
"だから 教えろ" といわれてるみたいで．

とりあえず自分が同じような症状に出くわした時の解決法思い出したので書いておく．
~/site-lisp/katex を削除して， ~/_katexrc も削除してnetinstallerから再インストールしたら
うまく動いた．
これでだめなら M-x toggle-trace-on-error をしてから，;TAB としてエラーをだすと
どこでエラーが起きているかより詳細に分かる．

# toggle-trace-on-error はテンプレにいれて欲しいな． ↓のリンクとか
# http://ohkubo.s53.xrea.com/xyzzy/memo.html#xyzzy-debug

>>695
横からスマンが、
netinstallerから再インストールしたら動くのは、バイトコンパイルされて
ないからやん。

>>684
ありがとう、使ってみたけど特に不具合なさそう。(jane viewから移行)
これでjaneから完全脱却できる。

>>689
katexmth.l の
(defmacro KaTeX-math-japanese-sign (lst)
(list 'nth 1 lst))
を
(eval-when (:compile-toplevel :load-toplevel :execute)
(defmacro KaTeX-math-japanese-sign (lst)
(list 'nth 1 lst)))
と変更し、バイトコンパイルし直せばいけるような気がする。
作者さまは ML は見ていると思うので ML か、直接メールかで報告した
方が建設的だと思うよ。

名前を「どしろうと」から「かぶ」に変えます。不快な思いをなされた方すみません
でした。また昨日中にレスできなくてすみません。今度は風邪でダウンしてました。
まだ少し具合は悪いです。

>>690
＞~/site-lisp/katex/ 以下の *.lc を全部消す．
さっそくやってみました。エラーは出なくなりますが、コンピューターの動作がのろく
なります。やはりバイトコンパイルしない状態に戻るだけなのではないでしょうか。

>>698
katexmth.lを書き換えよということですが、これはうまくいきました。感激です！！。
＞作者さまは ML は見ていると思うので ML か、直接メールかで報告した
＞方が建設的だと思うよ。
MLというのはhttp://www3.tok2.com/home/xyzzy/index.html
のことでしょうか。私のところからつながらないのですが．．．。もしかして登録
しなくちゃいけないんですかね（もしかしてあたりまえ？(^^;)）

>>699
> MLというのはhttp://www3.tok2.com/home/xyzzy/index.html
> のことでしょうか。
ちゃう。こっち。
ttp://www.jsdlab.co.jp/~kei/xyzzy/mailing.html

NetInstallerを配布しているサイトが今閉鎖しているようなのですが、
今これは手に入らないのですか？

>>635

ここは？
http://xyzzy.s53.xrea.com/wiki/index.php?NetInstaller

emacsのようにC-x C-eで閉じてないタグを閉じてくれるようにしたいんですがどうすればいいですか？

html+-mode 入れて、そのキーバインド割り当てる。デフォでは Ctrl .

>>705
さんくすです

migemoを使っているんですが、検索した後を強調表示できないでしょうか。
現在でも、フォーカスのある単語の背景反転と文字の色は変わりますが
ヒットする後全てを強調表示してくれればいいのになと考えるわけです。

gresregで下みたいなタグを正規表現で引っかけて一括削除したくて
<!-- cool auto-insert \*\/ -->(.|\n)*<!-- end of cool auto-insert \*\/ -->
とか書いてみたんですがうまく引っかからない(´･ω･｀)
エンコードは[sjis:lf]なんですが改行部はどうやってまたいだらいいのでしょうか？

<!-- cool auto-insert */ -->
<SCRIPT LANGUAGE="JavaScript">
<!--
window.open(" 可変内容(書込みエラるので中略) ");
// -->
</SCRIPT>
<!-- end of cool auto-insert */ -->

$や\sも試してみたけどどうにも上手くいかず…
ちなみに正規表現って環境別に仕様が違うみたいだけどxyzzyは系列で言ったら
何になるんでしょうか？

>>708
こんなかな？
(scan-buffer "<!-- cool auto-insert \\*/ -->\\(.\\|\n\\)*<!-- end of cool auto-insert \\*/ -->" :regexp t)

>>709
レスサンクスです
gresregのダイアログ上でディレクトリ以下のファイル（オープンバッファに対してではなく）を
一括置換えできればと思ったんですが、lisp記述しないと無理そうですか？

lisp不勉強なのでググって調べてきますです。

>>710
>709の\\を\にしてやればいけるよ。
//709の正規表現の妥当性は知らない。

>//709の正規表現の妥当性は知らない。
orz

\n.* で検索かけると

<!-- cool auto-insert */ -->
の
nsert */ -->

がマッチしてしまいます。\nを改行と認識してないみたい
んー、秀だとマッチするんだけどgresregないから置換えできないし
まいったな

>>712
「エスケープシーケンスを理解しろ」にチェックは入ってる？

>>713
ｿﾚﾀﾞ! 正規表現しかチェックしてなかった。

<!-- cool auto-insert \*/ -->\(.\|\n\)*<!-- end of cool auto-insert \*/ -->

でできたよ アリガトン。 お騒がせしました

>709-713
おかげでローカルに落としてきたhtmlからウザイ宣伝バナー一掃除去できそうです
改めてサンクス。