のくす牧場
コンテンツ
牧場内検索
カウンタ
総計:127,493,059人
昨日:no data人
今日:
最近の注目
人気の最安値情報

元スレEmacs Part 39

emacs覧 / PC版 /
スレッド評価: スレッド評価について
みんなの評価 :
タグ : 追加: タグについて ※前スレ・次スレは、スレ番号だけ登録。駄スレにはタグつけず、スレ評価を。荒らしタグにはタグで対抗せず、タグ減点を。
←前へ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 次へ→ / 要望・削除依頼は掲示板へ / 管理情報はtwitter

401 = :

>>397-400
ありがとうございます。
>>399
これで完璧に解決しました。とても助かりました。

404 = :

Elispをすらすら書ける人は
普段からlispに慣れている人なのかな
尊敬するわ

405 = :

一口にLispっつーても色々あって、それぞれノウハウ違うから
elispをスラスラ書ける人は普段からelispに慣れてる人だと思う

406 = :

リストの処理とかがスラスラ書けても
バッファの弄り方とかテキストプロパティとかオーバレイとか辺りになってくると
あんまりLisp関係ないもんね。

407 = :

暇なので elisp 紹介

■emacs で google map 表示

http://julien.danjou.info/software/google-maps.el
M-x google-maps して地名を入れるとpopupしたバッファに地図が表示される

