change log
@@@ 1160454264.txt @@@ Scrapbook : naoya_t:ポール・グレアムのエッセイと和訳一覧 http://www.shiro.dreamhost.com/scheme/wiliki/wiliki.cgi?naoya_t%3a%e3%83%9d%e3%83%bc%e3%83%ab%e3%83%bb%e3%82%b0%e3%83%ac%e3%82%a2%e3%83%a0%e3%81%ae%e3%82%a8%e3%83%83%e3%82%bb%e3%82%a4%e3%81%a8%e5%92%8c%e8%a8%b3%e4%b8%80%e8%a6%a72006-10-10 (Tue) 15:42:29
@@@ 1160098723.txt @@@ Scrapbook : Google Code Search http://www.google.com/codesearch [[xyzzy:http://www.google.com/codesearch?q=show:ulfI7QTNxgQ:NMfVLjilfSk&sa=N&ct=rdl&cs_p=http://www.jsdlab.co.jp/~kamei/(T%255ET)/src-0.2.2.234.tar.bz2&cs_f=/xyzzy]]もあった。2006-10-07 (Sat) 17:29:52
@@@ 1160098723.txt @@@ Scrapbook : Google Code Search http://www.google.com/codesearch2006-10-06 (Fri) 18:15:20
@@@ 1152849021.txt @@@ xyzzy lisp : format ~& -現在の桁が0になるように改行を出力(すでに0ならなにもしない) -パラメータは最大1つ --Nが与えられたら通常の動作1回、その後 (N-1) 個の改行を出力 (format nil "~&") "" (format nil "xyzzy~&") "xyzzy " (format nil "~2&") " " (format nil "xyzzy~3&") "xyzzy "2006-10-04 (Wed) 01:06:02
@@@ 1152849021.txt @@@ xyzzy lisp : format ~& -現在の桁が0になるように改行を出力(すでに0ならなにもしない) -パラメータは最大1つ --Nが与えられたら通常の動作1回、その後 N-1 つ改行を出力 (format nil "~&") "" (format nil "xyzzy~&") "xyzzy " (format nil "~2&") " " (format nil "xyzzy~3&") "xyzzy "2006-10-04 (Wed) 01:01:32
@@@ 1159501711.txt @@@ xyzzy lisp : format ~[ - 条件にしたがって候補から選択して出力 - ~] で範囲を終了 - ~; で候補の区切り - ~:; でデフォルトの指定 - "[" 整数値によって選択 - ":[" 真偽値により二者択一 - "@[" non-nilのときのみ出力 -パラメータは"["のときのみ1つ --引数の数値よりも優先 (format nil "~[zero~;one~;two~:;many~]" 1) "one" (format nil "~[zero~;one~;two~:;many~]" 10) "many" (format nil "~1[zero~;one~;two~:;many~]" 10) "one" (format nil "~:[false~;true~]" nil) "false" (format nil "~:[false~;true~]" 'true) "true" (format nil "~@[~A~]" nil) "" (format nil "~@[~A~]" 'true) "true" ; こういうこともできるらしい (format nil "~#[zero~;one~;two~:;many~]" 10 10) "two"2006-10-03 (Tue) 23:50:09
@@@ 1159881790.txt @@@ emacsの文字表現 http://snmsts.orz.hm/~sana/wiki/index.php?%C6%FC%B5%AD%A4%C3%A4%DD%A4%AF%2F2006-10-03#k3406f46 すげー同感ッス。 bs.elの移植のとき 「? 」となっているところを見て何故に「?」が単独で? としばらく考え込みました。2006-10-03 (Tue) 22:24:22
@@@ 1159761655.txt @@@ 「入門Common Lisp〜関数型4つの特徴とλ計算」感想 http://book.mycom.co.jp/book/4-8399-2081-8/4-8399-2081-8.shtml -関数型プログラミング言語の入門であってCommon Lispの入門ではない。 -マクロ、関数の引数(&optionalとか&keyとか)、スペシャル変数辺りの解説が無いのはCommon Lispの解説書としてありえない。 -そもそもwhile(p.70)なんてCLtL2には無いし。 -用語や関数の登場とその説明のタイミングが不親切。 -function(#')を説明していないものだから全体的にコードがelispっぽい。 -xyzzyとの差である大文字小文字の区別に言及していないのもダメ。 -lisp-modeにならない拡張子で保存させているところもダメ。 -「8. λ計算」が本題で7章までは全部前置きという印象。2006-10-02 (Mon) 22:11:01
@@@ 1159761655.txt @@@ 「入門Common Lisp〜関数型4つの特徴とλ計算」感想 http://book.mycom.co.jp/book/4-8399-2081-8/4-8399-2081-8.shtml -関数型プログラミング言語の入門であってCommon Lispの入門ではない。 -マクロ、関数の引数、スペシャル変数辺りの解説が無いのはCommon Lispの解説書としてありえない。 -そもそもwhile(p.70)なんてCLtL2には無いし。 -function(#')を説明していないものだから全体的にコードがelispっぽい。 -xyzzyとの差である大文字小文字の区別に言及していないのもダメ。 -lisp-modeにならない拡張子で保存させているところもダメ。 -「8. λ計算」が本題で7章までは全部前置きという印象。2006-10-02 (Mon) 22:06:14
@@@ 1159761655.txt @@@ 「入門Common Lisp〜関数型4つの特徴とλ計算」感想 http://book.mycom.co.jp/book/4-8399-2081-8/4-8399-2081-8.shtml -関数型プログラミング言語の入門であってCommon Lispの入門ではない。 -マクロ、関数の引数、スペシャル変数辺りの解説が無いのはCommon Lispの解説書としてありえない。 -そもそもwhileなんてCLtL2には無いし。 -function(#')を説明していないものだから全体的にコードがelispっぽい。 -xyzzyとの差である大文字小文字の区別に言及していないのもダメ。 -lisp-modeにならない拡張子で保存させているところもダメ。 -「8. λ計算」が本題で7章までは全部前置きという印象。2006-10-02 (Mon) 13:01:38
@@@ 1159501711.txt @@@ xyzzy lisp : format ~[ - 条件指示 - ~] で範囲を終了 - ~; で候補の区切り - ~:; でデフォルトの指定 - "[" 整数値によって選択 - ":[" 真偽値により二者択一 - "@[" non-nilのときのみ出力 -パラメータは"["のときのみ1つ --引数の数値よりも優先 (format nil "~[zero~;one~;two~:;many~]" 1) "one" (format nil "~[zero~;one~;two~:;many~]" 10) "many" (format nil "~1[zero~;one~;two~:;many~]" 10) "one" (format nil "~:[false~;true~]" nil) "false" (format nil "~:[false~;true~]" 'true) "true" (format nil "~@[~A~]" nil) "" (format nil "~@[~A~]" 'true) "true" ; こういうこともできるらしい (format nil "~#[zero~;one~;two~:;many~]" 10 10) "two"2006-09-29 (Fri) 12:49:45
@@@ 1159328961.txt @@@
xyzzy lisp : format ~(
- 大文字・小文字の変換をして出力
- ~) で範囲を終了
- "~(" すべて小文字
- "~:(" 単語の先頭の一文字のみ大文字で後は小文字
- "~@(" 先頭の一文字のみ大文字で後は小文字
- "~:@(" すべて大文字
-パラメータは無し
(format nil "~(~A~)" "hoGe fUga")
"hoge fuga"
(format nil "~:(~A~)" "hoGe fUga")
"Hoge Fuga"
(format nil "~@(~A~)" "hoGe fUga")
"Hoge fuga"
(format nil "~:@(~A~)" "hoGe fUga")
"HOGE FUGA"
2006-09-28 (Thu) 12:20:27@@@ 1159117033.txt @@@
xyzzy lisp : reopen-file
まだ試していない。
(defun reopen-file (filename &optional encoding nomsg)
(interactive "fReopen file: \n0zEncoding: " :title0 "Reopen file")
(let ((*expected-fileio-encoding* (or encoding *expected-fileio-encoding*)))
(declare (special *expected-fileio-encoding*))
(when buffer-read-only
(error "書き込み禁止バッファです"))
(setq filename (namestring filename))
(when (special-file-p filename)
(error "~aはデバイスファイルです" filename))
(when (file-directory-p filename)
(error "~aはディレクトリです" filename))
(unless (and (valid-path-p filename)
(file-exist-p filename))
(error "~a\nファイルまたはディレクトリが見つかりません" filename))
(when (and (need-buffer-save-p (selected-buffer))
(not (no-or-yes-p "バッファが変更されています。変更内容を破棄しますか?")))
(return-from read-file nil))
(save-restriction
(widen)
(delete-region 0 (buffer-size))
(or nomsg
(message "Reading file..."))
(multiple-value-bind (nlines noerror)
(insert-file-contents filename t)
(unless noerror
(warn "~a\nメモリが足りなくてすべて読み込めませんでした" filename)
(set-buffer-truncated-p t))
(or nomsg
(message "~d行読み込みました" nlines))
nlines)
)))
(defun revert-buffer-reopen ()
(let ((opoint (point)))
(or (file-visited-p)
(error "ファイル名がありません。"))
(when (let ((buffer-read-only nil))
(declare (special buffer-read-only))
(let* ((filename (get-buffer-file-name))
(nlines (reopen-file filename)))
(find-file-lock-file)
(find-file-notice filename nlines nil))
buffer-read-only)
(setq buffer-read-only t))
(goto-char opoint)))
(setq-default revert-buffer-function #'revert-buffer-reopen)
2006-09-25 (Mon) 12:29:05@@@ 1159117033.txt @@@
xyzzy lisp : reopen-file
(defun reopen-file (filename &optional encoding nomsg)
(interactive "fReopen file: \n0zEncoding: " :title0 "Reopen file")
(let ((*expected-fileio-encoding* (or encoding *expected-fileio-encoding*)))
(declare (special *expected-fileio-encoding*))
(when buffer-read-only
(error "書き込み禁止バッファです"))
(setq filename (namestring filename))
(when (special-file-p filename)
(error "~aはデバイスファイルです" filename))
(when (file-directory-p filename)
(error "~aはディレクトリです" filename))
(unless (and (valid-path-p filename)
(file-exist-p filename))
(error "~a\nファイルまたはディレクトリが見つかりません" filename))
(when (and (need-buffer-save-p (selected-buffer))
(not (no-or-yes-p "バッファが変更されています。変更内容を破棄しますか?")))
(return-from read-file nil))
(save-restriction
(widen)
(delete-region 0 (buffer-size))
(or nomsg
(message "Reading file..."))
(multiple-value-bind (nlines noerror)
(insert-file-contents filename t)
(unless noerror
(warn "~a\nメモリが足りなくてすべて読み込めませんでした" filename)
(set-buffer-truncated-p t))
(or nomsg
(message "~d行読み込みました" nlines))
nlines)
)))
(defun revert-buffer-reopen ()
(let ((opoint (point)))
(or (file-visited-p)
(error "ファイル名がありません。"))
(when (let ((buffer-read-only nil))
(declare (special buffer-read-only))
(let* ((filename (get-buffer-file-name))
(nlines (reopen-file filename)))
(find-file-lock-file)
(find-file-notice filename nlines nil))
buffer-read-only)
(setq buffer-read-only t))
(goto-char opoint)))
(setq-default revert-buffer-function #'revert-buffer-reopen)
2006-09-25 (Mon) 01:57:42@@@ 1158684505.txt @@@ xyzzy lisp : Buffer selection http://www.geekware.de/software/emacs/#bs の移植をしてみました。 http://raido.sakura.ne.jp/southly/xyzzy/site-lisp/bs-20060920.lzh 元の動作は知らないのですが、八割程度は動いているような気がします。 気が向いたときにでもNetInstaller用のパッケージにします。2006-09-21 (Thu) 03:20:14
Source of Nothingness
NANRI
NANRI