少数派による互助を中心に、初心者の相談も気が向けば受け付けます。
単なる Emacs ユーザーは別板の Emacs 関連スレにどうぞ。
過去スレ
Emacs Lisp
http://pc2.2ch.net/test/read.cgi/tech/1004551074/
Emacs Lisp 2
http://pc11.2ch.net/test/read.cgi/tech/1068467385/
関連スレ
Emacs part 22
http://pc11.2ch.net/test/read.cgi/unix/1180828013/
【叩かれて】Emacs Lisp道場【強くなれ】
http://pc11.2ch.net/test/read.cgi/unix/1063880951/
Lisp Scheme Part18
http://pc11.2ch.net/test/read.cgi/tech/1186922295/
そんなことよりコンスセルの話をしようぜ
ファイルから一行読み込む、ってどうやるの？
ファイルは馬鹿でかいから、バッファに全部は読み込めない。
リージョンを指定して M-| wc -c だと、改行コードなどがバッファのものと違う、
string-width だと TAB が 8 にカウントされる、改行がカウントされない、
length だとマルチバイト文字も 1 文字とカウントする、
など、どれもちょっと期待と違います。
ちなみに、最終的には mode-line に表示させたいので、
外部プロセスなどは使わずにすませたいところです。
何かいい方法ないでしょうか？
>>12 を参考にコードを書いてみましたが、
1MBくらいのファイルになるとスクロールに影響がありました。
私の組み方も悪かったのかも知れませんね。
バッファ全体を substring して temp-buffer に insert して encode して length… だったので。
きっと、もちょっと効率良くできるのでしょう。
で、mode-line の表示をどうしたものかと xdisp.c を眺めていたのですが、
mode-line-format に %i や %I が使えることが分かったので、
もうこれでいいコトにします。
ありがとうございました。
変更がなければ再計算する必要ないと思うが。
undo-list はアテにならないから使えないと思うんだけど、
バッファに変更があったことをどうやって知ればいい？
buffer-undo-listじゃどうアテにならないのかおせーて。
…と思ったけど、変化したら再計算するんだから、十分アテになるね。
おお、これなら…、と思ってやってみましたが、
少し速くタイプすると描画がついてきませんでした。これは CPU の性能のせいかな？
もちろん、スクロールには影響なかったですよ。ありがとうございます。
after-change-functions 自体は便利そうなので、別の何かに使います。
Rubyが一応は書けます。
OSはUbuntu7.10を使っています。
質問なのですが
yatexは.elファイルをどっかに置いているのだと思いますが
これはどこに置いてあるのですか？
rpm系を使っていて
rpm -ql yatexのような事が出来ればいいのですが良く分かりません。
まずこれについて方法を教えていただければと思います。
次に、
例えば/usr/libとかに.elファイルが置いてあるとして
emacsはどこに書いてある命令でこれを読みに行くのでしょうか？
最後に
.emacsというのにelispを書くとemacsをカスタマイズ出来るそうですが
.emacsに例えば
(set-language-environment "Japanese")
(set-default-coding-systems 'euc-japan)
(set-terminal-coding-system 'euc-japan)
と書いた場合、確認した中では
何もファイルを指定せずにファイルを開いた場合と
.rbファイルを開いた場合に設定が反映されましたが、
.texの時は変わらず、JISのままでした。
例えば/usr/libにyatex.elというのがあると仮定して、
おそらくここにJISにしなさいという命令が書いてあるものと思われ
それにより上書きされているものと思われますが、
同一種の命令の場合、
.emacsの設定の方を優先順序を上にするにはどうすればいいですか？
ライブラリの場所は M-x locate-library でわかるよ
無理やりですが
locate yatexで調べました。
/usr/share/emacs/site-lisp
とかにそれらしきパッケージが入っていますね。
しかしどうやって読み込んでるのかとか
どうやってyatexを使用した場合でも.emacsに書いたeuc-jpを使いなさい
という命令を優先させる事が出来るのかが分かりません・・・
C-h iでyatexを探して読んでみるといい。
文字エンコーディングの設定方法はそこに書いてある。
Emacs Lispの55%は陰謀で出来ています。
Emacs Lispの39%は祝福で出来ています。
Emacs Lispの6%は成功の鍵で出来ています。
&optional な引数で、上書きと挿入を切り替えることができると嬉しいです。
(setq test '(A B C D E))
(func test 3 X)
=> (A B C X E)
(func test 3 X t)
=> (A B C X D E)
みたいなものがあったら嬉しいのですが、標準関数でこれと同じようなものはありますか？
自分でやると
(append (reverse (nthcdr (- (length lst) n ) (reverse lst)))
X
(nthcdr n lst))
みたいになってしまうのです。
(setf (nthcdr n lst) (cons new (nthcdr n lst)))
;; 非破壊的挿入
(let ((lst (copy-list lst)))
(setf (nthcdr n lst) (cons new (nthcdr n lst)))
lst)
;; 破壊的上書き
(setcar (nthcdr n lst) new)
;; 非破壊的上書き
(let ((lst (copy-list lst)))
(setcar (nthcdr n lst) new)
lst)
or
(substitute-if new 'identity lst :count 1 :start n)
setfとsubstitute-ifはCL。あとは詳しい人が降臨するのを待とう。
おれもここは苦手なんだ。
仕様バグ。使い方は
(setq test (func test 3 x t))
でないとダメ。
なぜなら0番目に挿入がありえるから。
？？？
そういうこともあるから値返してんじゃないの？
どのへんがバグなのか分からないオレははんぶん素人です。
保存のたびに色が変化する（tomato→black）ようにしたくて、以下を.emacsに書いたのですが、エラーが出てしまいます。
小関氏の『入門Meadow/Emacs』に載っているソースを真似たのですが、どこが問題なのでしょうか？
よろしくお願いします。
●.emacs
(setq highlight-changes-colours
(let ((r 255)(g 99)(b 71) ret) ;初期値tomato
(while (> (+ r g b) 0) ;だんだん色褪せる
(setq ret (append ret (list (format "#%02x%02x%02x" r g b))))
(setq r (* (/ r 10) 8)
g (* (/ g 10) 8)
b (* (/ b 10) 8)))
ret))
●エラー
Wrong type argument: symbolp, (* (/ b 10) 8)
Emacsが日本語でやさしく教えてくれるようになるまで別のもの使っときw
setqのgの後ろに幽霊が居るぞ
(defun hoge()
(interactive)
(setq self (second (backtrace-frame 3)))
(message "%s" self)
)
お、できた。
サンクス
selfが汚染されるだろ
こんな感じだと思うんですが
(and (stringp arg) (not (string= arg "")))
これに相当する標準のコマンドってありますか？
あれ何のためにあるの？
a2ps-j とかはそれを認識して改ページしてくれるので、
見やすくするために入れる。
一つのソースファイルをいくつかのセクションに分けたいときに使ってるね。
Emacsではbackword-page (C-x [), forward-page (C-x ])でページ単位で移動できる。
なるほど。勉強になりました。
(defun foo (str num)
(let (i result)
(dotimes (i num result)
(setq result (concat result str)))))
こんなのを作るしかないんですかね？
(defun X (s n) (apply 'concat (make-list n s)))
おお、素晴らしい。
そっちの方が色々応用できそうですね。
カキコしたあと思い出したんだけど、前スレで同じ質問あったな。いくつかレスがついてる。
http://pc11.2ch.net/test/read.cgi/tech/1068467385/936
> perl の x 演算子みたいな関数って無い？
> make-string の文字列版というか、
> (hogefunc 3 "abc")
> => "abcabcabc"
> みたいなやつ。
mapconcat の方がいろいろ対応できるよ
確認しました。 ありがとうございます。
941 ：デフォルトの名無しさん：2007/09/08(土) 00:20:18
ということは、まとめると
(mapconcat 'identity (make-vector 3 "abc") nil)
が一番速いのかね
>>55
みたいですね。
こういうコードをさらっと書けるように修行します。
ぱっとみて思いついた。
でもそれは >>51 のように順々に concat していくのと同様だから遅すぎである。
(reduce 'concat (make-vector 10000 "abc"))
Time: 5182 ms
(mapconcat 'identity (make-vector 10000 "abc") nil)
Time: 2 ms
さっさと本スレで初心者にやさしく答えてあげてください。
(mapconcat (lambda (x) "abc") (make-bool-vector 10000 nil) nil)
くり返し回数が十分大きい場合はこっちのが速い
(with-temp-buffer
(let* ((n 10000) (s "abc") (l nil))
(while (/= n 0)
(setq l (cons (= 1 (logand n 1)) l))
(setq n (lsh n -1)))
(while (progn (if (car l) (insert s)) (setq l (cdr l)))
(insert-buffer-substring (current-buffer) (point-min) (point-max)))
(buffer-string)))
思いつく柔軟さはいいと思うけど、
そんなコード氾濫してたら嫌だというのが正直なとこだな
$foo =~ s/abc/def/;
みたいにして変数の中身を正規表現を使って置換することはEmacsLispで出来ますか？
perfume-replaceをどう使っていいのか分かりません
replace-regexp-in-string
replace-regexp-in-string でいいんじゃね? と思ったが、
s/abc/def/ じゃなくて s/abc/def/g になっちまうな。
(let ((foo "abc123abc"))
(setq foo (replace-regexp-in-string "abc" "def" foo)))
⇒ "def123def"
replace-match なら s/abc/def/ になるかな。
(let ((foo "abc123abc"))
(string-match "abc" foo)
(setq foo (replace-match "def" nil nil foo)))
⇒ "def123abc"
あー s/abc/def/gでいいんです。すいません
とりあえずreplace-regexp-in-stringとstring-matchの使い方を覚えます
どうもありがとうございました
how-manyのソースを見てみたところ
(defun how-many (regexp &optional rstart rend)
と、引数を3つしかとらないみたいなのですが
バッファ内で(how-many "aa" nil nil nil)と引数を4つ渡して評価しても何故か
普通に動作します。
どうして引数を4つ渡しても動作するんでしょうか？
emacsのバージョンは22です
使ってるバージョン(22)と見たソースのバージョン(21)が異なってただけでした。orz
22のソースだとちゃんと引数は４になってました。
あともう1つわからない点があって、22のcount-matchesの説明をc-h fで見ると
the function behaves in all respects has if it had been called interactively.
という英文があるんですが、これはどういう意味なんでしょうか？
特にin all respects has という部分がわかりません。
>>68
その英文は少々不自然である。 例えばそれは
if interactive is t, the function behaves as if it had been called interactively (in every respect).
(もし `interactive' が t であるならば、この関数は interactive に呼ばれた時と同じ動作をする。)
と訂正されるべきだろう。 "has" は "as" であって、単純なタイポである。
変な英文だと思ったらtypoだったんですね。
わかりました、ありがとうございます。
貢献できて嬉しいよ。
Google Desktop の検索結果に time というプロパティがあり、それを通常の日付／時間表示に変換する方法が分かりません。どうすればいいのでしょうか？
;Google Deskitop の time の値(milie second): 128542440648970000
; 試してみたこと。
; current-time-string に渡すため (high low)のフォーマットにしようとこころみた。
(let* ((second 128542440648970)
(high (/ second 65535))
(low (logand second 65535)))
(List high low))
;こんな結果になる。
(-380 28938)
(high (calc-eval (concat second " / 65535")))
(low (calc-eval (concat "and(" second ",65535"))))
(list high low))
=> ("1961431916.52" "28938")
で結果は正しい？
レスありがとう。
'high' が integer じゃないって怒られた。だめみたいです。
65535 じゃなくて 65536 じゃないか?
の出力が日本語を含むリストのはずなのですが
\222 が連続して並んでます
nkfでも変換できないみたいです
どうすれば普通の日本語にできるのでしょうか？
--batch の出力は必ず iso-2022 になるはず。
ちなみに、
http://www.jaist.ac.jp/~n-yoshi/tips/junk_elisp.html#bytecompile
の、保存時に自動バイトコンパイルするよう設定を参考に、(byte-compile-file "~/.emacs.el")を(eval-current-buffer)に書き換えたりしてみたのですが、それだと、Emacsが重くなってダメでした。
高林哲氏のauto-save-buffersを使っているせいもあるんでしょうが。
その真上にある終了時に byte-compile ってやつはダメなの？
kill-buffer-query-functions で eval してはどうでしょうか。
(add-to-list 'kill-buffer-query-functions
(lambda ()
(when (string= (expand-file-name "~/.emacs.el")
(buffer-file-name))
(eval-buffer))
t))
さっそく試したところ、うまいこと動きました。
ただ、やはり、バッファ終了時ではなく、手動保存時に
add-hookすることができればそれがベストかなと、
思い直した次第です。
つまり、'after-save-hookだとauto-save時にも適用されてしまいますが、自分でC-x C-sした時だけeval-bufferするようなことって、できますでしょうか？
たびたびすいませんです。これで最後の質問にいたします。
eval-bufferして本来の動作をするようなelispを定義して
C-xC-s のコマンドに上書きすればいいだけじゃないか。
interactive-p で auto-save かどうかを判定できるかも。
どうすればいいですか？
わかる方がいましたら教えてください。
マークして C-x r t C-q TAB RET
基本的な操作は本スレで質問しような。
なぜかうちの環境ではならない
ubuntu7.10
そんな長いコマンドがちょっといやで，
C-c C-tあたりでできるようにしたいです
じゃあチラシの裏に書く前にさっさとそうしてください。
(defmacro definsert (name str)
(let ((dstr (gensym)) (len (gensym)))
`(defun ,name ()
(let* ((,dstr (concat ,str ,str)) (,len (length ,str)))
(insert ,dstr)
(backward-char ,len)))))
( definsert insert-double-aho "aho")
(insert-double-aho) => ahoaho カーソルの位置 最初のahoの後ろ
インデントは適当になおしてね。また、これは車輪の再発明でinsert-pairが
標準であることを付け加えておきますね。
取り合えず手元にあるものではこんな感じ。
(defun duplicate-line (n)
(interactive "p")
(save-excursion
(copy-region-as-kill (line-beginning-position)
(progn (forward-line 1) (point)))
(dotimes (i n)
(yank))))
ちなみに、コピー後のカーソル位置は任意です。(カラムが移動するのはイヤン)
(defun duplicate-line (n)
(interactive "p")
(save-excursion
(let ((str (concat (buffer-substring (line-beginning-position)
(line-end-position))
"\n")))
(forward-line)
(when (= (line-end-position)
(point-max))
(insert "\n"))
(dotimes (i n)
(insert str)))))
[?\C-a ?\C- ?\C-e escape ?w ?\C-m ?\C-y ?\C-a ?\C-p])
>>97
確かに最終行が改行で終わってないと動作がおかしいですが、
ある意味正しいというか、あまりないことなので現状でも
いいかなという気もします…
>>98
マクロも考えたんですが、カーソルのカラム位置が移動しちゃうのと
一回のUndoで元に戻らないのがちょっと微妙です。
TOP カテ一覧 スレ一覧 削除依頼 ▲
・ 次のスレ
疑似乱数２
【SecondLife】リンデンスクリプト【LSL】
Oracleの開発で SI Object Browser 買わないやつ
***Javaのオススメ入門書*** 『創るJava』 3.0