[[About:self:AboutPage.txt]] | [[Profile:http://iddy.jp/profile/southly/]] | [[まとめ:self:1163859357.txt]] | [[オリジナル:http://ninjinix.x0.com/rn/]] | [[xyzzy:http://raido.sakura.ne.jp/southly/xyzzy/site-lisp/]] | [[あんてな:http://i-know.jp/southly/listall]] | [[■:http://raido.sakura.ne.jp/southly/lisp/ni/view.lisp]] | [[buzz:http://www.google.com/profiles/southly#buzz]]

RandomNote投稿lisp。
refwikiのPOST用も作ってみたり。公開はしないけど。
[[(ReadMore...) index.rb?1148233294.txt]]

使ってみた感じだとこっちのほうがよさそう。

(in-package "editor")
; from $XYZZY/lisp/textmode.l
(defun center-line (&optional (arg 1))
  (interactive "*p")
  (center-region (progn (goto-bol) (point))
                 (progn
                   (forward-line arg)
                   (point))))

同じ感じでこういうのも。

(defun fill-line (&optional (arg 1))
  (interactive "*p")
  (fill-region (progn (goto-bol) (point))
               (progn (forward-line arg) (point))))

[[(ReadMore...) index.rb?1143172853.txt]]

とりあえず基礎部分。
もう少し作りこみたいところ。
[[(ReadMore...) index.rb?1143124229.txt]]

http://d.hatena.ne.jp/takef/20060320/1142829588

find-fileでバッファを作っても保存するまではファイルができないから、こんな感じでもよさそう。

(defvar *hatedara-directory* "~/hatena")
(defun hatedara ()
  (interactive)
  (find-file (merge-pathnames *hatedara-directory* (format-date-string "%Y-%m-%d.txt"))))