レス数が1000を超えています。残念ながら全部は表示しません。

Navi2ch for Emacs (part 6)

146 ：名無しさん＠お腹いっぱい。 ：02/06/24 22:38

スレ一覧でスレが立った日時を知りたかったので init.el に書いてみました。
(defvar my-navi2ch-board-thread-created-time-format
"%Y-%m-%d %T")

;;; from hnf-mode (hnf-moed.el)
(defun my-navi2ch-time-float (num)
(let* ((most-time (floor num 65536))
(least-time (floor (- num (* 65536.0 most-time)))))
(list most-time least-time 0)))

(defun my-navi2ch-bm-thread-created-time ()
(my-navi2ch-time-float
(string-to-number
(cdr (assq 'artid
(navi2ch-bm-get-article-internal
(navi2ch-bm-get-property-internal (point))))))))

(defun my-navi2ch-board-thread-created-time ()
(interactive)
(message
(format-time-string
my-navi2ch-board-thread-created-time-format
(my-navi2ch-bm-thread-created-time))))

(add-hook 'navi2ch-hook
(lambda ()
(define-key navi2ch-board-mode-map
"T" 'my-navi2ch-board-thread-created-time)))

read.cgi ver5.26+ (01/10/21-)