Emacs Part 39
■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん@お腹いっぱい。
2011/11/29(火) 17:50:44.24Emacs Part 38
http://hibari.2ch.net/test/read.cgi/unix/1308635178/
0484名無しさん@お腹いっぱい。
2012/01/04(水) 15:27:43.87ワナビ御用達って感じ
0485名無しさん@お腹いっぱい。
2012/01/04(水) 15:58:04.740486479
2012/01/04(水) 16:12:44.06もしかして、自分はここの人たちと比べても変態なのか……!?
PC のスペックが Intel(R) Atom(TM) CPU N455 @ 1.66GHz
と低いことに原因があるのかな。
0487名無しさん@お腹いっぱい。
2012/01/04(水) 16:25:04.74あとうちでは一回目と二回目で起動時間の差が生じたな。
初回は7秒ぐらいだったのが2回目は1秒ぐらいになってた。
ディスクキャッシュとかフォントとかそこら辺のせいっぽいなあ。
0488名無しさん@お腹いっぱい。
2012/01/04(水) 19:16:11.14menubar関係かと思ってスルーしてた
るびきちの本はニワカだったら買って損ないわ
知ったかして敬遠してて損した
0489名無しさん@お腹いっぱい。
2012/01/04(水) 19:32:28.190490名無しさん@お腹いっぱい。
2012/01/04(水) 19:42:10.480491名無しさん@お腹いっぱい。
2012/01/04(水) 19:55:25.370492名無しさん@お腹いっぱい。
2012/01/04(水) 20:25:01.45あいつよっぽど生活苦しいんだろうな。
0493名無しさん@お腹いっぱい。
2012/01/04(水) 20:35:53.09どうせならLisp極めてそれ系の本出したほうがかっこいいのにね。
0494名無しさん@お腹いっぱい。
2012/01/04(水) 20:50:22.94elispをバネに他の言語にも拡げればいいのに。
rubyに挫折して大した能力がないと自覚しちゃったのかな?
だとしたら、気の毒で憐れなやつだよな。
0495名無しさん@お腹いっぱい。
2012/01/04(水) 20:51:17.33http://d.hatena.ne.jp/rubikitch/20120104/elispbookerrata
0496名無しさん@お腹いっぱい。
2012/01/04(水) 21:16:02.43>完全メールサポートつきで初月無料
>でなので安心して誤登録ください。
errata で誤字とか lisp 的でいいな。
0497名無しさん@お腹いっぱい。
2012/01/04(水) 21:18:40.480498名無しさん@お腹いっぱい。
2012/01/04(水) 21:28:39.220499名無しさん@お腹いっぱい。
2012/01/04(水) 21:54:57.85るびきちより有能な奴10000人が書き込むこのスレって天才たちの社交場だな
0500名無しさん@お腹いっぱい。
2012/01/05(木) 05:00:09.62ああ、こういうのを負け犬の遠吠えっていうんだな。
0501名無しさん@お腹いっぱい。
2012/01/05(木) 10:55:29.780502名無しさん@お腹いっぱい。
2012/01/05(木) 11:57:07.33リハビリにしばらくWindowsのメモ帳だけで生活してやる
0503名無しさん@お腹いっぱい。
2012/01/05(木) 12:11:07.06・Ace jump mode - emacs 用 hit-a-hint 風カーソル移動
https://github.com/winterTTr/ace-jump-mode/
(require 'ace-jump-mode)
(global-set-key (kbd "C-;") 'ace-jump-mode)
ってやって C-; a とか押すと画面上の a のところにアルファベットの連番が振られて
押せばジャンプできる。
0504名無しさん@お腹いっぱい。
2012/01/05(木) 12:17:38.590505名無しさん@お腹いっぱい。
2012/01/05(木) 12:21:35.58(defun buffer-mode-histogram ()
"Display a histogram of emacs buffer modes."
(interactive)
(let* ((totals '())
(buffers (buffer-list()))
(total-buffers (length buffers))
(ht (make-hash-table :test 'equal)))
(save-excursion
(dolist (buffer buffers)
(set-buffer buffer)
(let
((mode-name (symbol-name major-mode)))
(puthash mode-name (1+ (gethash mode-name ht 0)) ht))))
(maphash (lambda (key value)
(setq totals (cons (list key value) totals)))
ht)
(setq totals (sort totals (lambda (x y) (> (cadr x) (cadr y)))))
(with-output-to-temp-buffer "Buffer mode histogram"
(princ (format "%d buffers open, in %d distinct modes\n\n"
total-buffers (length totals)))
(dolist (item totals)
(let
((key (car item))
(count (cadr item)))
(if (equal (substring key -5) "-mode")
(setq key (substring key 0 -5)))
(princ (format "%2d %20s %s\n" count key
(make-string count ?+))))))))
0506名無しさん@お腹いっぱい。
2012/01/05(木) 12:44:35.74http://maps.google.com/maps/ms?msid=206578397069667369090.0004b0f0502b612864fbe&msa=0&ll=19.642588,23.554688&spn=103.499573,345.585938
日本人いねーぞこら
0507名無しさん@お腹いっぱい。
2012/01/05(木) 12:55:44.01そもそもいつ正式リリースなの?
0508名無しさん@お腹いっぱい。
2012/01/05(木) 13:03:05.07https://github.com/technomancy/heroku-buildpack-emacs
0509名無しさん@お腹いっぱい。
2012/01/05(木) 13:10:03.26頑張れ
ちゃんとそれを周りの人間にも広めるんだぞ
0510名無しさん@お腹いっぱい。
2012/01/05(木) 20:27:35.45copy con ファイル名
でおk
0511名無しさん@お腹いっぱい。
2012/01/05(木) 20:31:29.980512名無しさん@お腹いっぱい。
2012/01/05(木) 20:48:11.81どうすればよいのでしょうか
0513名無しさん@お腹いっぱい。
2012/01/05(木) 21:02:06.09whitespace-mode
標準だと全角には対応していないと思うので、
適当に whitespace-space-regexp などを変更する。
0514名無しさん@お腹いっぱい。
2012/01/05(木) 21:10:29.220515名無しさん@お腹いっぱい。
2012/01/05(木) 21:22:02.03痛いところ突いちゃってごめん。反省してます。
人を傷付けると自分も傷つきますね。
0516名無しさん@お腹いっぱい。
2012/01/05(木) 21:34:42.640517名無しさん@お腹いっぱい。
2012/01/05(木) 21:41:08.82IT業界すなわち世界経済を支える
るびきちに逆らえるのは各国首脳クラスから。
2ちゃんねらーは常に「るびきち様」と呼ばなければいけない。
0518514
2012/01/05(木) 21:50:47.17find-ls-option の ls 部分に '--time-style=+%Y/%M/%D' とかつけたところ
出力の日付は望みどおりになったのですが、その代わり dired が正しくファイルを認識して
くれなくなってしまいました。
0519名無しさん@お腹いっぱい。
2012/01/05(木) 21:54:29.66diredなんて窓から投げ捨てるのが正しいと思う。
あんな表示すら満足に変えられない前世紀の遺物を使うやつの気がしれん。
0520名無しさん@お腹いっぱい。
2012/01/05(木) 22:19:14.76ただ、ゴミはあってもゴミじゃない。
0521名無しさん@お腹いっぱい。
2012/01/05(木) 23:38:44.280522名無しさん@お腹いっぱい。
2012/01/05(木) 23:50:17.070523名無しさん@お腹いっぱい。
2012/01/05(木) 23:51:11.63少しカスタマイズしたdiredですこぶる快適に使えているが。
とりあえず何が不満なのか言ってみ。
0524名無しさん@お腹いっぱい。
2012/01/06(金) 00:24:49.330525名無しさん@お腹いっぱい。
2012/01/06(金) 00:34:22.550526名無しさん@お腹いっぱい。
2012/01/06(金) 10:30:11.51ありがとうございます。
できました。
0527名無しさん@お腹いっぱい。
2012/01/06(金) 12:36:51.01うまく動かせている方はいらっしゃりますでしょうか?
find-grep-dired のソースを見てみると、lgrep が対応していないオプション -e がハードコーディングされていたので
defadvice で書き換えたのですが、こんどは lgrep に出力無しにするオプションがないため
dired 側がまともに動かなくなりました。
0528名無しさん@お腹いっぱい。
2012/01/06(金) 13:15:53.030529名無しさん@お腹いっぱい。
2012/01/06(金) 13:20:10.22* 部外者/非Emacsユーザーの書き込みも可。但し、女性の書き込みは場の雰囲気を乱すので不可
0530名無しさん@お腹いっぱい。
2012/01/06(金) 13:26:07.82find-grep-dired で lgrep を使うメリットは何?
0531名無しさん@お腹いっぱい。
2012/01/06(金) 13:26:47.90どうすればよいですか
候補選択時だけカーソルキーまで手を伸ばすのに違和感がありますので
0532名無しさん@お腹いっぱい。
2012/01/06(金) 13:32:39.48日本語で検索したかったので。
色んなエンコードのファイルが散らばっているのです。
0533名無しさん@お腹いっぱい。
2012/01/06(金) 13:32:56.080536名無しさん@お腹いっぱい。
2012/01/06(金) 13:53:42.910537名無しさん@お腹いっぱい。
2012/01/06(金) 13:55:35.120538名無しさん@お腹いっぱい。
2012/01/06(金) 13:59:10.090539名無しさん@お腹いっぱい。
2012/01/06(金) 14:06:22.37ヒットしないならコマンドを呼び出した位置に入力した文字列を装飾して挿入したいです
(interactive)
(let ((str (read-string "input: ")))
(save-excursion
(while (search-forward str nil t) ; バッファ内の文字列とヒットしてしまった
;; ここで(read-string)を再度呼び出したい
))
;; save-excursionを抜けてからstrを使って挿入する
(insert (format "%s" (make-my-decoration str))))
このような処理を考えたのですが
(read-string)を二度書かない方法はあるでしょうか
0540名無しさん@お腹いっぱい。
2012/01/06(金) 14:07:36.00(save-excursion
は
(save-excursion
(goto-char (point-min))
です
0541名無しさん@お腹いっぱい。
2012/01/06(金) 14:09:26.25それとも再帰的に処理したいってことか?
0542名無しさん@お腹いっぱい。
2012/01/06(金) 14:29:08.57(interactive)
(let ((buf (save-excursion
(save-restriction
(widen)
(buffer-substring-no-properties (point-min) (point-max)))))
str)
(save-match-data
(while (and (setq str (read-string "input:"))
(string-match (regexp-quote str) buf))))
(insert (format "%s" (make-my-decoration str)))
))
0543名無しさん@お腹いっぱい。
2012/01/06(金) 14:38:52.45widen するかどうかは処理内容によるんじゃないのか?あとバッファ全コピはやりすぎだ
(defun somefunc ()
(interactive)
(let (str)
(save-match-data
(while (and (setq str (read-string "input:"))
(save-excursion
(goto-char (point-min))
(search-forward str nil t))))
(insert (format "%s" (なんか str)))
)))
0544名無しさん@お腹いっぱい。
2012/01/06(金) 14:54:56.860545名無しさん@お腹いっぱい。
2012/01/06(金) 14:56:12.28そこでdefine-generim-modeで作ったモードにも同様の機能を盛り込みたいのですが
どうすればよいのですか
elispのコメントの仕様と同じものを希望します
具体的には、文字列が入力されている行なら行末に;1つ
(私の環境ではelispでは行末から20文字くらい右につきます)
リージョンが設定されているか
行に何も書いていなければ行頭に;2つ
よろしくお願いします
0546名無しさん@お腹いっぱい。
2012/01/06(金) 14:59:19.24いいことだな。
0547名無しさん@お腹いっぱい。
2012/01/06(金) 15:01:11.90るびきちのせいでこのスレのレベルが低下するのは勘弁だぜ
0548名無しさん@お腹いっぱい。
2012/01/06(金) 15:01:27.84外してたらすまんが、define-generic-mode の引数で正しくコメントの書式設定してたら
commend-dwim で普通にその動作にならない?
0549名無しさん@お腹いっぱい。
2012/01/06(金) 15:02:47.50http://www.reddit.com/r/emacs
0550名無しさん@お腹いっぱい。
2012/01/06(金) 15:14:40.55,,;f::::::::::::::::::::::ヽ
i::/' ̄ ̄ ̄ヾi::l
|::| / \,|::|
|r-( ・ );( ・ )-|
( ヽ :::(__)..:: } <・・・で?
,____/ヽ -==- /
r'"ヽ t、 ヽ___/
/ 、、i ヽ__,,/
/ ヽノ j , j |ヽ
|⌒`'、__ / / /r |
{  ̄''ー-、,,_,ヘ^ |
ゝ-,,,_____)--、j
/ \__ /
0551名無しさん@お腹いっぱい。
2012/01/06(金) 15:40:58.79別解っぽいものを書いてみた。
call-interactively は使わないほうが行儀が良いような気がする。
>>544
変だったら指摘してくれると大助かり。
(defun somefunc (str)
(interactive "sinput: ")
(if (save-excursion
(goto-char (point-min))
(save-match-data
(search-forward str nil 'noerror)))
(call-interactively 'somefunc)
(insert str)))
ただし call-interactively は使わないほうが行儀が良い気がする。
0552名無しさん@お腹いっぱい。
2012/01/06(金) 17:21:25.66http://www.youtube.com/watch?feature=player_detailpage&v=D1sXuHnf_lo#t=78s
0553名無しさん@お腹いっぱい。
2012/01/06(金) 17:31:06.540554名無しさん@お腹いっぱい。
2012/01/06(金) 17:45:38.45ほれ
;; popwin 管理下におく
(add-to-list 'popwin:special-display-config `(,sdic-buffer-name))
;; sdic-display-buffer 書き換え
(defadvice sdic-display-buffer (around sdic-display-buffer-normalize activate)
"sdic のバッファ表示を普通にする。"
(let ((p (or (ad-get-arg 0)
(point))))
(and sdic-warning-hidden-entry
(> p (point-min))
(message "この前にもエントリがあります。"))
(goto-char p))
(display-buffer (get-buffer sdic-buffer-name)))
0555名無しさん@お腹いっぱい。
2012/01/06(金) 17:53:07.75ありがとでも sdic-describe-word-at-point がちょっと変な気がする
0556名無しさん@お腹いっぱい。
2012/01/06(金) 17:59:14.72ほれ。あとちょっと挙動違ってた部分もついでになおした。
;; sdic-display-buffer 書き換え
(defadvice sdic-display-buffer (around sdic-display-buffer-normalize activate)
"sdic のバッファ表示を普通にする。"
(setq ad-return-value (buffer-size))
(let ((p (or (ad-get-arg 0)
(point))))
(and sdic-warning-hidden-entry
(> p (point-min))
(message "この前にもエントリがあります。"))
(goto-char p)
(display-buffer (get-buffer sdic-buffer-name))
(set-window-start (get-buffer-window sdic-buffer-name) p)))
0557名無しさん@お腹いっぱい。
2012/01/06(金) 18:14:46.00(defadvice sdic-other-window (around sdic-other-normalize activate)
"sdic のバッファ移動を普通にする。"
(other-window 1))
(defadvice sdic-close-window (around sdic-close-normalize activate)
"sdic のバッファクローズを普通にする。"
(bury-buffer sdic-buffer-name))
0558名無しさん@お腹いっぱい。
2012/01/06(金) 18:20:47.72>(add-to-list 'popwin:special-display-config `(,sdic-buffer-name))
を
(add-to-list 'popwin:special-display-config `(,sdic-buffer-name ,sdic-window-height))
に直したら大分良くなった
0559名無しさん@お腹いっぱい。
2012/01/06(金) 18:21:28.63(add-to-list 'popwin:special-display-config
`(,sdic-buffer-name :height ,sdic-window-height))
0560名無しさん@お腹いっぱい。
2012/01/06(金) 18:33:53.570561名無しさん@お腹いっぱい。
2012/01/06(金) 19:08:58.15こいつらみんな無職なんだぜ……
0562545
2012/01/06(金) 19:46:26.97ありがとうございます。確認してみました。
(define-generic-mode 'my-mode
'(";")
こういう書き出しではじまるgeneric-modeで
;の出力される位置は行頭行末とも適切だとわかったのですがただ行頭が;;になりません
普通generic-modeでこう設定すると行頭は;;となるのでしょうか
0563名無しさん@お腹いっぱい。
2012/01/06(金) 20:19:12.42emacs-lisp-mode みてみたら、どうやら
comment-add って変数で ; の数を制御しているみたい。
モードのセットアップしてるところで
(setq (make-local-variable 'comment-add) 1) ってやってみて。
0564名無しさん@お腹いっぱい。
2012/01/06(金) 20:19:20.550565名無しさん@お腹いっぱい。
2012/01/06(金) 20:20:28.45setq じゃなくて set ね
0566名無しさん@お腹いっぱい。
2012/01/06(金) 20:23:51.570568名無しさん@お腹いっぱい。
2012/01/06(金) 20:31:57.02思うにあいつかなりドケチだよな。
0569名無しさん@お腹いっぱい。
2012/01/06(金) 20:41:56.80http://d.hatena.ne.jp/rokujyouhitoma/20110816/1313468638
lispじゃなくて普通の方だな
0570539
2012/01/06(金) 21:11:16.68ありがとうございます。save-match-data の使い方を勉強します。
>>541
説明が不足でした。重複している処理なので
whileのたぐいで一度だけ書けばどうにかならないかと悩んでいました。
書き方は再帰でもloopでもかまいませんでした。
0571名無しさん@お腹いっぱい。
2012/01/06(金) 21:23:48.68save-match-data は >>542 が string-match 使った時に混入しただけで
search-forward 使う分には入れる必要ないかと。
0572名無しさん@お腹いっぱい。
2012/01/07(土) 00:03:43.680573名無しさん@お腹いっぱい。
2012/01/07(土) 00:07:29.320574名無しさん@お腹いっぱい。
2012/01/07(土) 00:30:53.330575名無しさん@お腹いっぱい。
2012/01/07(土) 01:04:50.460576名無しさん@お腹いっぱい。
2012/01/07(土) 01:23:09.550577名無しさん@お腹いっぱい。
2012/01/07(土) 10:32:37.890578名無しさん@お腹いっぱい。
2012/01/07(土) 10:42:25.69と思ったら一応出来ないことはないみたい
http://www.emacswiki.org/emacs/EmacsOnAndroid
0579名無しさん@お腹いっぱい。
2012/01/07(土) 11:44:15.55elisp だけでの並列プログラミングが実現出来るんじゃないか?
マルチスレッドじゃなくマルチプロセスだけど。
0580名無しさん@お腹いっぱい。
2012/01/07(土) 11:46:26.85Emacs for Android
ttp://d.hatena.ne.jp/MATSUZAKI/20101104/1288882148
0581名無しさん@お腹いっぱい。
2012/01/07(土) 12:25:49.29emacs24からはポート指定でサーバ立ち上げられるし
server-eval-at なんてのも追加されてるからあながち間違ったアプローチじゃないとおもう。
0582名無しさん@お腹いっぱい。
2012/01/07(土) 14:14:17.26このようなテキストがあるところで
akasatana
hamayarawa
ikisitini
「元のテキスト 元のテキスト」のようにテキストを複製するかのような処理を
正規表現の置換で行いたいのですがうまくいきません
置換対象の文字列検索はre-builderでは大丈夫でした
replace-regexp [ret]
\\(.+\\) [ret]
\\1 \\1 [ret]
何を修正すればよいのでしょうか
0583名無しさん@お腹いっぱい。
2012/01/07(土) 14:21:09.160584名無しさん@お腹いっぱい。
2012/01/07(土) 14:39:22.04■ このスレッドは過去ログ倉庫に格納されています