1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
;;; riece-guess.el --- guess the next channel, using multiple methods
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
;; Keywords: IRC, riece
;; This file is part of Riece.
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
;;; Commentary:
;; NOTE: This is an add-on module for Riece.
;;; Code:
(require 'riece-identity)
(require 'riece-commands)
(defgroup riece-guess nil
"Guess the next channel."
:tag "Guess"
:prefix "riece-"
:group 'riece)
(defcustom riece-guess-channel-try-functions nil
"Functions which returns a list of channels the user wants to switch."
:type '(repeat function)
:group 'riece-guess)
(defconst riece-guess-description
"Guess the next channel, using multiple methods.")
(defvar riece-current-channels)
(defun riece-guess-candidates ()
"Build candidate list.
This function calls \\[riece-guess-channel-try-functions] in turn and
merge the results."
(let ((functions riece-guess-channel-try-functions)
candidates)
(while functions
(setq candidates
(nconc candidates
(delq nil (mapcar
(lambda (channel)
(unless (riece-identity-member
channel candidates)
channel))
(funcall (car functions)))))
functions (cdr functions)))
;; Merge the default.
(setq candidates
(nconc candidates
(delq nil (mapcar
(lambda (channel)
(if (and channel
(not (riece-identity-member
channel candidates)))
channel))
riece-current-channels))))
candidates))
(defvar riece-guess-candidates nil)
(defun riece-command-guess-switch-to-channel ()
"Try to switch to the channel where the user is interested in."
(interactive)
(unless (and (eq last-command this-command)
riece-guess-candidates)
(setq riece-guess-candidates (riece-guess-candidates)))
(unless riece-guess-candidates
(error "No channel"))
(riece-command-switch-to-channel
(prog1 (car riece-guess-candidates)
(setq riece-guess-candidates (cdr riece-guess-candidates)))))
(defvar riece-command-mode-map)
(defvar riece-dialogue-mode-map)
(defvar riece-channel-list-mode-map)
(defun riece-guess-insinuate ()
)
(defun riece-guess-enable ()
(define-key riece-command-mode-map
"\C-cg" 'riece-command-guess-switch-to-channel)
(define-key riece-dialogue-mode-map
"g" 'riece-command-guess-switch-to-channel)
(define-key riece-channel-list-mode-map
"g" 'riece-command-guess-switch-to-channel))
(defun riece-guess-disable ()
(define-key riece-command-mode-map
"\C-cg" nil)
(define-key riece-dialogue-mode-map
"g" nil)
(define-key riece-channel-list-mode-map
"g" nil))
(provide 'riece-guess)
;;; riece-guess.el ends here
|
