change log
bookmark : FreeBSD http://www.ksknet.net/freebsd/index.html2006-02-16 (Thu) 12:57:17
bookmark : アプリケーションの導入 http://iris.homeunix.net/yayoi/freebsd/basic/apli.asp2006-02-16 (Thu) 12:57:03
xyzzy lisp : outline-treeの表示順にnext-bufferとか
(in-package "outline-tree2")
(global-set-key #\C-PageUp #'(lambda ()
(interactive)
(outline-tree-previous-buffer)
(outline-tree-select-node-by-buffer (selected-buffer))))
(global-set-key #\C-PageDown #'(lambda ()
(interactive)
(outline-tree-next-buffer)
(outline-tree-select-node-by-buffer (selected-buffer))))
outline-treeをバッファバーの代わりにしているから、その見た目どおりに移動したい、
ということで、マウスに触る機会を減らすために。
outline-treeは規模が大きいからなかなか読めない(^^;
2006-02-15 (Wed) 21:01:01xyzzy lisp : outline-treeの表示順にnext-bufferとか
(in-package "outline-tree2")
(global-set-key #\C-PageUp #'(lambda ()
(interactive)
(outline-tree-previous-buffer)
(outline-tree-select-node-by-buffer (selected-buffer))))
(global-set-key #\C-PageDown #'(lambda ()
(interactive)
(outline-tree-next-buffer)
(outline-tree-select-node-by-buffer (selected-buffer))))
outline-treeをバッファバーの代わりにしているから、その見た目どおりに移動したい、
ということで、マウスに触る機会を減らすために。
outline-treeは規模が大きいからなかなか読めない(^^;
2006-02-15 (Wed) 21:00:53xyzzy lisp : outline-treeの表示順にnext-bufferとか
(in-package "outline-tree2")
(global-set-key #\C-PageUp #'(lambda ()
(interactive)
(outline-tree-previous-buffer)
(outline-tree-select-node-by-buffer (selected-buffer))))
(global-set-key #\C-PageDown #'(lambda ()
(interactive)
(outline-tree-next-buffer)
(outline-tree-select-node-by-buffer (selected-buffer))))
outline-treeをバッファバーの代わりにしているから、その見た目どおりに移動したい、
ということで、マウスに触る機会を減らすために。
outline-treeは規模が大きいからなかなか読めない(^^;
2006-02-15 (Wed) 21:00:07xyzzy lisp :
(in-package "outline-tree2")
(global-set-key #\C-PageUp #'(lambda ()
(interactive)
(outline-tree-previous-buffer)
(outline-tree-select-node-by-buffer (selected-buffer))))
(global-set-key #\C-PageDown #'(lambda ()
(interactive)
(outline-tree-next-buffer)
(outline-tree-select-node-by-buffer (selected-buffer))))
2006-02-15 (Wed) 19:42:39bookmark : clmemo@aka: Firefox のブックマーク・ツールバーをファビコンでスマートに http://at-aka.blogspot.com/2006/01/firefox_25.html 要するにbookmark.shtmlの中に画像データが埋め込んである。2006-02-15 (Wed) 12:28:42
2006-02-13 RandomNoteをソーシャルブックマーク的に使えるように改造。 RubyはRubyで頭の使い方が微妙に違う気がする。 リファレンスの読み方は慣れの問題かな。 javaの方が見やすいような気がするけど。2006-02-13 (Mon) 00:48:49
06-02-13 RandomNoteをソーシャルブックマーク的に使えるように改造。 RubyはRubyで頭の使い方が微妙に違う気がする。 リファレンスの読み方は慣れの問題かな。 javaの方が見やすいような気がするけど。2006-02-13 (Mon) 00:47:59
bookmark : 食玩問題 http://aquarius10.cse.kyutech.ac.jp/~otabe/shokugan/2006-02-10 (Fri) 23:08:59
2006-02-09
;;; RandomNote投稿
(require "junk/http")
(in-package "junk")
(defvar *rn-url* "http://raido.sakura.ne.jp/southly/rn/index.rb")
(defun rn-post (url str)
(let (http)
(multiple-value-bind (proto host file anchor port)
(junk-http-url-study url)
(unless (string= proto "http")
(junk-error "Protocol is not http: ~A" url))
(setq http (junk-http-request-send host file "POST" :data (format nil "cmd=edit_do&fname=&mes=~A" (si:www-url-encode str nil "0-9A-Za-z")))))
; 結果確認するか?
(close http)))
(defun user::rn-post-region (beg end)
(interactive "r")
(rn-post *rn-url* (buffer-substring beg end)))
ということでできたRandomNote投稿Lisp。
xyzzyからM-x rn-post-regionで投稿します。
編集とか削除はしない方針なので作る予定はありません。
2006-02-09 (Thu) 23:24:112006-02-09
;;; RandomNote投稿
(require "junk/http")
(in-package "junk")
(defvar *rn-url* "http://raido.sakura.ne.jp/southly/rn/index.rb")
(defun rn-post (url str)
(let (http)
(multiple-value-bind (proto host file anchor port)
(junk-http-url-study url)
(unless (string= proto "http")
(junk-error "Protocol is not http: ~A" url))
(setq http (junk-http-request-send host file "POST" :data (format nil "cmd=edit_do&fname=&mes=~A" (si:www-url-encode str nil "0-9A-Za-z")))))
; 結果確認するか?
(close http)))
(defun user::rn-post-region (beg end)
(interactive "r")
(rn-post *rn-url* (buffer-substring beg end)))
ということでできたRandomNote投稿Lisp。
xyzzyからrn-post-regionで投稿します。
編集とか削除はしない方針なので作る予定はありません。
2006-02-09 (Thu) 21:58:372006-02-09
;;; RandomNote投稿
(require "junk/http")
(in-package "junk")
(defvar *rn-url* "http://raido.sakura.ne.jp/southly/rn/index.rb")
(defun rn-post (url str)
(let (http)
(multiple-value-bind (proto host file anchor port)
(junk-http-url-study url)
(unless (string= proto "http")
(junk-error "Protocol is not http: ~A" url))
(setq http (junk-http-request-send host file "POST" :data (format nil "cmd=edit_do&fname=&mes=~A" (si:www-url-encode str nil "0-9A-Za-z")))))
; 結果確認するか?
(close http)))
(defun user::rn-post-region (beg end)
(interactive "r")
(rn-post *rn-url* (buffer-substring beg end)))
2006-02-09 (Thu) 21:58:17 ;;; RandomNote投稿
(require "junk/http")
(in-package "junk")
(defvar *rn-url* "http://raido.sakura.ne.jp/southly/rn/index.rb")
(defun rn-post (url str)
(let (http)
(multiple-value-bind (proto host file anchor port)
(junk-http-url-study url)
(unless (string= proto "http")
(junk-error "Protocol is not http: ~A" url))
(setq http (junk-http-request-send host file "POST" :data (format nil "cmd=edit_do&fname=&mes=~A" (si:www-url-encode str nil "0-9A-Za-z")))))
; 結果確認するか?
(close http)))
(defun user::rn-post-region (beg end)
(interactive "r")
(rn-post *rn-url* (buffer-substring beg end)))
2006-02-09 (Thu) 21:55:28あああああああああああああああああああああああああ あああああああああああああああああああああああああ2006-02-09 (Thu) 21:23:09
Source of Nothingness
NANRI
NANRI