私的良スレ書庫
不明な単語は2ch用語を / 要望・削除依頼は掲示板へ。不適切な画像報告もこちらへどうぞ。 / 管理情報はtwitterでログインするとレス評価できます。 登録ユーザには一部の画像が表示されますので、問題のある画像や記述を含むレスに「禁」ボタンを押してください。
元スレEmacs part 25
emacs スレッド一覧へ / emacs とは? / 携帯版 / dat(gz)で取得 / トップメニューみんなの評価 : ○
レスフィルター : (試験中)
突然ですが、windmove.elってemacs -nwだと効かないですが、みなさんは
どのように~/.emacsに設定されてますでしょうか?
どのように~/.emacsに設定されてますでしょうか?
>>803
> 突然ですが、windmove.elってemacs -nwだと効かないですが、みなさんは
> どのように~/.emacsに設定されてますでしょうか?
失礼、ググって以下のようにしました。
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; windmove
;; ->http://www.stanford.edu/~hovav/elisp/windmove-0.95.el
(when (locate-library "windmove")
(require 'windmove) ; to load the package
;;(windmove-default-keybindings) ; default keybindings
(setq windmove-wrap-around t)
(global-set-key "\C-\M-h"'windmove-left)
(global-set-key "\C-\M-j" 'windmove-down)
(global-set-key "\C-\M-k" 'windmove-up)
(global-set-key "\C-\M-l"'windmove-right)
) ;; end of windmove
> 突然ですが、windmove.elってemacs -nwだと効かないですが、みなさんは
> どのように~/.emacsに設定されてますでしょうか?
失礼、ググって以下のようにしました。
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; windmove
;; ->http://www.stanford.edu/~hovav/elisp/windmove-0.95.el
(when (locate-library "windmove")
(require 'windmove) ; to load the package
;;(windmove-default-keybindings) ; default keybindings
(setq windmove-wrap-around t)
(global-set-key "\C-\M-h"'windmove-left)
(global-set-key "\C-\M-j" 'windmove-down)
(global-set-key "\C-\M-k" 'windmove-up)
(global-set-key "\C-\M-l"'windmove-right)
) ;; end of windmove
>>803
-nw のとき、変数 window-system は nil。
-nw のとき、変数 window-system は nil。
cycle-mini.el をロードして completing-read を使おうとすると、
Wrong type argument: listp, "xxx" のエラーになってしまいます。
cycle-mini.el が最近メンテナンスされてなさそうなので、
これを気に乗り換えてみようかと考えています。
cycle-mini.el の後継版or改良版みたいなものはないですか?
Wrong type argument: listp, "xxx" のエラーになってしまいます。
cycle-mini.el が最近メンテナンスされてなさそうなので、
これを気に乗り換えてみようかと考えています。
cycle-mini.el の後継版or改良版みたいなものはないですか?
>>808
えっと、こういう言い方は何ですが、初歩の初歩から勉強し直す事をお奨めします。
えっと、こういう言い方は何ですが、初歩の初歩から勉強し直す事をお奨めします。
(defmacro nlp:compose (&rest funcs)
`(lambda (nlp:compose-argument)
,(loop for x in funcs with ret
initially (setq ret 'nlp:compose-argument)
do (setq ret (let ((xx (if (functionp x) x (eval x))))
(if (listp xx) (list #'funcall xx ret)
(list xx ret))))
finally (return ret))))
;; (= 4 (funcall (nlp:compose #'1+ #'1+ #'1+) 1))
この合成関数マクロ
作ったはいいけど使いどころが全然思いつかないんだけど
`(lambda (nlp:compose-argument)
,(loop for x in funcs with ret
initially (setq ret 'nlp:compose-argument)
do (setq ret (let ((xx (if (functionp x) x (eval x))))
(if (listp xx) (list #'funcall xx ret)
(list xx ret))))
finally (return ret))))
;; (= 4 (funcall (nlp:compose #'1+ #'1+ #'1+) 1))
この合成関数マクロ
作ったはいいけど使いどころが全然思いつかないんだけど
C++で組まれたschemeを処理系であるemacsか
あれかエディタの骨組だけ作ってgaucheを組み込むとかそんな形になりそうやね
ただニートでもないととてもできない仕事だけど
あれかエディタの骨組だけ作ってgaucheを組み込むとかそんな形になりそうやね
ただニートでもないととてもできない仕事だけど
超適当
(defun chinko ()
(interactive)
(save-excursion
(forward-line -1)
(kill-ring-save (point-at-bol) (point-at-eol))
(forward-line 1)
(yank))
)
kill-ring-save と yank って直接使っていいんだったっけか…
(defun chinko ()
(interactive)
(save-excursion
(forward-line -1)
(kill-ring-save (point-at-bol) (point-at-eol))
(forward-line 1)
(yank))
)
kill-ring-save と yank って直接使っていいんだったっけか…
>>822
>kill-ring-save と yank って直接使っていいんだったっけか…
(info "(elisp) Coding Conventions")
には、マークのことは書いてあるけど、キルリングについては特に言及がないね。
でもキルリングの状態を変えちゃマズいような気がする。
というか、そういうことをどこかで読んだような気がする。
>kill-ring-save と yank って直接使っていいんだったっけか…
(info "(elisp) Coding Conventions")
には、マークのことは書いてあるけど、キルリングについては特に言及がないね。
でもキルリングの状態を変えちゃマズいような気がする。
というか、そういうことをどこかで読んだような気がする。
その副作用を期待しているなら別にいいとは思うけど、
普通には buffer-substring-no-properties と insert だな。
普通には buffer-substring-no-properties と insert だな。
(defun f ()
(interactive)
(save-excursion
(forward-line -1)
(let ((line (buffer-substring-no-properties (point-at-bol) (point-at-eol))))
(goto-char (point-at-eol))
(newline)
(insert line))))
(interactive)
(save-excursion
(forward-line -1)
(let ((line (buffer-substring-no-properties (point-at-bol) (point-at-eol))))
(goto-char (point-at-eol))
(newline)
(insert line))))
gaucheを組み込んだエディタらしきものは
alohaさんが昔作りかけてたな
まぁ完成してもgaucheにはcompile-defunみたいなもんが無かったような気がするから
今のelispの方がマシって結果になりそうだけど
alohaさんが昔作りかけてたな
まぁ完成してもgaucheにはcompile-defunみたいなもんが無かったような気がするから
今のelispの方がマシって結果になりそうだけど
マウスのポインター (マウスカーソル) のアイコンを「手」や「点」などに変える方法はありますか?
教えてください。
教えてください。
>>836
X の設定でかえれば?
X の設定でかえれば?
(insert "\n" (shell-command-to-string (format "echo \"%s\"|base64 -d|gzip -d"
"H4sIAEEtjEgAA61Su27DMAyck68glCFSUBcBOqRB0A8o0LFjFkWmbKG26Epygv59KcXpCxmKohps
gbw7H82THSaQ8jBakA2mii8WQ2UC6oQgWmpQKKXmAPLkUluZMQT0FxwUHgYdcaqcoZGVhkAGY6wi
w53HjuvcSDp8tCb5IiLQtCRAVJ4fC7kXux08ty7C9CG+WQrgKWGENxqhJr9McNI+QSKI+og3oH1d
UE8uDoBH3Y06OfK3cxZ7tIV2IeQB9wLWcAfSEju0DmtIYLVByIWqI/NSGer7PG6Nnetd4j9TAHpM
lHsDxcxSrLLZ/EroOp3J9+t/McIy2+3fnSiR9weLpex0f6g1yLwr6GNT6vlIZ/Meg/PNQ26AsM67
2GK998yeZUgJFWPgZ7BArKIJOpl2VWI1K5LT62rCvpHPcZzgTGgo2281wwZyTOqdV1/6nMNXKD54
3fU1rU8T0vmIIYHgMTJHlfMOghA8SiADAAA=")))
この式を評価して入力された式は外部プロセスにプロパティー付き文字列を生成させて
Emacs側で利用するサンプルコードです
しかし、外部プロセスから出力された文字列をバッファに受けて、
さらにそれを#'readで評価して読みこむという二度手間になってしまっています
バッファもいっちゃ唯のバイナリ列なんですから、
外部プロセスからバッファに直接プロパティー付き文字列として出力させたいんですが
方法はありませんかね?
"H4sIAEEtjEgAA61Su27DMAyck68glCFSUBcBOqRB0A8o0LFjFkWmbKG26Epygv59KcXpCxmKohps
gbw7H82THSaQ8jBakA2mii8WQ2UC6oQgWmpQKKXmAPLkUluZMQT0FxwUHgYdcaqcoZGVhkAGY6wi
w53HjuvcSDp8tCb5IiLQtCRAVJ4fC7kXux08ty7C9CG+WQrgKWGENxqhJr9McNI+QSKI+og3oH1d
UE8uDoBH3Y06OfK3cxZ7tIV2IeQB9wLWcAfSEju0DmtIYLVByIWqI/NSGer7PG6Nnetd4j9TAHpM
lHsDxcxSrLLZ/EroOp3J9+t/McIy2+3fnSiR9weLpex0f6g1yLwr6GNT6vlIZ/Meg/PNQ26AsM67
2GK998yeZUgJFWPgZ7BArKIJOpl2VWI1K5LT62rCvpHPcZzgTGgo2281wwZyTOqdV1/6nMNXKD54
3fU1rU8T0vmIIYHgMTJHlfMOghA8SiADAAA=")))
この式を評価して入力された式は外部プロセスにプロパティー付き文字列を生成させて
Emacs側で利用するサンプルコードです
しかし、外部プロセスから出力された文字列をバッファに受けて、
さらにそれを#'readで評価して読みこむという二度手間になってしまっています
バッファもいっちゃ唯のバイナリ列なんですから、
外部プロセスからバッファに直接プロパティー付き文字列として出力させたいんですが
方法はありませんかね?
>>840
> バッファもいっちゃ唯のバイナリ列なんですから、
> 外部プロセスからバッファに直接プロパティー付き文字列として出力させたいんですが
> 方法はありませんかね?
バッファの「唯のバイナリ列」の部分にはプロパティは記録されていないわけで、
あなたの主張は破綻してます。
> バッファもいっちゃ唯のバイナリ列なんですから、
> 外部プロセスからバッファに直接プロパティー付き文字列として出力させたいんですが
> 方法はありませんかね?
バッファの「唯のバイナリ列」の部分にはプロパティは記録されていないわけで、
あなたの主張は破綻してます。
(require 'cl)
(find "loop" (map 'list 'symbol-name obarray)) ;; => nil
なのに
;; describe-functionの一部
(completing-read (if fn
(format "Describe function (default %s): " fn)
"Describe function: ")
obarray 'fboundp t nil nil
(and fn (symbol-name fn)))
ではloopは補完されますよね
uninterned symbolを参照する方法があるという事ですか?
もしあれば是非とも教えてもらいたいものです
(find "loop" (map 'list 'symbol-name obarray)) ;; => nil
なのに
;; describe-functionの一部
(completing-read (if fn
(format "Describe function (default %s): " fn)
"Describe function: ")
obarray 'fboundp t nil nil
(and fn (symbol-name fn)))
ではloopは補完されますよね
uninterned symbolを参照する方法があるという事ですか?
もしあれば是非とも教えてもらいたいものです
>>844
自分のプログラムが思うように動かないとコンパイラにバグがあるとか抜かしそうなタイプだな。
infoもろくに読まずに早合点した部分が正しいかをまず疑えよな。
ELISP> (intern-soft "car")
car
ELISP> (find 'car obarray)
nil
ELISP> (length obarray)
1511
ELISP> (let ((x 0)) (mapatoms #'(lambda (k) (setq x (1+ x)))) x)
34074
ヒントは struct Lisp_Symbol (lisp.h)。
これ見て理由を察せないほど無知なら更に Fintern (lread.c)。
自分のプログラムが思うように動かないとコンパイラにバグがあるとか抜かしそうなタイプだな。
infoもろくに読まずに早合点した部分が正しいかをまず疑えよな。
ELISP> (intern-soft "car")
car
ELISP> (find 'car obarray)
nil
ELISP> (length obarray)
1511
ELISP> (let ((x 0)) (mapatoms #'(lambda (k) (setq x (1+ x)))) x)
34074
ヒントは struct Lisp_Symbol (lisp.h)。
これ見て理由を察せないほど無知なら更に Fintern (lread.c)。
>>845
ヒントありがとうございます、結局lread.cまで見ました
obarrayの各要素が先頭になるユーザから見えないリストがあって
シンボル全部を参照したければそのリストを渡り歩くmapatomsを使えと
mapatomsそのものの例はlist-all-completionでも例が示されてました
もっとinfoをよく読むべきでした、すいません
ヒントありがとうございます、結局lread.cまで見ました
obarrayの各要素が先頭になるユーザから見えないリストがあって
シンボル全部を参照したければそのリストを渡り歩くmapatomsを使えと
mapatomsそのものの例はlist-all-completionでも例が示されてました
もっとinfoをよく読むべきでした、すいません
>>846
君は全然悪くないよ。むしろよくやってるほう。
君は全然悪くないよ。むしろよくやってるほう。
何か画期的な動きがないとだめなんだよ。
いま Emacs 特化 OS 作ってるから、もうちょっと待ってくれ。
いま Emacs 特化 OS 作ってるから、もうちょっと待ってくれ。
>>849
lispマシーンか?
lispマシーンか?
前へ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 次へ / 要望・削除依頼は掲示板へ / 管理情報はtwitterで / emacs スレッド一覧へ
みんなの評価 : ○類似してるかもしれないスレッド
- Emacs part 27 (1001) - [92%] - 2009/1/23 18:47 ○
- Emacs part 28 (605) - [92%] - 2009/3/25 0:37 ○
- Emacs part 22 (1001) - [92%] - 2008/1/18 7:47 ○
- Emacs part 26 (1001) - [92%] - 2008/11/8 20:47 ○
- Emacs part 23 (1001) - [92%] - 2008/2/8 0:04 ☆
- Emacs Part 35 (1001) - [84%] - 2010/9/19 17:01
- Emacs Part 45 (1001) - [84%] - 2014/6/23 9:45
- Emacs part24 (991) - [84%] - 2008/5/10 5:08 ○
- Emacs Part 34 (1001) - [76%] - 2010/6/21 19:45 ○
- Emacs Part 53 (989) - [76%] - 2022/12/5 12:45
- Emacs Part 40 (1001) - [76%] - 2012/9/7 0:30
- Emacs Part 32 (1001) - [76%] - 2009/12/20 2:04 ○
- Emacs Part 41 (1001) - [76%] - 2012/12/24 4:15
トップメニューへ / →のくす牧場書庫について