2001.11.24

1: ChangeLog

2: インデックス

emacs-wiki.el の emacs-wiki-generate-index() を下記のように変更。

     (with-current-buffer (get-buffer-create "*Wiki Index*")

       (if project

          (emacs-wiki-change-project project))

       (let ((files (sort (copy-alist (emacs-wiki-file-alist))

-                        (function

-                         (lambda (l r)

-                           (string-lessp (car l) (car r))))))

+                        (lambda (l r)

+                          (let ((left-timestamp

+                                 (nth 5 (file-attributes (cdr l))))

+                                (right-timestamp

+                                 (nth 5 (file-attributes (cdr r)))))

+                            (if (= (car left-timestamp) (car right-timestamp))

+                                (> (cadr left-timestamp) (cadr right-timestamp))

+                              (> (car left-timestamp) (car right-timestamp)))))))

            file)

        (while files

          (unless (and exclude-private

                       (emacs-wiki-private-p (caar files)))

-           (insert (if as-list "- " "") "[[" (caar files) "]]\n"))

+           (insert (if as-list "- " "") "[[" (caar files) "]] "

+                   (format-time-string "%Y-%m-%d %T" (nth 5 (file-attributes (cdar files))))

+                   "\n"))

          (setq files (cdr files))))

       (current-buffer))))

まだ大小判定がちょっとおかしいかも知れない…。

3: emacs-wiki-prettify-changelogs

4: いやな日記

と思ったら、あり？ こっちのURL だと普通ですね。

なぜに？