- 1 名前：おっす [03/09/18 19:29]
- なんとなくEmacs 触り始めて、なんとなくelispにも手を出して
しまったアナタ。
なんとなく書いてしまったコードをココに書き込んで叩かれましょう。
タタカレテツヨクナレ。
年季の入った玄人衆は、もしアドバイスできたらお願いします。
いや、叩きついでにでも。
とりあえず入門書は
ttp://www.netfort.gr.jp/~kiyoka/emacs_setq/emacs_setq.html
ttp://www.math.s.chiba-u.ac.jp/~matsu/lisp/emacs-lisp-intro-jp.html
リファレンスマニュアルは（ちと古い）
ttp://www.fan.gr.jp/~ring/doc/elisp-manual/elisp.html
とか、新しいのは（でも英語）
ttp://www.delorie.com/gnu/docs/elisp-manual-21/elisp.html
ではひとつ、コード中心の熱いバトルをよろぴく。
- 553 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/06(火) 13:27:48 ]
- >>552
emcws あてますた。
Makefile.in は手でなおして、configure は autoconf で作りなおしますた。
tamago と emcws ってどっちがいいの？
- 554 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/06(火) 13:52:42 ]
- tamago
- 555 名前：名無しさん＠お腹いっぱい。 [2005/09/15(木) 03:44:22 ]
- Elispはじめて間もないのですが、質問です。
ある変数に入っている文字コードを判別するのって
どうやればいいのでしょうか？？
例えば、
(setq hoge1 "ほげ" hoge2 "hoge")
ここで、hoge2 に入っている文字列がローマ字であるかどうかだけ
分かれば、もしくは hoge1 に2バイト文字が入っているかどうかが
分かれば分かればいいのですが・・・
get-text-property あたりを見ているのですが・・・
ご教授お願いします。
- 556 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/15(木) 04:06:20 ]
- >>555
その目的なら multibyte-string-p でよさそうな気がする。
正規表現で調べるって手もあるだろうけど。
- 557 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/15(木) 04:07:42 ]
- 「ローマ字であるかどうかだけ」
これは、「アルファベットのみからなる」と置き換えてもいいの?
- 558 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/15(木) 04:09:45 ]
- そーいえばset-buffer-multibyteの使い方よくわからん
- 559 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/15(木) 04:27:26 ]
- >>556
全然よくない。
- 560 名前：555 mailto:sage [2005/09/15(木) 10:03:45 ]
- 皆様、レスありがとうございます。
>>557さんの言うとおり、入っている文字列が
ただ単に日本語かまた違うものかを判別したいだけ
なので”アルファベットのみからなる”と
置き換えても構わないと思います。
すみません、よろしくお願いします。
- 561 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/15(木) 10:10:12 ]
- Ro-maji hyouki no nihongo wa dousuruno?
- 562 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/15(木) 10:10:53 ]
- hoge が、アルファベットのみで構成された文字列かどうか調べるなら、
(string-match "\\`[A-Za-z]+\\'" hoge)
charset で調べるなら、
(let ((charsets (find-charset-string hoge)))
(catch 'done
(while charsets
(unless (memq (car charsets)
'(ascii eight-bit-control eight-bit-graphic))
(throw 'done t))
(setq charsets (cdr charsets)))
nil))
とか?
- 563 名前：555 mailto:sage [2005/09/15(木) 10:34:56 ]
- おお、素早いレスありがとうございます！！
今試して見ます！！
- 564 名前：555 mailto:sage [2005/09/15(木) 10:50:33 ]
- >>562
おお、出来ました!!
正規表現での判別と文字そのものの判別ですか〜
なるほどなるほど。どうもありがとうございます。
勉強になりました。
- 565 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/15(木) 11:32:24 ]
- カテゴリ使って
(string-match "\\Ca" "abc")
=> nil
(string-match "\\Ca" "あいうえお")
=> 0
- 566 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/15(木) 19:09:26 ]
- 再度書き込みすみません。
例えば、以下のように関数の続きとして>>562さんのコードを
使いたいのですが、(let を外してしまうと
上手く動いてくれません。let は局所的変数宣言でしたよね?
(defun .....
.
.
(setq hoge (split-string "name1 name2 name3"))
(setq name_s (length hoge) name_n 0 mew-from-sex 1)
(if (let ((charsets (find-charset-string (nth name_n hoge))))
(catch 'done
(while charsets
(unless (memq (car charsets)
'(ascii eight-bit-control eight-bit-graphic))
(throw 'done t))
(setq charsets (cdr charsets)))
nil))
(setq people 0)
(setq people 1))
.
)
よろしくお願いします。。。
- 567 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/15(木) 19:17:35 ]
- (let を外したいのは何故?
- 568 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/15(木) 19:27:46 ]
- 関数の始めにいっきに let で変数宣言したくて、
(let ((charsets (find-charset-string (nth name_n hoge))))
も含めて宣言しようと外したのですが。。。
- 569 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/15(木) 19:42:22 ]
- 多段let撲滅
- 570 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/15(木) 19:45:03 ]
- 該当の部分を函数にする
途中に let がある事に慣れる
(let (charsets)
...
(if (progn
(setq charsets (find-charset-string ...
のどれか
- 571 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/15(木) 19:54:27 ]
- >>569
参考までに教えて欲しんだけど
1. 実行速度
2．可読性
のいづれかの理由によるものでしょうか? それとも他の理由?
- 572 名前：569 mailto:sage [2005/09/15(木) 19:55:16 ]
- >>571
いや、俺はちょっと皮肉(?)ってみただけで。
- 573 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/15(木) 19:57:03 ]
- えっと、以下のようにするということでしょうか??
(let (charsets) hoge name_s name_n people mew-from-sex
(setq hoge (split-string "name1 name2 name3"))
(setq name_s (length hoge) name_n 0 mew-from-sex 1)
(if (progn setq charsets (find-charset-string (nth name_n hoge))
(catch 'done
(while charsets
(unless (memq (car charsets)
'(ascii eight-bit-control eight-bit-graphic))
(throw 'done t))
(setq charsets (cdr charsets)))
nil))
(setq people 0)
(setq people 1)))
- 574 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/15(木) 19:58:15 ]
- うわ、空白がすごくみずらいですね。。。
すみません。。
- 575 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/15(木) 19:58:33 ]
- >>573
letの使い方理解してないぞ
- 576 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/15(木) 20:01:27 ]
- あ、申し訳ないです。
変数リストを()でひとまとめにしていなかったですね。
(let (charsets) hoge name_s name_n people mew-from-sex
こんな感じでしょうか??
- 577 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/15(木) 20:02:36 ]
- こうでした、何度もすみません。
(let ((charsets) hoge name_s name_n people mew-from-sex)
- 578 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/15(木) 20:50:17 ]
- 初心者は setq 禁止
- 579 名前：名無しさん＠お腹いっぱい。 [2005/09/15(木) 21:34:54 ]
- Emacs をわたし色に染めて♪ の人は自殺しそうでしたがまだ生きてますか？
- 580 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/15(木) 21:46:13 ]
- >>579
なにがあったの？
- 581 名前：名無しさん＠お腹いっぱい。 [2005/09/17(土) 06:30:27 ]
- LISPのクラスを取るか迷っている初心者ですが、LISPが出きると、どういうことができるようになるのか教えてください。
- 582 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/17(土) 08:00:56 ]
- >>581
特にない。
- 583 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/17(土) 08:54:52 ]
- >>581
普通のやつらの上を行ける。
- 584 名前：名無しさん＠お腹いっぱい。 [2005/09/17(土) 11:44:54 ]
- >>583
どういう点で？
- 585 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/17(土) 13:42:35 ]
- >>584
ttp://www.shiro.dreamhost.com/scheme/trans/beating-the-averages-j.html
- 586 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/17(土) 14:05:26 ]
- >>581
クラスって大学か何かか。
EmacsLispでCLOSみたいなもんを誰か作ったのかと思った。
- 587 名前：名無しさん＠お腹いっぱい。 [2005/09/17(土) 14:29:15 ]
- 学校の授業という意味です。
- 588 名前：名無しさん＠お腹いっぱい。 [2005/09/17(土) 14:44:13 ]
- >>585
ありがとうございます。読みました。
中で「Lispはパワフルな言語だとは知っているけど」等、LISPは凄いと絶賛していますが、
具体的にどう凄いのかってのが、どんなところで使われているのかってのが分からないのですが…。
LISPが出きると、どういうときにそれを活かせますか？
この授業は卒業のため取らなければならない科目ではないのですが、
将来役に立つのなら、取って見ようかなと迷っています。
- 589 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/17(土) 15:16:50 ]
- 学生なのに自分からは何も調べようとしないやつには、どんなことであろうと将来役に立たない
- 590 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/17(土) 15:17:55 ]
- lisp なんかできたとして、将来研究所とかに行かない限り用途ないのでは？
perl なり php なり使えたほうがバイトも出来ておとく。
- 591 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/17(土) 15:41:04 ]
- perlなんか授業でやるか?
- 592 名前：名無しさん＠お腹いっぱい。 [2005/09/17(土) 16:06:14 ]
- perlの授業あります。
将来はネットワークエンジニア希望です。
- 593 名前：sage [2005/09/17(土) 17:56:43 ]
- >>592
いらないんじゃね？
- 594 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/17(土) 17:59:54 ]
- 久しぶりに２ｃｈに来たらsageるつもりがageちまった。
- 595 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/17(土) 18:06:49 ]
- とりあえず、この板ってのは古い知識しか持たない老人が多いので、
こんな場所で進路相談をするのは不適切なんじゃないかなと思う。
- 596 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/17(土) 20:58:02 ]
- 将来役に立つかっつったら微妙だわな。
だけど大学において考え方を学ぶ、学び方を学ぶって意味ではlispはおすすめ
かもしれず。
関係ないけど、「出きる」って変換は気持ち悪いな。
- 597 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/17(土) 21:02:25 ]
- LISPを使って(応用して)なにをするかによるだろう。
単純に、LISPを勉強するだけなら独学で(Emacs使ってるうちに)勉強
できるよ。なにしろ、単純な言語だからな。
インタプリタの作成とかまでやるんだったらいいんじゃないかな？
言語仕様が簡単だから結構楽しいと思うよ。
- 598 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/17(土) 21:07:32 ]
- > 将来役に立つかっつったら微妙だわな。
> だけど大学において考え方を学ぶ、学び方を学ぶって意味ではlispはおすすめ
> かもしれず。
関係ないけど、気持悪い書き方だな。
- 599 名前：名無しさん＠お腹いっぱい。 [2005/09/17(土) 21:24:34 ]
- だいたい、Emacs Lispの板でLispについて訊いても……
- 600 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/17(土) 21:27:13 ]
- > 訊
おじさん、何でこんな漢字つかってるの？
- 601 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/17(土) 22:20:25 ]
- >>600
>>600
>>600
- 602 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/17(土) 22:25:40 ]
- >>601
一時帰宅が許されたのですか。病状も多少はよくなったようで、
御同慶の至り。
- 603 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/18(日) 00:46:55 ]
- Emacs Lispの板？？？
- 604 名前：名無しさん＠お腹いっぱい。 [2005/09/18(日) 02:21:31 ]
- 返事が遅れました。初心者に付き合っていただいて、ありがとうございます。
LISPがC言語とどう違うのか教えてください。
言語が違うってのは略。利点や使う場面等。
UNIXと深い関係にあるのですか？
- 605 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/18(日) 02:22:56 ]
- Lisp なんかつかうやつはばかです。ということじゃないかな。
- 606 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/18(日) 02:37:36 ]
- ム板のlispスレできいたら?
- 607 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/18(日) 03:20:23 ]
- とりあえず初心者装った釣りでないならバカでしょう
知ってか知らずかかまうね、ここの人は
- 608 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/18(日) 17:53:19 ]
- 使う場面： スクリプティング用途
例：
Emacsのカスタマイズ
Gimpのプラグイン (script-fu)
ゲーム作り (AisleRiotのルールとかtrackballsのステージとか)
WMのカスタマイズ (scwm.sourceforge.net/ とか)
uimの各種IMの実装
利点：
クロージャとマクロが使える
いや、「LispとCがどう違うか」なんて言ってる奴にマジレスするなんて
我ながら釣られているとしか思えないが…
- 609 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/18(日) 18:15:22 ]
- C 使えれば、ライブラリ使っていろんなもの開発できるしなぁ。
- 610 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/18(日) 23:22:31 ]
- 複雑なことをやろうとすると、
結局Cで未完成なLISP(略
- 611 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/18(日) 23:24:42 ]
- どれだけ lisp な製品が世の中に出ているかもあわせて考えるべきんじゃないかと。
- 612 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/19(月) 13:02:46 ]
- >>611
誰かがクラッシュバンディクーの中でlispが動いているとか言っていた
- 613 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/19(月) 13:24:27 ]
- 建築系でメジャーな AutoCAD も lisp でカスタマイズする。
Emacs みたいに lisp interpreter をコアにしてるのか?
- 614 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/20(火) 02:30:22 ]
- ってか、俺としてはむしろ、LispとCの共通点の方が知りたい。
- 615 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/20(火) 11:43:27 ]
- >>612
ゲームはメモリ管理がシビアだから既存の物を使えないんで、
１から実装することになって、結局、実装の容易なlispになるんだろう。
- 616 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/20(火) 11:48:46 ]
- >>612
これか。
ttp://www.ogis-ri.co.jp/otc/hiroba/others/OORing/interview21.html
- 617 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/20(火) 12:24:10 ]
- >>616
正直、PythonやRubyが普及している今となってはlispを使う意味はないよなぁ。
その記事で、オブジェクトの永続化とか動的バインドとかで、すごい助かった
って言ってるけど、それなら別にlispでなくてええやん。Pythonでええやん。
- 618 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/20(火) 13:23:54 ]
- まとめると、lisp なんか使う奴はバカですってことか。
- 619 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/20(火) 13:24:50 ]
- 別に Python でなくてもええやん。
- 620 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/20(火) 14:16:29 ]
- いつまでもこのスレでこの話を扱ってる奴が知障
- 621 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/20(火) 21:40:31 ]
- 池沼がこのスレに粘着するから、
そんなこと書いてはいけません。
- 622 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/22(木) 05:23:11 ]
- Lisp 道場らしくいこう。
java のソース上で、find-file-at-point したときに、クラスに対応したファイルを探
してみる。
制限：
- 同じソースツリー上にあるものだけが対象。
- 今見てるソースと同じディレクトリにクラス名と同じパッケージがあったりするとダメ
だったりする。
次のレスからソース。
- 623 名前：622 mailto:sage [2005/09/22(木) 05:24:27 ]
- ;; その1
(require 'ffap)
(eval-when-compile
(require 'cl))
(defun ffap-java-package-to-path (package-or-fqcn)
(replace-regexp-in-string "\\." "/" package-or-fqcn))
(defun ffap-java-import-list ()
(save-excursion
(goto-char (point-min))
(let (list)
(while (re-search-forward "import\\s-+\\(.+\\)\\s-*;" nil t)
(push (match-string 1) list))
(nreverse list))))
(defun ffap-java-src-directory ()
(save-excursion
(goto-char (point-min))
(if (re-search-forward "package\\s-+\\(.+\\)\\s-*;" nil t)
(let ((package (match-string 1)))
(replace-regexp-in-string
(concat (regexp-quote (ffap-java-package-to-path package)) "$") ""
(directory-file-name default-directory)))
default-directory)))
- 624 名前：622 mailto:sage [2005/09/22(木) 05:25:17 ]
- ;; その2
(defun ffap-java-mode (name)
(let ((class (car (split-string name "\\.")))
(import-list (ffap-java-import-list))
(src-directory (ffap-java-src-directory)))
(or
(catch 'found-class
(dolist (import-class import-list)
(when (string-match (concat "\\." (regexp-quote class) "$")
import-class)
(throw 'found-class
(expand-file-name
(concat (ffap-java-package-to-path import-class)
".java")
src-directory)))))
(ffap-locate-file
name '(".java")
(delq nil
(cons
"."
(mapcar (lambda (import-class)
(when (string-match "\\.\\*$" import-class)
(expand-file-name
(ffap-java-package-to-path
(replace-match "" nil nil import-class))
src-directory)))
import-list)))))))
- 625 名前：622 mailto:sage [2005/09/22(木) 05:26:45 ]
- ;; 設定
(add-to-list 'ffap-alist '(java-mode . ffap-java-mode))
これでおしまい。
素直に jde とか gtags 使えよって話もあるけどね。
ちょっと開いたソースのクラスを追ったりするのには使えると思う。
- 626 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/09/24(土) 12:38:06 ]
- >>622
おっ、これ結構つかえる。あんがと
- 627 名前：622 mailto:sage [2005/10/08(土) 02:57:34 ]
- 淋しすぎるから、ちょっとだけネタ投下。
nxml ネタその1
昔どっかに書いた気もするけど、無理矢理 mule-ucs と共存させるにはこんな感じに修
正すればそれっぽくいける。
ただし、どんな問題が起きるか分からないから自己責任でやる事。
;; 何かあるから無効にしてるハズだから。
--- nxml-mode-orig/nxml-mode.el
+++ nxml-mode/nxml-mode.el
@@ -33,8 +33,8 @@
-(when (featurep 'mucs)
- (error "nxml-mode is not compatible with Mule-UCS"))
+;; (when (featurep 'mucs)
+;; (error "nxml-mode is not compatible with Mule-UCS"))
--- nxml-mode-orig/rng-auto.el
+++ nxml-mode/rng-auto.el
@@ -26,8 +26,8 @@
-(when (featurep 'mucs)
- (error "nxml-mode is not compatible with Mule-UCS"))
+;; (when (featurep 'mucs)
+;; (error "nxml-mode is not compatible with Mule-UCS"))
- 628 名前：622 mailto:sage [2005/10/08(土) 03:01:50 ]
- nxml ネタその2
自分で mime-charset の名前を定義できるようにする。
ari さんの cp932.el を使えばカンペキ。
(defvar nxml-mime-charset-coding-system-alist
'(("windows-31j" . shift_jis)
("cp932" . shift_jis)
("ms932" . shift_jis)))
(defadvice nxml-mime-charset-coding-system
(after nxml-mime-charset-coding-system-use-alist activate)
(unless ad-return-value
(setq ad-return-value
(cdr (assoc-ignore-case (ad-get-arg 0)
nxml-mime-charset-coding-system-alist)))))
- 629 名前：名無しさん＠お腹いっぱい。 [2005/10/21(金) 12:16:09 ]
-
バッファリストをソートしようと
こんな感じにしたけど、全部のバッファが表示されない。。
(defadvice buffer-list (around buffer-list-around activate)
(sort ad-do-it
'(lambda (b1 b2)
(string< (buffer-name b1) (buffer-name b2)))))
defadvice 良く分からん。
Elispも。
- 630 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/10/21(金) 16:32:23 ]
- make-variable-buffer-localとdefvaraliasの
合の子みたいなのってできないでしょうか。
デフォルトでは変数Bは変数Aの値を使うけれど、
setqされるとAの値を変更するのではなく、
以後は独立した値を持つ、と。
- 631 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/10/21(金) 16:38:22 ]
- ムリ。
- 632 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/10/21(金) 16:50:26 ]
- (or B A) で代用か
- 633 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/10/21(金) 17:29:55 ]
- make-local-variable?
- 634 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/10/21(金) 17:37:53 ]
- >>629
buffer-listは表示なんかしない。
何がしたいのかよくわからんが、list-buffersでの並びを制御したいのだったら
list-buffers-noselectをadviceするべきだと思う。
- 635 名前：名無しさん＠お腹いっぱい。 [2005/10/21(金) 19:49:11 ]
-
したいことは、C-xC-bのとき
ソートしたいなーと思ったんだけど。
list-buffers-noselect の中で buffer-list を呼んでるんで
いいと思ったが、だめか。。
- 636 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/10/21(金) 20:10:55 ]
- >>635
(setq ibuffer-default-sorting-mode 'alphabetic)してibuffer使っとけ。
- 637 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/10/21(金) 20:23:34 ]
- list-buffers 使いやすいか?
- 638 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/10/21(金) 20:59:36 ]
- Oh Thanks.
ところで、ibuffer ってファイルだけ
表示って可能か?
C-uC-xC-b っぽいこと。
- 639 名前：名無しさん＠お腹いっぱい。 [2005/10/26(水) 16:58:28 ]
- 初歩的な質問だと思いますが，
xemacsで
/home/mako/jikken/userFiles/690562.txt
など，
/homeではじまり.txtで終るファイル
へのパスが書かれていた場合，
そのパスの上でマウスの中ボタンをクリックすれば，
xemacsでそのファイルを起動できるようにする方法を
教えてください．
あまりLISPにくわしくないので，記述法など詳細に教えて頂ければ
助かります．
googleで検索したところ，URLをマウスの中ボタンをクリックすれば，
ブラウザで起動できるようにする方法は，
(autoload 'browse-url-at-mouse "browse-url"
"Ask a WWW browser to load a URL clicked with the mouse." t)
(add-hook 'mew-message-mode-hook
(function
(lambda()
(local-set-key [mouse-2] 'browse-url-at-mouse)
)))
でできるという事は分かりました．
これを，txtファイル，XEMACSで起動という形に出来れば最高なのですが．
またいろいろ調べていると，thingatptやfiberという
プログラムを使うと出来そうなのですが，そこからどうすれば良いのかが
分かりません．明日までに出来るようにしてと頼まれているので，
急いでいます．
宜しくお願い致します．
- 640 名前：名無しさん＠お腹いっぱい。 [2005/10/26(水) 17:44:52 ]
- よろしくお願い致します．
急いでいます．
- 641 名前：名無しさん＠お腹いっぱい。 [2005/10/26(水) 17:45:58 ]
- すみません．
自己解決しました．
- 642 名前：639 [2005/10/26(水) 19:05:10 ]
- 解決はしていません．
よろしくお願い致します．
- 643 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/10/26(水) 19:14:58 ]
- Emacs Lisp道場っつーネタかよそれ。しかもすげー自己中。そしてバカ。
小学生が大学生の電気工学の授業中に乗り込んでいって
これができる回路を作ってください。明日までに提出する自由工作なんです。よろしく。
ついては電子工作に詳しくないので回路や作り方も懇切丁寧に教えてください。
というみたいな行動を自分がしているというのは認識しているか? >>639
- 644 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/10/26(水) 19:57:32 ]
- Emacs 22だとlist-buffersではWindowsのエクスプローラとかみたいに
見出しをクリックして並べ替えできるようになってるんだけど、
ibufferは旧態依然なので見劣りしてしまうね。
- 645 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/10/26(水) 22:19:06 ]
- クリック
- 646 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/10/26(水) 23:28:46 ]
- >>644
Emacsの上でまでマウスを使いたくない派の俺としては、旧態依然としていても
, や s a とかでソートのモードが変更できる ibuffer の方が100万倍使いやすいわけだが。
- 647 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/10/26(水) 23:42:04 ]
- マウスでできる != マウスでしかできない
- 648 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/10/27(木) 01:58:41 ]
- >>639 が「自分はﾇﾙｰされている」と気付くのはいったいいつかな？(ﾜｸﾃｶ(AA略
- 649 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/10/27(木) 10:40:24 ]
- 俺もマウスは嫌いだが、Diredの中のファイルは
マウスで他のアプリにドロップしたくなる。
- 650 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/10/27(木) 12:17:30 ]
- そもそもマウス刺さってないし。
- 651 名前：名無しさん＠お腹いっぱい。 [2005/10/27(木) 13:49:43 ]
- kill-ring-save は 'invisible 属性のテキストもコピーしてしまいますが、
'invisible 属性のない普通のテキストのみをコピーするようにするにはどうすれ
ば良いでしょうか？
- 652 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/10/28(金) 01:25:52 ]
- >>649
Windows だったら CraftDrop と組み合わせればいけるよ。
- 653 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/10/28(金) 02:15:52 ]
- >>651
でっちあげてみた。
ただ、複数の invisible 属性があるような場合だとうまく動かない。
たとえばこんなの
(concat "a" (propertize "b" 'invisible 'test1) (propertize "c" 'invisible 'test2) "d")
(defun kill-ring-save-without-invisible (beg end)
(interactive "r")
(kill-ring-save beg end)
(let ((kill (car kill-ring))
new-kill pos)
(when (get-text-property 0 'invisible kill)
(setq kill
(substring kill
(or (next-single-property-change 0 'invisible kill)
(length kill)))))
(while (setq pos (next-single-property-change 0 'invisible kill))
(setq new-kill (concat new-kill (substring kill 0 pos)))
(setq kill
(substring kill
(or (next-single-property-change pos 'invisible kill)
(length kill)))))
(setq new-kill (concat new-kill kill))
(kill-new new-kill t)))
|
 |
