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

Navi2ch for Emacs (part 6)

215 ：名無しさん＠お腹いっぱい。 ：02/06/30 15:33

(defun navi2ch-article-copy-title ()
"メニューを表示して、タイトルを得る"
(let ((char (navi2ch-read-char-with-retry "b)oard a)rticle: B)oard&url A)rticle&url"
nil '(?b ?a ?B ?A))))
(message "copy: %s"
(kill-new
(cond ((eq char ?b)
(cdr (assq 'name
navi2ch-article-current-board)))
((eq char ?a)
(cdr (assq 'subject
navi2ch-article-current-article)))
((eq char ?B)
(concat
(cdr (assq 'name
navi2ch-article-current-board))
"\n"
(navi2ch-board-to-url navi2ch-article-current-board)))
((eq char ?A)
(concat
(cdr (assq 'subject
navi2ch-article-current-article))
"\n"
(navi2ch-article-to-url
navi2ch-article-current-board
navi2ch-article-current-article))))))))

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