memo :
キー操作でemacsのメニューにアクセス
> <f10> tmm-menubar
ついでなのでlisp-modeのキーバインド
>key binding
>--- -------
>
>C-x C-e lisp-eval-last-sexp
>
>C-c C-v lisp-show-variable-documentation
>C-c C-f lisp-show-function-documentation
>C-c C-d lisp-describe-sym
>C-c C-a lisp-show-arglist
>C-c C-k lisp-compile-file
>C-c C-l lisp-load-file
>C-c C-c lisp-compile-defun
>C-c C-r lisp-eval-region
>C-c C-e lisp-eval-defun
>C-c C-z switch-to-lisp
>
>ESC C-x lisp-eval-defun
>ESC C-q indent-sexp
clispのarglistの表示はそっけなくて不便。
ほんとにarg0, arg1, ... なんて使ってるの?
2006-03-05 (Sun) 05:32:26
memo :
キー操作でemacsのメニューにアクセス
> <f10> tmm-menubar
ついでなのでlisp-modeのキーバインド
>>
key binding
--- -------
C-x C-e lisp-eval-last-sexp
C-c C-v lisp-show-variable-documentation
C-c C-f lisp-show-function-documentation
C-c C-d lisp-describe-sym
C-c C-a lisp-show-arglist
C-c C-k lisp-compile-file
C-c C-l lisp-load-file
C-c C-c lisp-compile-defun
C-c C-r lisp-eval-region
C-c C-e lisp-eval-defun
C-c C-z switch-to-lisp
ESC C-x lisp-eval-defun
ESC C-q indent-sexp
<<
clispのarglistの表示はそっけなくて不便。
ほんとにarg0, arg1, ... なんて使ってるの?
2006-03-05 (Sun) 05:32:06
memo :
キー操作でemacsのメニューにアクセス
>> <f10> tmm-menubar
ついでなのでlisp-modeのキーバインド
>>
key binding
--- -------
C-x C-e lisp-eval-last-sexp
C-c C-v lisp-show-variable-documentation
C-c C-f lisp-show-function-documentation
C-c C-d lisp-describe-sym
C-c C-a lisp-show-arglist
C-c C-k lisp-compile-file
C-c C-l lisp-load-file
C-c C-c lisp-compile-defun
C-c C-r lisp-eval-region
C-c C-e lisp-eval-defun
C-c C-z switch-to-lisp
ESC C-x lisp-eval-defun
ESC C-q indent-sexp
<<
clispのarglistの表示はそっけなくて不便。
ほんとにarg0, arg1, ... なんて使ってるの?
2006-03-05 (Sun) 05:30:55
xyzzy topic : den8view+.l (きまぐれにxyzzy)
http://members3.jcom.home.ne.jp/2116826401/den8view+.html
電八使いではないのでよく分かりませんが、いろいろと機能追加されているようですね。
2006-03-05 (Sun) 03:55:09
xyzzy topic : den8view+.l
http://members3.jcom.home.ne.jp/2116826401/den8view+.html
2006-03-04 (Sat) 23:27:13
clispでcgi
URIのデコード・エンコードが一応完成。
感想メモ
・whileが無くてびっくり
・xyzzy lispとの微妙な差が気になる
・(alphanumericp #\あ) => T ってなんだよ!?
----
(defmacro while (test &body body)
`(do ()
((not ,test))
,@body))
(defun uri-unreserved-char-p (c)
(find c "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz-._~"))
(defun uri-encode (str &optional (enc charset:utf-8))
(with-output-to-string (s)
(with-input-from-string (in str)
(let (c)
(while (setf c (read-char in nil))
(cond ((uri-unreserved-char-p c)
(format s "~C" c))
((char= c #\Space)
(format s "~C" #\+))
(t
(format s "~{~A~}"
(map 'list
#'(lambda (x)
(format nil "%~2,'0x" x))
(ext:convert-string-to-bytes (string c) enc))))))
)
)
))
(defun uri-decode (str &optional (enc charset:utf-8))
(let ((l nil) c c1 c2)
(with-input-from-string (in str)
(while (setq c (read-char in nil))
(if (char= c #\+) (setf c #\Space))
(cond ((char/= c #\%)
(dolist (x (coerce (ext:convert-string-to-bytes (string c) enc) 'list))
(push x l)))
(t
(and (setf c1 (read-char in nil))
(setf c2 (read-char in nil))
(push (parse-integer (format nil "~C~C" c1 c2) :radix 16) l))))))
(ext:convert-string-from-bytes (make-array (length l) :initial-contents (reverse l)) enc)))
----
(loop while 条件式
do 実行式)
なのでなくてもいいような
----
ごもっとも。
ですが、当方はloopマクロになじみがありませんでしたので(^^;
2006-03-04 (Sat) 22:47:41
RandomNote : ChangeLog (改造記録)
-2006-03-03 : へなちょこspam対策 第一弾
-2006-03-03 : 下部にもページリンクを設置
-2006-02-28 : refererの表示をカウント2以上に
-2006-02-28 : 特定leafへのリンクに別名をつける
-2006-02-28 : こまごまとしたこと
-2006-02-22 : コメント欄 (飾り)
-2006-02-22 : RSS周り (RSS auto-discovery & HTTP応答ヘッダ)
-2006-02-19 : NOT検索 (へなちょこ)
-2006-02-13 : ブックマーク
→[[Todo self:1140534666.txt]]
2006-03-04 (Sat) 02:30:56
RandomNote : ChangeLog (改造記録)
-2006-03-03 : へなちょこspam対策 第一弾
-2006-03-03 : 下部にもページリンクを設置
-2006-02-28 : refererの表示をカウント2以上に
-2006-02-28 : 特定leafへのリンクに別名をつける
-2006-02-28 : こまごまとしたこと
-2006-02-22 : コメント欄 (飾り)
-2006-02-22 : RSS周り (RSS auto-discovery & HTTP応答ヘッダ)
-2006-02-19 : NOT検索 (へなちょこ)
-2006-02-13 : ブックマーク
上が最近
→[[Todo self:1140534666.txt]]
2006-03-04 (Sat) 02:30:10
RandomNote : ChangeLog (改造記録)
-へなちょこspam対策 第一弾
-下部にもページリンクを設置
-refererの表示をカウント2以上に
-特定leafへのリンクに別名をつける
-こまごまとしたこと
-コメント欄 (飾り)
-RSS周り (RSS auto-discovery & HTTP応答ヘッダ)
-NOT検索 (へなちょこ)
-ブックマーク
上が最近
→[[Todo self:1140534666.txt]]
2006-03-04 (Sat) 02:30:00
RandomNote : ChangeLog(改造記録)
-へなちょこspam対策 第一弾
-下部にもページリンクを設置
-refererの表示をカウント2以上に
-特定leafへのリンクに別名をつける
-こまごまとしたこと
-コメント欄 (飾り)
-RSS周り (RSS auto-discovery & HTTP応答ヘッダ)
-NOT検索 (へなちょこ)
-ブックマーク
上が最近
→[[Todo self:1140534666.txt]]
2006-03-04 (Sat) 01:54:46
RandomNote : ChangeLog
-へなちょこspam対策 第一弾
-下部にもページリンクを設置
-refererの表示をカウント2以上に
-特定leafへのリンクに別名をつける
-こまごまとしたこと
-コメント欄 (飾り)
-RSS周り (RSS auto-discovery & HTTP応答ヘッダ)
-NOT検索 (へなちょこ)
-ブックマーク
上が最近
→[[Todo self:1140534666.txt]]
2006-03-04 (Sat) 01:54:19
RandomNote : ChangeLog
-下部にもページリンクを設置
-refererの表示をカウント2以上に
-特定leafへのリンクに別名をつける
-こまごまとしたこと
-コメント欄 (飾り)
-RSS周り (RSS auto-discovery & HTTP応答ヘッダ)
-NOT検索 (へなちょこ)
-ブックマーク
上が最近
→[[Todo self:1140534666.txt]]
2006-03-04 (Sat) 01:29:01
RandomNote : ChangeLog
-refererの表示をカウント2以上に
-特定leafへのリンクに別名をつける
-こまごまとしたこと
-コメント欄 (飾り)
-RSS周り (RSS auto-discovery & HTTP応答ヘッダ)
-NOT検索 (へなちょこ)
-ブックマーク
上が最近
→[[Todo self:1140534666.txt]]
2006-03-04 (Sat) 00:07:09
RandomNote : Todo
- spam対策
- change_logをもう少し見やすく
- RSSも検索結果に
- 書き込まれたコメントをもう少し分かりやすく
- 時刻検索(並びは降順が欲しい)
- フレーズ検索
- その他なんかある?
→[[ChangeLog self:1141132537.txt]]
2006-03-03 (Fri) 23:21:08
RandomNote : Todo
- spam対策
- RSSも検索結果に
- 書き込まれたコメントをもう少し分かりやすく
- 時刻検索(並びは降順が欲しい)
- フレーズ検索
- その他なんかある?
→[[ChangeLog self:1141132537.txt]]
2006-03-03 (Fri) 23:13:55