Navi2ch for Emacs (Part 12)
■ このスレッドは過去ログ倉庫に格納されています
0374名無しさん@お腹いっぱい。
NGNG--- navi2ch-board.el.orig2004-03-24 16:06:34.000000000 +0900
+++ navi2ch-board.el2004-03-24 17:34:35.000000000 +0900
@@ -341,6 +341,16 @@
(- (string-to-number res) read)))
-5)
" -")))
+ (and navi2ch-board-insert-subject-with-rpd
+ (let ((rpd (* (/ (string-to-number res)
+ (- (float-time)
+ (string-to-number artid)))
+60 60 24)))
+ (concat
+ "/"
+ (if (> rpd 100000) "99999.99" ; over 100000res/day
+ (substring
+(format " %01.2f" rpd) -8)))))
")"))
(cond ((and navi2ch-board-check-updated-article-p
(setq updated
■ このスレッドは過去ログ倉庫に格納されています