Permalink
Browse files

(navi2ch-search-mode-line-info): 新変数。

(navi2ch-search-subject-subr, navi2ch-search-article-subr)
(navi2ch-search-orphan-subr, navi2ch-search-all-cache): #serch 板の
mode-line が適切な情報を表示するように。
  • Loading branch information...
nawota
nawota committed Nov 11, 2008
1 parent 25afb06 commit fce453ce58f9a6f45dcd8f49d588feea15f0c806
Showing with 34 additions and 12 deletions.
  1. +7 −0 ChangeLog
  2. +3 −0 NEWS
  3. +24 −12 navi2ch-search.el
View
@@ -1,3 +1,10 @@
+2008-11-12 Naohiro Aota <nao.aota@gmail.com>
+
+ * navi2ch-search.el (navi2ch-search-mode-line-info): 新変数。
+ (navi2ch-search-subject-subr, navi2ch-search-article-subr)
+ (navi2ch-search-orphan-subr, navi2ch-search-all-cache): #serch 板の
+ mode-line が適切な情報を表示するように。
+
2008-10-30 mizmiz <mizmiz@users.sourceforge.net>
* navi2ch-search.el (navi2ch-search-insert-subjects): レス数情報が
View
3 NEWS
@@ -1,6 +1,9 @@
-*-outline-*-
$B<g$JJQ99E@!#>\:Y$O(B ChangeLog $B$r;2>H$7$F$/$@$5$$!#(B
+* navi2ch 1.8.0 -> 2.0.0
+find.2ch.net $B$K$h$k8!:w$KBP1~!#(B
+
* navi2ch 1.7.5 -> 1.8.0
configure $B$N%*%W%7%g%sJQ99!#(Bemacs $B$N;XDj$O(B --with-emacs $B%*%W%7%g%s$G$O(B
$B$J$/4D6-JQ?t(B EMACS $B$G9T$&!#(B--with-lispdir $B$r;XDj$7$J$$>l9g$N%G%U%)%k%H(B
View
@@ -68,6 +68,7 @@
(id . "#search")))
(defvar navi2ch-search-history nil)
+(defvar navi2ch-search-mode-line-info nil)
;;; navi2ch-bm callbacks
(defun navi2ch-search-set-property (begin end item)
@@ -200,6 +201,9 @@
(setq buffer-read-only t)
(buffer-disable-undo)
(use-local-map navi2ch-search-mode-map)
+ (setq navi2ch-mode-line-identification
+ 'navi2ch-search-mode-line-info)
+ (navi2ch-set-mode-line-identification)
(navi2ch-search-setup-menu)
(run-hooks 'navi2ch-bm-mode-hook 'navi2ch-search-mode-hook))
@@ -231,7 +235,9 @@
(funcall board-list-or-function)
board-list-or-function)))
(setq navi2ch-search-searched-subject-list
- (navi2ch-search-board-subject-regexp board-list regexp)))
+ (navi2ch-search-board-subject-regexp board-list regexp)
+ navi2ch-search-mode-line-info
+ (format "Search subject %s" regexp)))
(navi2ch-bm-select-board navi2ch-search-board))
(defun navi2ch-search-for-each-directory-recursive (function directory)
@@ -280,7 +286,9 @@
(funcall board-list-or-function)
board-list-or-function)))
(setq navi2ch-search-searched-subject-list
- (navi2ch-search-article-regexp board-list regexp)))
+ (navi2ch-search-article-regexp board-list regexp)
+ navi2ch-search-mode-line-info
+ (format "Search article %s" regexp)))
(navi2ch-bm-select-board navi2ch-search-board))
(defun navi2ch-search-all-article ()
@@ -289,7 +297,8 @@
(defun navi2ch-search-cache-subr (board-list)
(setq navi2ch-search-searched-subject-list
- (navi2ch-search-cache board-list))
+ (navi2ch-search-cache board-list)
+ navi2ch-search-mode-line-info "Search cache")
(navi2ch-bm-select-board navi2ch-search-board))
(defun navi2ch-search-all-cache ()
@@ -298,16 +307,19 @@
(defun navi2ch-search-orphan-subr (board-list)
(setq navi2ch-search-searched-subject-list
- (navi2ch-search-orphan board-list))
+ (navi2ch-search-orphan board-list)
+ navi2ch-search-mode-line-info "Search orphan")
(navi2ch-bm-select-board navi2ch-search-board))
(defun navi2ch-search-all-orphan ()
(interactive)
(navi2ch-search-orphan-subr (navi2ch-search-all-board-list)))
-(defun navi2ch-search-set-mode-line (str)
- (setq navi2ch-mode-line-identification str)
- (navi2ch-set-mode-line-identification))
+
+(defun navi2ch-search-set-mode-line (&optional str)
+
+ (setq navi2ch-mode-line-identification str)
+ (navi2ch-set-mode-line-identification))
;;; navi2ch find.2ch.net
(defvar navi2ch-search-find-2ch-last-search-word nil
@@ -343,11 +355,11 @@ offset$B$O!V<!$N(B10$B7o!WEy$NAjBP0LCV;XDj$K;H$&(B($B%G%U%)%k%H$O(B0)
(setq navi2ch-search-searched-subject-list
(navi2ch-search-find-2ch-subr keyword navi2ch-search-find-2ch-last-search-num))
(navi2ch-bm-select-board navi2ch-search-board)
- (navi2ch-search-set-mode-line
- (format "Search: %s [%s/%s]"
- navi2ch-search-find-2ch-last-search-word
- navi2ch-search-find-2ch-last-search-num
- navi2ch-search-find-2ch-total-hit))))
+ (setq navi2ch-search-mode-line-info
+ (format "Search: %s [%s/%s]"
+ navi2ch-search-find-2ch-last-search-word
+ navi2ch-search-find-2ch-last-search-num
+ navi2ch-search-find-2ch-total-hit))))
(defun navi2ch-search-find-2ch-subr (query offset)
"find.2ch.net$B$KJ8;zNs(Bquery$B$G%j%/%(%9%H!#(Boffset$B$O!V<!$N(B10$B7o!W$H$+I=<($5$;$?$$$H$-$K;H$&(B"

0 comments on commit fce453c

Please sign in to comment.