about summary refs log tree commit diff
path: root/configs/shared/emacs/.emacs.d/elpa/circe-20180525.1231/circe-chanop.el
blob: a5880e5f8c1e32139ace80dac3b22a5119cb392a (plain) (blame)
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
;;; circe-chanop.el --- Provide common channel operator commands

;; Copyright (C) 2006, 2015  Jorgen Schaefer

;; Author: Jorgen Schaefer <forcer@forcix.cx>

;; This file is part of Circe.

;; 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 3
;; of the License, 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 this program; if not, write to the Free Software
;; Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
;; 02110-1301  USA

;;; Commentary:

;; This Circe module provides some often-used chanop commands. I was
;; very reluctant to add this. None of these commands will make it in
;; the core, or even be provided by default. You should have to go to
;; great lengths to use them.

;; Always remember the Tao of IRC:
;;
;;     IGNORE is the weapon of an IRC knight. Not as clumsy or as
;;     random as a kickban.

;;; Code:

(require 'circe)

(defun circe-command-MODE (mode)
  "Set MODE in the current channel."
  (interactive "sMode change: ")
  (cond
   ((not (string-match "^[+-]" mode))
    (irc-send-raw (circe-server-process)
                  (format "MODE %s" mode)))
   ((eq major-mode 'circe-channel-mode)
    (irc-send-raw (circe-server-process)
                  (format "MODE %s %s" circe-chat-target mode)))
   (t
    (circe-display-server-message "Not in a channel buffer."))))

(defun circe-command-BANS (&optional ignored)
  "Show channel bans"
  (if (not circe-chat-target)
      (circe-display-server-message "No target for current buffer")
    (irc-send-raw (circe-server-process)
                  (format "MODE %s +b" circe-chat-target))))

(defun circe-command-KICK (nick &optional reason)
  "Kick WHO from the current channel with optional REASON."
  (interactive "sKick who: \nsWhy: ")
  (if (not (eq major-mode 'circe-channel-mode))
      (circe-display-server-message "Not in a channel buffer.")
    (when (not reason)
      (if (string-match "^\\([^ ]*\\) +\\(.+\\)" nick)
          (setq reason (match-string 2 nick)
                nick (match-string 1 nick))
        (setq reason "-")))
    (irc-send-raw (circe-server-process)
                  (format "KICK %s %s :%s"
                          circe-chat-target nick reason))))

(defun circe-command-GETOP (&optional ignored)
  "Ask chanserv for op on the current channel."
  (interactive)
  (if (not (eq major-mode 'circe-channel-mode))
      (circe-display-server-message "Not in a channel buffer.")
    (irc-send-PRIVMSG (circe-server-process)
                      "chanserv"
                      (format "op %s" circe-chat-target))))

(defun circe-command-DROPOP (&optional ignored)
  "Lose op mode on the current channel."
  (interactive)
  (if (not (eq major-mode 'circe-channel-mode))
      (circe-display-server-message "Not in a channel buffer.")
    (irc-send-raw (circe-server-process)
                  (format "MODE %s -o %s"
                          circe-chat-target
                          (circe-nick)))))

;; For KICKBAN (requested by Riastradh), we'd need a callback on a
;; USERHOST command.

(provide 'circe-chanop)
;;; circe-chanop.el ends here