>>499
おいどんも、コードを貼ってくれることを
希望するでごわす。

>>499
高校二年女子です。
わたしからもお願いします。

しかたないにゃあ・・・

gccのバージョンによって設定を場合分けしたくてこのように書いたんですが
全て"4"と出力されてしまいます
どこが間違っているのでしょうか

(setq debian-x86-64 "")
(setq ubuntu-x86-64 "")
(setq g++ver (shell-command-to-string "g++ -v"))

(defun case-test (value)
(case value
(debian-x86-64 "1")
(ubuntu-x84-64 "2")
(g++ver "3")
(t "4")))

(message (case-test debian-x86-64))
(message (case-test (shell-command-to-string "g++ -v")))
(message (case-test "sklfj"))

caseを使ってるとこが

ミニバッファまわりのキーバインドってなんでああも治外法権状態なん？
「お前のglobal-mapなんぞ知るかボケェ！」な奴多すぎだろ

>>504
高校二年女子です。

まずは、case-test関数をedebug-defunして、ご自分のされていることを確認されたほうがよろしいかと思います。
それと、'g++ -v'そのままではなく、regexで引っ掛ける等しないと、このままではどうしようもないかと。

g++ -vよりg++ --versionの方が一行目にバージョンが来るからいじりやすいと思う

>>507
501のエセ薩摩人です。

499氏がコードを貼り付けなかったら
おいどんと付き合ってください。

>>504
>>505が言っているようにcondを使えばよろし
そういう形で分岐したいならこうかな

