Mercurial > emacs
view lisp/erc/erc-xdcc.el @ 87315:34b619baa980
Replace all instances of string-to-int with string-to-number,
insert-string with insert, and read-input with read-string.
(top-level): No need to require imenu, reporter, dinotrace, vc,
font-lock when compiling. Always require compile. Relegate remaining
compatibility cruft to XEmacs. Don't require font-lock.
(verilog-version): Remove superfluous concat.
(dinotrace-unannotate-all, zmacs-activate-region)
(customize-apropos): No need to define.
(verilog-regexp-opt): On Emacs, just make it an alias for regexp-opt.
(verilog-font-lock-keywords, verilog-font-lock-keywords-1)
(verilog-font-lock-keywords-2, verilog-font-lock-keywords-3)
(verilog-startup-message-displayed): These are variables, not constants.
(verilog-batch-execute-func, verilog-auto-inst)
(verilog-auto-inst-param): Use mapc rather than mapcar.
(sigs-in, sigs-inout, sigs-out): Define for compiler rather than
actually defining.
(verilog-modi-get-decls, verilog-modi-get-sub-decls)
(verilog-modi-get-outputs, verilog-modi-get-inouts)
(verilog-modi-get-inputs, verilog-modi-get-wires)
(verilog-modi-get-regs, verilog-modi-get-assigns)
(verilog-modi-get-consts, verilog-modi-get-gparams)
(verilog-modi-get-sub-outputs, verilog-modi-get-sub-inouts)
(verilog-modi-get-sub-inputs): Move inline functions earlier in
the file.
(sigs-in, sigs-out): Don't declare multiple times.
(got-sig, got-rvalue, uses-delayed): Define for compiler with just
`defvar'.
(verilog-auto): Call dinotrace-unannotate-all only if bound.
(verilog-module-inside-filename-p): No need to wrap fboundp test
in condition-case.
(reporter-submit-bug-report): Autoload it.
(verilog-mark-defun): Call zmacs-activate-region only if bound.
(verilog-font-customize): Call customize-apropos only if bound.
(verilog-getopt-flags, verilog-auto-reeval-locals): Use
make-local-variable rather than make-variable-buffer-local.
(verilog-company, verilog-project, verilog-modi-cache-list): Move
make-variable-buffer-local calls to top-level.
(font-lock-defaults-alist): Don't define it.
(verilog-need-fld): Remove.
(verilog-font-lock-init): Don't set font-lock-defaults-alist.
(verilog-mode): Only call make-local-hook on XEmacs. Set
font-lock-defaults rather than using verilog-font-lock-init.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Tue, 18 Dec 2007 02:32:29 +0000 |
parents | 85d67fae9a94 |
children | 5f92874bde07 |
line wrap: on
line source
;;; erc-xdcc.el --- XDCC file-server support for ERC ;; Copyright (C) 2003, 2004, 2006, 2007 Free Software Foundation, Inc. ;; Author: Mario Lang <mlang@delysid.org> ;; Keywords: comm, processes ;; This file is part of GNU Emacs. ;; GNU Emacs 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, or (at your option) ;; any later version. ;; GNU Emacs 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: ;; This file provides a very simple XDCC file server for ERC. ;;; Code: (require 'erc-dcc) (defcustom erc-xdcc-files nil "*List of files to offer via XDCC. Your friends should issue \"/ctcp yournick XDCC list\" to see this." :group 'erc-dcc :type '(repeat file)) (defcustom erc-xdcc-verbose-flag t "*Report XDCC CTCP requests in the server buffer." :group 'erc-dcc :type 'boolean) (defcustom erc-xdcc-handler-alist '(("help" . erc-xdcc-help) ("list" . erc-xdcc-list) ("send" . erc-xdcc-send)) "*Sub-command handler alist for XDCC CTCP queries." :group 'erc-dcc :type '(alist :key-type (string :tag "Sub-command") :value-type function)) (defcustom erc-xdcc-help-text '(("Hey " nick ", wondering how this works? Pretty easy.") ("Available commands: XDCC [" (mapconcat 'car erc-xdcc-handler-alist "|") "]") ("Type \"/ctcp " (erc-current-nick) " XDCC list\" to see the list of offered files, then type \"/ctcp " (erc-current-nick) " XDCC send #\" to get a particular file number.")) "*Help text sent in response to XDCC help command. A list of messages, each consisting of strings and expressions, expressions being evaluated and should return stings." :group 'erc-dcc :type '(repeat (repeat :tag "Message" (choice string sexp)))) ;;;###autoload (defun erc-xdcc-add-file (file) "Add a file to `erc-xdcc-files'." (interactive "fFilename to add to XDCC: ") (if (file-exists-p file) (add-to-list 'erc-xdcc-files file))) (defun erc-xdcc-reply (proc nick msg) (process-send-string proc (format "PRIVMSG %s :%s\n" nick msg))) ;; CTCP query handlers (defvar erc-ctcp-query-XDCC-hook '(erc-xdcc) "Hook called whenever a CTCP XDCC message is received.") (defun erc-xdcc (proc nick login host to query) "Handle incoming CTCP XDCC queries." (when erc-xdcc-verbose-flag (erc-display-message nil 'notice proc (format "XDCC %s (%s@%s) sends %S" nick login host query))) (let* ((args (cdr (delete "" (split-string query " ")))) (handler (cdr (assoc (downcase (car args)) erc-xdcc-handler-alist)))) (if (and handler (functionp handler)) (funcall handler proc nick login host (cdr args)) (erc-xdcc-reply proc nick (format "Unknown XDCC sub-command, try \"/ctcp %s XDCC help\"" (erc-current-nick)))))) (defun erc-xdcc-help (proc nick login host args) "Send basic help information to NICK." (mapc (lambda (msg) (erc-xdcc-reply proc nick (mapconcat (lambda (elt) (if (stringp elt) elt (eval elt))) msg ""))) erc-xdcc-help-text)) (defun erc-xdcc-list (proc nick login host args) "Show the contents of `erc-xdcc-files' via privmsg to NICK." (if (null erc-xdcc-files) (erc-xdcc-reply proc nick "No files offered, sorry") (erc-xdcc-reply proc nick "Num Filename") (erc-xdcc-reply proc nick "--- -------------") (let ((n 0)) (dolist (file erc-xdcc-files) (erc-xdcc-reply proc nick (format "%02d. %s" (setq n (1+ n)) (erc-dcc-file-to-name file))))))) (defun erc-xdcc-send (proc nick login host args) "Send a file to NICK." (let ((n (string-to-number (car args))) (len (length erc-xdcc-files))) (cond ((= len 0) (erc-xdcc-reply proc nick "No files offered, sorry")) ((or (< n 1) (> n len)) (erc-xdcc-reply proc nick (format "%d out of range" n))) (t (erc-dcc-send-file nick (nth (1- n) erc-xdcc-files) proc))))) (provide 'erc-xdcc) ;; arch-tag: a13b62fe-2399-4562-af4e-f18a8dd4b9c8 ;;; erc-xdcc.el ends here