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

navi2ch for emacs (part 4)

88 ：名無しさん＠お腹いっぱい。 ：02/01/06 01:49

sourceforge 登録おめでとうございます。最近、顔文字板に
よく行くので init.el に、こんなの書いてみました。

(defun navi2ch-article-view-aa-with-popup-article (prefix)
"AA を popup-article で見てみる C-u で stack - message"
(interactive "P")
(navi2ch-popup-article-stack-current-message prefix)
(navi2ch-popup-article-view-aa-with-buffer))

(defun navi2ch-popup-article-view-aa-with-buffer ()
"popup-article で AA を見てみる"
(interactive)
(let* ((from-date-regexp "^From: .+\nDate: .+\n")
(buffer-read-only nil)
data-str)
(goto-char (point-min))
(while (re-search-forward from-date-regexp nil t)
(setq data-str
(concat data-str
(cdr
(assq 'data
(navi2ch-article-get-message
(navi2ch-article-get-current-number)))) "\n")))
(erase-buffer)
(insert data-str)
(navi2ch-article-arrange-message))
(enlarge-window
(- (frame-height) (window-height) window-min-height))
(goto-char (point-min)))

89 ：88 ：02/01/06 01:50

(defun navi2ch-popup-article-stack-current-message (&optional prefix)
(let* ((c-num (navi2ch-article-get-current-number))
(m-num (or (and prefix (car (car navi2ch-article-point-stack)))
c-num))
(beg (min c-num m-num))
(end (max c-num m-num))
list)
(while (>= end beg)
(push end list)
(setq end (1- end)))
(navi2ch-popup-article list)))

(add-hook 'navi2ch-hook
(lambda ()
(define-key navi2ch-article-mode-map
"\C-cv" 'navi2ch-article-view-aa-with-popup-article)
(define-key navi2ch-popup-article-mode-map
"\C-cv" 'navi2ch-popup-article-view-aa-with-buffer)))

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