(defmacro cond-case (value &rest body)
(lexical-let* ((cand (gensym))
(result (gensym)))
`(loop for (cand result) in (quote ,body)
do (when (and (symbolp cand)
(or (equal (symbol-value cand) ,value)
(equal (symbol-value cand) t)))
(return result)))))

(defun case-test2 (value)
(cond-case value
(debian-x86-64 "1")
(ubuntu-x86-64 "2")
(g++ver "3")
(t "4")))

(message (case-test2 debian-x86-64))
(message (case-test2 (shell-command-to-string "g++ -v")))
(message (case-test2 "sklfj"))

>>509
47歳男子です。
ありがとうございます。今後ともどうぞよろしくお願い致します。

>>510
マクロのパワーを見せつけられました。

中2女子の私がこのような達人級のコードを書けるようになるには、何をすればよろしいのでしょうか？
まず服を脱ぐのは無しの方向で、お願いします。

まずスク水を着ます

服は着たままスク水着るのか

ありがとうございます
emacs lisp勉強します

512に　emacs
のヘルプのここを見ろというレスは付かないのかな?

>>512

Emacs というより、まずはこんなのかな。

http://www.aoky.net/articles/paul_graham/int.htm

>>512

エセ薩摩人です。
>まず服を脱ぐのは無しの方向で、お願いします。
では、お口でお願いし ... (/ω＼)ｲﾔﾝ

ところで本題だが EmacsLisp に限ったことではないが
プログラミングの上達のコツは
　a.自分が欲しい機能をリファレンスを読みながらでも作成してみる
　b.他人が書いたコードを読む（初めは少々短めがお勧め）
あたりかな。

>>516
http://www.emacswiki.org/emacs/EmacsLisp%E3%83%AA%E3%83%95%E3%82%A1%E3%83%AC%E3%83%B3%E3%82%B9

Webカメラがクラックされると簡易的な地獄が顕現しそうなスレだ

(defun util-encode-region-utf8 ()
(interactive)
(save-excursion
(let ((beg (region-beginning))
(end (region-end)))
(end-of-line)
(insert "\nstatic const char data[] = {\n\t")
(mapc #'(lambda (x) (insert (format "0x%02x, " x)))
(encode-coding-region beg end 'utf-8 t))
(insert "0x00\n};"))))

>>520
わーいありがとう！
姉も喜んでます

>>520
わーいありがとう！
おいどんのチン●も喜んでます

エセ薩摩人さん、ついにコテハン化ｗ

>>522
簡潔に書き直せば、こんな感じになりそうだね。

(defun util-encode-region-utf8 (b e)
(interactive "r")
(save-excursion
(let ((s (concat (buffer-substring b e) "\0")))
(end-of-line)
(insert
"\nstatic const char data[] = {\n\t"
(mapconcat #'(lambda (x) (format "0x%02x" x))
(encode-coding-string s 'utf-8)
", ")
"\n};"))))

>>522 でなくて >>520 だったよw
>>520->>522 で笑って、手元が狂ってしまったよw

>>520
おおきに

>>504
>>510はおかしいところがいくつかあったので修正するよ　ついでにもうちょっと汎用的にしてみた
(require 'cl)
;;http://www.gigamonkeys.com/book/macros-defining-your-own.html
(defmacro with-gensyms (names &rest body)
`(let ,(loop for n in names collect `(,n (gensym)))
,@body))

(defmacro cond-case (value &rest body)
(with-gensyms (cand result x)
`(loop for (cand result) in (quote ,body)
when (symbolp cand) for x = (symbol-value cand)
else for x = cand
when (member x `(,value t))
return result)))

(defun case-test2 (value)
(cond-case value
(123 "aaa")
("hoge" "bbb")
(debian-x86-64 "1")
(ubuntu-x86-64 "2")
(g++ver "3")
(t "4")))

(message (case-test2 123))
(message (case-test2 "hoge"))
(message (case-test2 debian-x86-64))
(message (case-test2 (shell-command-to-string "g++ -v")))
(message (case-test2 "sklfj"))

>>512 defmacroはon lispが、loopマクロはland of lispがわかりやすいよ emacs lispレファレンスだけだど慣れるまで時間がかかるかも

loop の中身がLISPに見えない件ｗ

>>528
Boost Spirit も似ている気がする。
言語仕様を上手く使って別言語の世界を作り出している。

Loop言語はマスターするとElispが非常に短くかけるし、
マクロなんでバイトコンパイルすれば速度処理もない。

Spiritはコンパイルするのがイヤになる

>>529
>Loop言語は

！！！
loop はDSLだと思えばよかったのですね。その発想はなかったです。

loop 好きだけどアンチも多いらしい

デバッグが必要になった場合の手間考えると、展開結果が複雑になるようなマ
クロは使わない方が得策だと思う。

そのマクロが正しく動くことが保証されてたら大丈夫じゃない?

Emacs でマクロ否定って Emacs を否定してるようなもんじゃん。
Editor MACroS なめんなよ。

elispのloopマクロで面白いものがあれば知りたい

>>535
マクロ違い

これの6章にediting macrosについて書いてある
http://haleakala-avenue.style.coocan.jp/lealea/

>>536
Common lispのloopマクロをelispで動くようにしたものなんだよね
Land of Lisp 10章のLoopマクロ周期表がおすすめ

ANSI Common Lisp によるとだな
規格でも loop は定義しきれてないってさ
実際 sbcl で動く loop が clisp でコケたりする

http://orgmode.org/worg/exporters/ox-overview.html
ここにあるox-texinfoを使って.org->.texiに、
さらにtexi2htmlで.texi->.htmlに変換したら
元の.orgで#+authorで設定していたその設定が失われてしまうようで
This document was generated by *PC-name\user-name* on October 1, 2013 using texi2html 1.82
となってしまいます
.org->.htmlであれば問題なくauthor情報が引き継がれているのですが、どうすれば引き継げるのでしょうか

orgファイルはこう書いています
#+TITLE: Org-mode test
#+AUTHOR: test-name

* hello

- world

>>541
> This document was generated by *PC-name\user-name* on October 1, 2013 using texi2html 1.82

それで正しいのだと思うが

>>538
こんなのがあったとは。
RMS信者の私はただいま絶賛感動中です。

>>504
なんだかすごいことになっているような気もするが
君がやりたいことへの最短距離は cond を使うことだと思うぞ

サルでも完全理解loopマクロ講座を誰か書いてくれ

case に関連して、

http://wisdom.sakura.ne.jp/programming/lisp/clisp11.html

ここの最後、

「記号を直接指定すると、記号が評価されてしまうということに注意しなけれ
ばなりません。そのため、リストに記号を指定するか、quote や ' によって明
示的に記号型の値そのものを与えなければならないのです。」

って本当ですか？誰か common lisp に詳しい人教えて。

記号tやnilは直接指定すると
tはotherwiseにnilは空リストに解釈されてしまうから、
tやnilと直接比較したい場合には
クォートするかリストにいれる必要があるよって意味じゃないの？
tやnilじゃなければシンボルは評価されないと思うけどね

>>545
Common Lisp loop でぐぐればいろいろある

まったく、いつになったらEmacsは縦書に対応してくれるのか！
Emacs18 の頃から待ってるのに。ぷんぷん！

縦書きelispってあったような。