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

    私的良スレ書庫

    不明な単語は2ch用語を / 要望・削除依頼は掲示板へ。不適切な画像報告もこちらへどうぞ。 / 管理情報はtwitter
    ログインするとレス評価できます。 登録ユーザには一部の画像が表示されますので、問題のある画像や記述を含むレスに「禁」ボタンを押してください。

    元スレEmacs Part 36

    emacs スレッド一覧へ / emacs とは? / 携帯版 / dat(gz)で取得 / トップメニュー
    スレッド評価: スレッド評価について
    みんなの評価 :
    タグ : 追加: タグについて ※前スレ・次スレは、スレ番号だけ登録。駄スレにはタグつけず、スレ評価を。荒らしタグにはタグで対抗せず、タグ減点を。
    レスフィルター : (試験中)
    ←前へ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 次へ→ / 要望・削除依頼は掲示板へ / 管理情報はtwitter
    101 : 名無しさん@お腹 - 2010/10/09(土) 14:29:20 (+13,-29,-66)
    C-x Tab(indent-rigidly)するとリージョン全体が字下げされますが、
    このとき空行も字下げの対象にするにはどうすればいいですか?

    スペースで始まる行を整形済テキストとして扱うWikiを使っていて、
    空行を含むリージョンをまとめて字下げできれば便利なのですが。
    102 : Zeno ◆5 - 2010/10/09(土) 14:56:29 (+14,-30,-194)

    >>101
    これでいいかね?

    (defun my-indent-rigidly (start end arg)
    "Indent all lines starting in the region sideways by ARG columns.
    Called from a program, takes three arguments, START, END and ARG.
    You can remove all indentation from a region by giving a large negative ARG."
    (interactive "r\np")
    (save-excursion
    (goto-char end)
    (setq end (point-marker))
    (goto-char start)
    (or (bolp) (forward-line 1))
    (while (< (point) end)
    (indent-to (max 0 arg) 0)
    (forward-line 1))
    (move-marker end nil)))
    103 : 名無しさん@お腹 - 2010/10/09(土) 14:56:56 (-1,-29,-7)
    タブを考えなくていいならstring-rectangleで空白入れれば
    104 : Zeno ◆5 - 2010/10/09(土) 15:00:01 (+18,-30,-240)

    >>102
    ところで、インデントcolumn数(arg)をプロンプトで聞く用に修正した方が便利ではないかね?
    それならば、以下の関数を使えば良い:

    (defun my-indent-rigidly (start end &optional c)
    "Indent all lines starting in the region sideways by ARG columns.
    Called from a program, takes three arguments, START, END and ARG.
    You can remove all indentation from a region by giving a large negative ARG."
    (interactive "r")
    (let ((c (or c (float-to-int (read-number "N columns: ")))))
    (save-excursion
    (goto-char end)
    (setq end (point-marker))
    (goto-char start)
    (or (bolp) (forward-line 1))
    (while (< (point) end)
    (indent-to (max 0 c) 0)
    (forward-line 1))
    (move-marker end nil))))
    105 : 名無しさん@お腹 - 2010/10/09(土) 16:05:02 (+6,-29,-17)
    >>102-104
    ありがとうございます。
    string-rectangleで希望の形になりました。知りませんでした。
    106 : Zeno ◆5 - 2010/10/09(土) 16:38:55 (+5,-30,-108)

    >>105
    ベンチマークを取ってみたが、>>104 は string-rectangle に比べて2倍近く速いな。
    >>104をタブ変換無しにすればもっと速くなるだろう。

    (with-stopwatch
    (my-indent-rigidly (point-min) (point-max) 4))
    => Time elapsed: 927 ms

    (with-stopwatch
    (string-rectangle (point-min) (point-max) " "))
    => Time elapsed: 1609 ms
    107 : 名無しさん@お腹 - 2010/10/09(土) 22:03:26 (+0,-29,-2)
    >>101
    いつも C-x r t を使っていました。
    C-x tab なんて知らなかったよ。
    108 : 名無しさん@お腹 - 2010/10/10(日) 00:31:10 (+9,-30,-156)
    anything.elを導入したけど、既存のコマンドが勝手に置き換わってしまって不便です。
    とりあえずC-xC-fだけでももとに戻したいのですが、もどってくれません。
    (require 'anything-startup)
    (global-set-key "¥C-x¥C-f" 'find-file)
    これでたしかに C-xC-f が find-file になったのですが、なぜかanything.elが
    有効になったままで、大変困っています。
    どなたか、anything.elを使いつつ、機能を一部外す方法を教えてください。
    109 : Zeno ◆5 - 2010/10/10(日) 04:14:13 (+9,-30,-94)

    吾は anything は使う必要性がない為導入していないが、これでどうだね?

    (add-hook 'emacs-startup-hook (lambda ()
    (define-key ctl-x-map "\C-f" 'find-file)))
    110 : 名無しさん@お腹 - 2010/10/10(日) 10:05:43 (+11,-30,-240)
    Zeno様おめでとうございます

    >>108
    anythingが動いている時にfind-fileを呼び出すと
    anything内でのfind-fileに対応する処理が行われてしまうので、
    ちょっと強引なやり方ですが、私は下記で対応しています

    ;; anything設定後に下記を設定

    ;; C-x C-fで*URL*も開く
    (ffap-bindings)

    ;; C-c C-fで通常のfind-file
    (define-key global-map "\C-c\C-f" 'find-file)

    こうしておくと、C-x C-fがfind-fileではなく、
    ffap-bidingsにとってかわるので、anythingに処理
    をとられなくなります
    解決になれば幸いです
    111 : 名無しさん@お腹 - 2010/10/10(日) 11:43:07 (+4,-30,-134)
    >>109,110
    アドバイスありがとうございます。
    結局、anything.elのソースを読んで、以下のようにしました。
    (require 'anything-startup)
    (substitute-key-definition 'anything-find-file 'find-file global-map)
    (defalias 'read-file-name (symbol-function 'anything-old-read-file-name))
    これで C-xC-fがもとに戻りました。
    余談ですが>>110のやり方は頭いいですね。感心しました。
    112 : 名無しさん@お腹 - 2010/10/10(日) 13:27:03 (+17,-29,-19)
    emacsにはRMSのホームディレクトリにアクセス機能があると
    聞いたのですが本当でしょうか?
    113 : 名無しさん@お腹 - 2010/10/10(日) 15:28:40 (+31,+6,+2)
    >>112
    日本語でおk
    114 : 名無しさん@お腹 - 2010/10/10(日) 17:12:04 (+7,-30,-45)
    23.2で、transient-mark-modeとやらで色が変わって鬱陶しいのですが、transient-mark-modeに
    入る事を禁止、もしくは色を買える事を禁止するにはどうすれば良いですか?

    .emacsには
    (global-font-lock-mode 0)
    と書いています。
    115 : Zeno ◆5 - 2010/10/10(日) 17:19:55 (+2,-29,-7)

    >>114
    (custom-set-faces '(region ()))

    116 : 名無しさん@お腹 - 2010/10/10(日) 17:26:05 (-1,-29,-11)
    >>115
    ダメですね。ちなみにemacs -nwですが、関係有りますか?
    emacs --color=noでもリバースになって鬱陶しい。
    117 : Zeno ◆5 - 2010/10/10(日) 17:32:52 (-1,-29,-19)

    リバースになる?
    そもそも何が問題でそれをどうしたいのかが明確ではないな。
    "transient-mark-modeとやらで色が変わって" も、どこの色がどう変わるのかがわからない。
    118 : 名無しさん@お腹 - 2010/10/10(日) 17:38:55 (+3,-30,-53)
    transient-mark-modeでは現在のリージョンの色が変わる(--color=noならリバース)
    find-fileして、set-mark-commandして、isearchするとこの状態。
    119 : Zeno ◆5 - 2010/10/10(日) 17:46:56 (+36,-30,-52)

    何故 transient-mark-mode の話をしているのに isearch が出てくるのか不思議だが、
    (setq-default transient-mark-mode nil)
    としておけば transient-mark-mode は無効になるだろう。
    120 : 名無しさん@お腹 - 2010/10/10(日) 18:24:50 (+62,+29,-2)
    >>119
    ダメですね。適当に思い付き言って無い?
    121 : Zeno ◆5 - 2010/10/10(日) 18:27:35 (+52,+29,-1)

    どちらかと言うとお前が駄目だな。
    122 : 名無しさん@お腹 - 2010/10/10(日) 18:52:45 (-2,-30,-24)
    (setq isearch-lazy-highlight nil)
    これでいい?
    123 : 名無しさん@お腹 - 2010/10/10(日) 18:55:42 (-1,-29,-9)
    (transient-mark-mode nil)
    124 : 名無しさん@お腹 - 2010/10/10(日) 18:57:44 (-2,-30,-11)
    どうやらこれが正解のようだ。
    (setq transient-mark-mode nil)
    125 : 名無しさん@お腹 - 2010/10/10(日) 19:02:43 (-2,-30,-36)
    (progn (setq isearch-lazy-highlight nil)
    (setq trangient-mark-mode nil))
    これだ。
    126 : 名無しさん@お腹 - 2010/10/10(日) 19:04:52 (+42,-9,+3)
    Zenoちゃん。おっぱい見せて。
    127 : 名無しさん@お腹 - 2010/10/10(日) 19:10:05 (-2,-30,-30)
    まとめ:
    isearch-lazy-highlight
    transient-mark-mode

    をそれぞれnilにする。
    128 : Zeno ◆5 - 2010/10/10(日) 19:24:38 (+53,-29,-33)

    OpenOffice 3.2 の起動画面には Oracle のロゴが入ってしまっているようだ。

    >>126
    (注:興味本位で開いてはいけない)
    129 : 名無しさん@お腹 - 2010/10/10(日) 20:05:09 (+52,+29,+0)
    こういうのが趣味なんですね。。
    130 : 名無しさん@お腹 - 2010/10/10(日) 22:38:06 (-1,-29,-10)
    (transient-mark-mode -1)
    131 : 名無しさん@お腹 - 2010/10/13(水) 20:35:56 (-1,-29,-8)
    ウェブアプリ版Emacs, Wemacs はまだ?
    132 : 名無しさん@お腹 - 2010/10/13(水) 22:35:37 (-6,-29,+0)
    Ymacsってのがある
    133 : 名無しさん@お腹 - 2010/10/13(水) 23:17:33 (-5,-28,-25)
    エディター・マクロス
    134 : 名無しさん@お腹 - 2010/10/14(木) 12:45:09 (+7,-29,-40)
    emacs-w3mのShimbunの設定がよく分からないんですが
    Shimbunって今でも使えますか? もう古い?

    新聞社やニュースサイトの記事をnavi2chのように読める
    おすすめのelispがあれば教えてください。
    135 : 名無しさん@お腹 - 2010/10/14(木) 13:08:24 (-6,-29,+0)
    google readerおすすめ
    136 : 名無しさん@お腹 - 2010/10/14(木) 13:26:56 (+23,-30,-44)
    >>134
    navi2chのようにとはいかないけど、emacs23標準だとnewsticker、gnus。
    shimbunは遅いから最近はgnusのnnrsssに移行したよ。
    137 : 名無しさん@お腹 - 2010/10/14(木) 15:27:19 (+20,-7,-29)
    このスレの前の方に出てるけどLINQのライブラリってどこかにないですか?
    138 : 名無しさん@お腹 - 2010/10/14(木) 21:25:36 (+3,-29,-26)
    cocoa emacsを mac上で使ってるけど IMEを制御したりすることできないかな。
    carbon emacsだとそもそも IMEが働かないようにして
    boiled-eggでっつー90年代的方法でしのいでるけど。
    139 : 名無しさん@お腹 - 2010/10/14(木) 23:14:54 (+0,-28,+0)
    >>136
    ありがとうございます。nnrssに挑戦してみます。
    140 : 名無しさん@お腹 - 2010/10/14(木) 23:29:40 (+4,-29,-51)
    自分もgnus/nnrss使ってるけど、gnus/nnmlでメール読むのと比べて
    もっさり感が結構ある。あと、未読管理が不完全な気も。
    141 : 136 - 2010/10/14(木) 23:45:27 (+3,-30,-45)
    >>140
    自分はnnrss-generate-download-scriptで作ったスクリプトをcronで回してる。
    未読管理は確かに不完全。

    不満があまりないのは、メールをgmail -> nnimap で読んでるので、遅いのに
    慣れてるのもあるかも。
    142 : 名無しさん@お腹 - 2010/10/16(土) 02:30:24 (+64,+29,-46)
    ミニバッファーのメッセージを出さないようにする設定のやり方を
    かなり前の過去スレで読んだ記憶があるんだけど、どうやるか
    知ってる人いる?
    143 : Zeno ◆5 - 2010/10/16(土) 16:38:23 (+11,-30,-164)

    >>142

    (defmacro ignore-messages (&rest body)
    "Suppress any incoming messages within `body' while keeping the
    currently displayed message, if any."
    (let ((msg (make-symbol "msg-temp")))
    `(let ((,msg (current-message))
    (message-log-max nil))
    (unwind-protect
    (progn ,@body)
    (if ,msg
    (message ,msg)
    (message nil))))))

    例:

    (ignore-messages
    (message "これは見えない。")
    (message "これも見えない。"))
    144 : 名無しさん@お腹 - 2010/10/16(土) 17:30:46 (+8,-29,-30)
    バイトコンパイルの時に、errorやwarningが表示される
    コンパイルログのサイズを固定したいのですが、どのようにすればいいですか?
    145 : Zeno ◆5 - 2010/10/16(土) 17:41:41 (-1,-30,-23)

    >>144
    要は byte-compilation のメッセージを少なくしたいのだろう?
    ならこうしろ:

    (setq compilation-skip-threshold 0)

    146 : 名無しさん@お腹 - 2010/10/16(土) 18:21:19 (+20,-2,-26)
    Emacsと仏教は似ている。
    147 : 名無しさん@お腹 - 2010/10/17(日) 00:23:50 (+8,-29,-108)
    >>144 ありがとうございます
    http://emacsblog.org/2007/05/22/quick-tip-compilation-skip-threshold/
    どんなことをしているか確認したところ↑のサイトが見つかりました

    しかし、適当な文字列(warningを起こしそうな aaとか)を入力して
    byte-compileをすると*Compile-Log*が半分の領域を占めてしまいます

    これをできるなら、そのときに出力されたメッセージのサイズくらいにしたいのですが・・・
    以前までのスレで似たような質問が出ていましたけども、その方も解決していなかったようです。
    148 : Zeno ◆5 - 2010/10/17(日) 03:30:12 (+2,-30,-21)

    × (setq compilation-skip-threshold 0)
    (setq compilation-skip-threshold 2)

    だったな。
    149 : 名無しさん@お腹 - 2010/10/17(日) 03:49:03 (-1,-29,-2)
    >>148
    1、2、3と変えても >>147と同じ状況でした><
    150 : 名無しさん@お腹 - 2010/10/17(日) 13:34:27 (+108,+19,-14)
    Zenoって役立たずだな。乳首も変だし。
    ←前へ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 次へ→ / 要望・削除依頼は掲示板へ / 管理情報はtwitterで / emacs スレッド一覧へ
    スレッド評価: スレッド評価について
    みんなの評価 :
    タグ : 追加: タグについて ※前スレ・次スレは、スレ番号だけ登録。駄スレにはタグつけず、スレ評価を。荒らしタグにはタグで対抗せず、タグ減点を。

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


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