-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathirchat-obsolete.el
124 lines (108 loc) · 3.8 KB
/
irchat-obsolete.el
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
117
118
119
120
121
122
123
124
;;; -*- emacs-lisp -*-
;;;
;;; see file irchat-copyright.el for change log and copyright info
(eval-when-compile
(require 'irchat-inlines))
(eval-and-compile
(require 'irchat-vars))
;;;
;;; Ignores
;;;
(defvar irchat-kill-nickname nil
"*Obsolete. See irchat-ignore-nickname")
(defvar irchat-kill-message-regexp nil
"*Obsolete. See irchat-ignore-message-regexp.")
;(defvar irchat-kill-realname nil
; "*Obsolete. See irchat-ignore-realname.")
;(defvar irchat-kill-logon nil
; "*Obsolete. See irchat-ignore-logon.")
(defun irchat-append-obsolete-vars ()
"Append obsolete variable values to the current ones."
(if irchat-kill-nickname
(progn
(message "Obsolete variable irchat-kill-nickname converted.")
(setq irchat-ignore-nickname (append irchat-ignore-nickname
irchat-kill-nickname))
(setq irchat-kill-nickname nil)
(setq irchat-save-vars-is-dirty t)))
(if irchat-kill-message-regexp
(progn
(message "Obsolete variable irchat-kill-message-regexp converted.")
(setq irchat-ignore-message-regexp (append irchat-ignore-message-regexp
irchat-kill-message-regexp))
(setq irchat-kill-message-regexp nil)
(setq irchat-save-vars-is-dirty t))))
(defun irchat-Command-kill (kill-nickname-var &optional timeout silent)
"Obsolete front end to irchat-Command-ignore."
(interactive (let ((kill-nickname-var nil)
(timeout nil)
(completion-ignore-case t))
(setq kill-nickname-var
(completing-read "Ignore nickname or regexp: "
(append irchat-nick-alist
irchat-kill-nickname)
'(lambda (s) t) nil nil))
(if (and (not (string= "" kill-nickname-var))
(not (assoc-ci-string kill-nickname-var irchat-kill-nickname)))
(setq timeout
(string-to-int
(read-from-minibuffer "Timeout [RET for none]: "))))
(list kill-nickname-var timeout)))
(let ((msg (concat "Obsolete interface irchat-Command-kill."
" "
"Use irchat-Command-ignore.")))
(message msg)
(irchat-Command-ignore kill-nickname-var timeout silent)
(message msg)))
(defun irchat-Command-kill-by-regexp (kill-regexp-var &optional timeout silent)
"Obsolete front end to irchat-Command-ignore-by-regexp."
(interactive (let ((kill-regexp-var nil)
(timeout nil)
(completion-ignore-case t))
(setq kill-regexp-var
(completing-read "Ignore messages matching: "
irchat-kill-message-regexp
'(lambda (s) t) nil nil))
(if (and (not (string= "" kill-regexp-var))
(not (assoc-ci-string kill-regexp-var
irchat-kill-message-regexp)))
(setq timeout
(string-to-int
(read-from-minibuffer
"Timeout [RET for none]: "))))
(list kill-regexp-var timeout)))
(let ((msg (concat "Obsolete interface irchat-Command-kill-by-regexp."
" "
"Use irchat-Command-ignore-by-regexp.")))
(message msg)
(irchat-Command-ignore-by-regexp kill-regexp-var timeout silent)
(message msg)))
(defun irchat-Command-global-kill (nickname timeout reason)
"Obsolete front end to irchat-Command-global-ignore."
(interactive (let ((nickname-var nil)
(timeout 0)
(reason ""))
(setq nickname
(completing-read "Global ignore nickname: "
irchat-nick-alist
'(lambda (s) t) nil nil))
(if (not (string= "" nickname))
(progn
(while (not (and (> timeout 0)
(< timeout 1000)))
(setq timeout
(string-to-int
(read-from-minibuffer "Timeout [1-99]: "))))
(setq reason (read-from-minibuffer "Reason: "))))
(list nickname timeout reason)))
(let ((msg (concat "Obsolete interface irchat-Command-global-kill."
" "
"Use irchat-Command-global-ignore.")))
(message msg)
(irchat-Command-global-ignore nickname timeout reason)
(message msg)))
(eval-and-compile
(provide 'irchat-obsolete))
;;;
;;; eof
;;;