なんだかんだ

delicious.l

こうかな？

--- delicious.l.1~      2006-05-18 18:05:18.265625000 +0900
+++ delicious.l 2006-05-18 18:12:30.765625000 +0900
@@ -136,7 +136,7 @@
     (:use "lisp" "editor")))

 (require "xml-parser-modoki")
-(require "junk/lib")
+(require "junk/http")

 (provide "delicious")

Kamail3で正規表現が使えたり使えなかったり

本文を正規表現で検索するときは、"/" じゃなくて "?" で [RX] 使って。

2ch-modeのパッチ

ていうか、「誰かメンテナンス引き継ぎません？」て感じかも。まじめに普及に努めれば、●のフィーでウハウハになるかもよ？

第三回xyzzyオフ会

NANRIさん、皆さんお疲れ様でした。

今回はあまり宿題をもらってこなかったような気がする。要望は頂いたような気がするけどまぁ酒の席だし、とか。

とりあえず、sourceforge使えるようにしとくぐらいはやった方がいいのかも。周辺lispだけでなくて本体のエンハンスを含めといてもいいと思うけど。

パッケージ管理だけど、他のを参考にしようとするとどこかで全体を管理しなくてはいけなくなるんじゃないかと思う。まぁ先の話だけど。

Hyper Estraier 1.2.5

Hyper Estraier 1.2.5 リリース。またまた対応して頂きました。ありがとうございます。

ヘッダーの Date にコメントが入っていたり、曜日が省略されていた時にソートがうまくいっていなかったので対応をお願いしていたり。要 casket 作り直し。

次にやるべき事を思いついていないので、なんとなくP2P機能を試してみたり。面白いので、しばらく遊んでしまいそう。

Hyper Estraier 1.2.4

Hyper Estraier 1.2.4 リリース。またまた対応して頂きました。ありがとうございます。

実は km3::he-dump して km3:he-restore した後にメールを削除しても casket から消えない問題が発生したりしてたので、その対応をお願いしていたり。

一度でも上記の手順で casket を作り直していた人向けのへなちょこな修正用。km3:he-dump してから km3:he-restore する前に実行。

(defun url2lpath ()
  (let (uri
        lpath)
    (save-excursion
      (goto-char (point-min))
      (when (scan-buffer "^@uri=\\([^\n]+\\)$" :regexp t)
        (setq uri (match-string 1))
        (when (scan-buffer "^_lpath=\\([^\n]+\\)$" :regexp t)
          (setq lpath (match-string 1))
          (goto-char (match-beginning 1))
          (unless (string= uri lpath)
            (insert uri)
            (delete-region (point)
                           (progn
                             (goto-eol)
                             (point)))
            t))))))

(defun he-modify-draft-lpath ()
  (interactive)
  (let ((bufout "*result*")
        sout
        (buftmp "*temp*")
        (cnt 0))
    (set-buffer (get-buffer-create bufout))
    (erase-buffer (selected-buffer))
    (setq sout (make-buffer-stream (selected-buffer)))
    (set-buffer (get-buffer-create buftmp))
    (dolist (file (directory *he-dump-directory*
                             :file-only t
                             :absolute t))
      (let (res)
        (incf cnt)
        (erase-buffer (selected-buffer))
        (insert-file-contents file)
        (when (setq res (url2lpath))
          (write-region (point-min)
                        (point-max)
                        file
                        nil
                        *encoding-utf8n*
                        *eol-lf*))
        (format sout "~S\t~A~%"
                res
                file)
        (when (= (mod cnt 1000) 0)
          (message "~D ..." cnt))
        (do-events)))
    (delete-buffer buftmp)
    (set-buffer bufout)
    (message "~D ... done." cnt)))