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

Navi2ch for Emacs (part 5)

805 ：名無しさん＠お腹いっぱい。 ：02/05/24 01:26

こういうのはどうでしょうか？
(defvar navi2ch-menu-global-bookmark-menu nil)
(defun navi2ch-menu-global-bookmark-menu-constructor (menu-items)
(easy-menu-define
navi2ch-menu-global-bookmark-menu nil "Global Bookmark Menu"
(let ((menu nil))
(dolist (group (reverse navi2ch-bookmark-list))
(let ((group-menu nil))
(dolist (item (reverse (nthcdr 2 group)))
(let* ((hot (cdr item))
(board (assq 'board hot))
(article (assq 'article hot)))
(setq group-menu (cons (vector
(cdr (assq 'subject article))
(` (navi2ch-article-view-article '(, board) '(, article)))
t) group-menu))))
(or group-menu (setq group-menu (list (vector "No Items" nil nil))))
(setq menu (cons (cons (cadr group) group-menu) menu))))
(or menu (list (vector "No Bookmark" nil nil)))))
navi2ch-menu-global-bookmark-menu)

XEmacs でしか上手く動かないんでアレですけど。

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