そのままだと地名がアルファベットになっちゃうので以下を追加
(eval-after-load "google-maps"
'(defadvice google-maps-static-show (before google-maps-set-lang activate)
(ad-set-args 0 (append '(:language "ja")) (ad-get-args 0))))

popwin の管理下に入れておくとうっとおしくなくて良い。

408 = :

oh... ちょっと間違った
↓ね。
(defadvice google-maps-static-show (before google-maps-set-lang activate)
(ad-set-args 0 (append '(:language "ja") (ad-get-args 0))))

409 = :

>>407
㌧㌧、これはいいねぇ

410 = :

おれもー
どっかから拾ってきた奴
yankしたとき貼りつけた内容がハイライトされる
popup-kill-ring つこうてる人は popup-kill-ring-interactive-insert が t じゃないと
ちゃんと反応してくれない

(defadvice yank (after yank-highlight-string activate)
(let ((ol (make-overlay (mark t) (point))))
(overlay-put ol 'face 'highlight)
(sit-for 0.5)
(delete-overlay ol)))

(defadvice yank-pop (after yank-pop-highlight-string activate)
(when (eq last-command 'yank)
(let ((ol (make-overlay (mark t) (point))))
(overlay-put ol 'face 'highlight)
(sit-for 0.5)
(delete-overlay ol))))

411 = :

せめて unwind-protect で overlay の後始末はするべきだな。

412 = :

>>411にならって直してみた

(defadvice yank (after yank-highlight-string activate)
(let ((ol (make-overlay (mark t) (point))))
(unwind-protect
(progn (overlay-put ol 'face 'highlight)
(sit-for 0.5))
(delete-overlay ol))))

(defadvice yank-pop (after yank-pop-highlight-string activate)
(when (eq last-command 'yank)
(let ((ol (make-overlay (mark t) (point))))
(unwind-protect
(progn (overlay-put ol 'face 'highlight)
(sit-for 0.5))
(delete-overlay ol)))))

413 = :

いいですね。いただきます。

414 = :

>>412の真似して undo で文章が復帰した時にもハイライトするようにしてみた。
もうちょっとマシな書き方出来ないか誰か添削してくれると嬉しい。

やってることは、
buffer-undo-list を頭からたどっていって
(integerp . integerp) の cons セルにあたったらその範囲をハイライトしてループ終了
(stringp . なんか) の cons セルにあたったらループ終了

(defadvice undo (after flash activate)
(catch 'loop
(dolist (c buffer-undo-list)
(let ((beg (car c))
(end (cdr c)))
(cond ((and (integerp beg)
(integerp end))
(let ((ol (make-overlay beg end)))
(unwind-protect
(progn (overlay-put ol 'face 'highlight)
(sit-for 0.5))
(delete-overlay ol)
(throw 'loop nil))))
((stringp beg)
(throw 'loop nil)))))))

416 = :

>>414
dolist の中から return で脱出できたような。
けれど自分ならこうするかな。

(defadvice undo (after flash activate)
  (loop for (beg . end) in buffer-undo-list
        if (and (integerp beg)
                (integerp end))
        return (let ((ol (make-overlay beg end)))
                 (unwind-protect
                     (progn
                       (overlay-put ol 'face 'highlight)
                       (sit-for 0.5))
                   (delete-overlay ol)))
        else when (stringp beg)
        return nil))

417 = :

>>416
loop を使うとシンプルになるんですね。
勉強しないといかんなーloop難しい

418 = :

>>416
わかりやすいコードでいいね

419 = :

NTEmacs スレが沈んだ
>>1が2008年9月とかのんびりした進行だっただけに誰も次スレ建てなかったわけだ

420 = :

flet で関数を置き換えた際に、その関数内で置き換え前の関数を呼ぶ方法はありませんでしょうか?

(flet ((load (file &optional noerror nomessage nosuffix must-suffix)
(load file noerror t nosuffix must-suffix)))
(load "something"))

こんな風にすると再帰してしまいます。

421 = :

symbol-function で関数の実体を取り出してどっかの変数に退避しておいてっ
て方法はある。

こんな感じかな?

(let ((original (symbol-function 'load)))
(flet ((load (file &optional noerror nomessage nosuffix must-suffix)
(funcall original file noerror t nosuffix must-suffix)))
(load "something")))

422 = :

>>421
なるほど!ありがとうございます。これでやりたいことが出来ました。
session.el でセッション復帰時のローディングメッセージを消したかったのでした。
ソースの load してるところを直接書き換えちゃえばそれで済むといえばそれまでなんですが。

(defadvice session-initialize (around session-load-silently activate)
"セッションロード時のメッセージ抑制"
(let ((org-load (symbol-function 'load)))
(flet ((load (file &optional noerror nomessage nosuffix must-suffix)
(funcall org-load file noerror t nosuffix must-suffix)))
ad-do-it)))

423 = :

>>387
http://www.emacswiki.org/emacs/http-post-simple.el

424 = :

>>423
そんな標準で用意されていない elisp 持ち出されても。
むしろそういうのが標準パッケージに取り込まれないあたりが話になんね。
やっぱ url.el はうんこちんちんだな。

425 = :

どうせemacsから画像のアップロードとかしないからいいんじゃね。

426 = :

Gnu pack emacsを使っています
(open-file "./index.html")のようにして
windowsの関連付けどおりにファイルを開くことは可能でしょうか
それらしき関数が見当たらなかったので質問しました

427 = :

gnusで仕様的に正しいmime multipartなメッセージ作れるんじゃないの?と思ってみてみたけど
multipart/mixedとかは良い感じに実装されてるのにmultipart/form-dataはないのな。惜しいな。

428 = :

>>426
gnupack で cygwin もセットで導入しているなら
(defun open-file (file)
(interactive)
(start-process "cygstart" nil "cygstart" file))
cygwin いれてないなら cygstart を start に置き換えればいいんじゃないかな。

429 = :

>>428
interactiveなのに引数必須とはいかがなものか。

(defun open-file (&optional file)
(interactive "fFile: ")
(start-process "cygstart" nil "cygstart" file))

431 = :

ニワカが増えたな。

432 = :

るびきちのせいだ

433 = :

>>429 水準の間違いは昔からだろ。ただの勘違いかもしれないけど。

434 = :

神社で除夜の鐘ならせるところってあるんだ?
てっきり寺だけかと思ってたんだが。

435 = :

るびきちはemacs内で完結しないでどんどん外部のプログラムをelisp内から使えよって言ってるけど
外部のプログラムが入ってくると色んな環境で動かす時めんどくさくてやだ。
elispで完結してる方がいいよ。

436 = :

elisp遅いし正規表現うんこだし非同期がアレじゃないの?
まあ確かに面倒だしキチは嫌いだけどな

438 = :

temp-file の中身のぞいてみたら?日本語の結果には明らかに mp3 っぽくな
いものが入ってくるけど。google に投げるパラメータが正しいのか確認を。

で、気になったのが英語の方は再生できるとなると、http ヘッダがファイル
に残ってても再生できるってことなのか?

441 = :

あとは chrome で送ってる http ヘッダと url-http.el で送ってる http ヘッ
ダを調べながら試してくしかないかなぁ。

どうやら User-Agent で弾いてはいないみたいだが。

442 = :

>>441
url-debug を t にしてみてみたところ、emacs 側でリクエスト文字列が途中で書き変わってたりということはありませんでした。

他でどうなんだろうとおもって wget で試してみたところ User-Agent に何か適当なのが入っていないと
403 エラーになりました。
指定して取得した結果は英語は大丈夫、日本語は Emacs の時とまったく同じ変な結果が返されてきました。

おっしゃるとおり Chrome のリクエストヘッダと比較して差分を調べて見ることにします。何か足りていないんでしょうね。
ありがとうございました。

445 = :

>>443
url.elは糞だ、外部プログラム呼ぶのはキチだって話してる最中にいい度胸だな。

450 = :

ちょいとうざいがベルの代わりに声で叱ってもらう
'("もう" "だめよ" "しかたないこね" "ちょっとだけよ")とかもいいな

(defvar speech-bell-messages '("おい" "こら" "いい加減にせいや" "いてまうぞわれ")
"御叱りの言葉")
(defvar speech-bell-language "ja"
"御叱りの言語")
(defvar speech-bell-cur nil)

(defun speech-bell-function ()
"声で叱る"
(let ((ring-bell-function nil))
(unless speech-bell-cur
(setq speech-bell-cur speech-bell-messages))
(speech-message (pop speech-bell-cur) speech-bell-language)))

(setq ring-bell-function #'speech-bell-function)


←前へ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 次へ→ / 要望・削除依頼は掲示板へ / 管理情報はtwitterで / emacs一覧へ
スレッド評価: スレッド評価について
みんなの評価 :
タグ : 追加: タグについて ※前スレ・次スレは、スレ番号だけ登録。駄スレにはタグつけず、スレ評価を。荒らしタグにはタグで対抗せず、タグ減点を。

類似してるかもしれないスレッド


トップメニューへ / →のくす牧場書庫について