about summary refs log tree commit diff
path: root/configs/shared/emacs/.emacs.d/elpa/circe-20180525.1231/circe-chanop.el
diff options
context:
space:
mode:
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/circe-20180525.1231/circe-chanop.el')
-rw-r--r--configs/shared/emacs/.emacs.d/elpa/circe-20180525.1231/circe-chanop.el97
1 files changed, 0 insertions, 97 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/circe-20180525.1231/circe-chanop.el b/configs/shared/emacs/.emacs.d/elpa/circe-20180525.1231/circe-chanop.el
deleted file mode 100644
index a5880e5f8c1e..000000000000
--- a/configs/shared/emacs/.emacs.d/elpa/circe-20180525.1231/circe-chanop.el
+++ /dev/null
@@ -1,97 +0,0 @@
-;;; 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