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

Navi2ch for Emacs (part 5)

955 ：919 ：02/06/12 02:33

>>919を自分でやってみようと思ったのですが、やっぱ全然わかりません。
どなたか助言いただけないでしょうか？

(defun navi2ch-bm-sort (&optional arg)
(interactive "P")
(message "Sort by n)umber s)tate t)itle o)ther d)ate?")
(let ((ch (read-char)))
(funcall
(cond ((eq ch ?n) 'navi2ch-bm-sort-by-number)
((eq ch ?s) 'navi2ch-bm-sort-by-state)
((eq ch ?t) 'navi2ch-bm-sort-by-subject)
((eq ch ?o) 'navi2ch-bm-sort-by-other)
((eq ch ?d) 'navi2ch-bm-sort-by-date))
arg)))

(defun navi2ch-bm-sort-by-date (rev)
(interactive "P")
(navi2ch-bm-sort-subr
rev

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