| Current Path : /usr/share/emacs/24.3/lisp/erc/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/erc/erc-xdcc.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:49 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/erc/erc-xdcc.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\305\306\301\307\310&\210\302\311\312\313\306\301\307\314&\210\302\315\316\317\306\301\307\320&\210\302\321\322\323\306\301\307\324&\210\302\325\304\326\327\330\331\332\306\333\307\314& \207" [require erc-dcc custom-declare-variable erc-xdcc-files nil "List of files to offer via XDCC.\nYour friends should issue \"/ctcp yournick XDCC list\" to see this." :group :type (repeat file) erc-xdcc-verbose-flag t "Report XDCC CTCP requests in the server buffer." boolean erc-xdcc-handler-alist '(("help" . erc-xdcc-help) ("list" . erc-xdcc-list) ("send" . erc-xdcc-send)) "Sub-command handler alist for XDCC CTCP queries." (alist :key-type (string :tag "Sub-command") :value-type function) 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.\nA list of messages, each consisting of strings and expressions, expressions\nbeing evaluated and should return strings." (repeat (repeat :tag "Message" (choice string sexp))) erc-xdcc-mode "Non-nil if Erc-Xdcc mode is enabled.\nSee the command `erc-xdcc-mode' for a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `erc-xdcc-mode'." :set custom-set-minor-mode :initialize custom-initialize-default erc-xdcc] 12)
#@201 Toggle ERC xdcc mode.
With a prefix argument ARG, enable xdcc if ARG is positive,
and disable it otherwise. If called from Lisp, enable the mode
if ARG is omitted or nil.
Act as an XDCC file-server.
(defalias 'erc-xdcc-mode #[(&optional arg) "\303 \304=\203 \n?\202 \305 !\306V\211\203 \307 \210\202! \310 \210\311\312\n\203+ \313\202, \314\"\210\315\316!\203Q \317\302!\210\303 \203D \303 \232\203Q \320\321\n\203N \322\202O \323\"\210)\324 \210\n\207" [#1=#:last-message arg erc-xdcc-mode current-message toggle prefix-numeric-value 0 erc-xdcc-enable erc-xdcc-disable run-hooks erc-xdcc-mode-hook erc-xdcc-mode-on-hook erc-xdcc-mode-off-hook called-interactively-p any customize-mark-as-set message "Erc-Xdcc mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 2198) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n \303\211%\207" [erc-xdcc-mode-map add-minor-mode erc-xdcc-mode nil boundp] 6)
#@23 Enable ERC xdcc mode.
(defalias 'erc-xdcc-enable #[nil "\301\302\303\"\210\304\211\207" [erc-xdcc-mode add-to-list erc-modules xdcc t] 3 (#$ . 3146) nil])
#@24 Disable ERC xdcc mode.
(defalias 'erc-xdcc-disable #[nil "\302\303\"\304\211\207" [erc-modules erc-xdcc-mode delq xdcc nil] 3 (#$ . 3308) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-xdcc-mode definition-name xdcc erc-xdcc-enable erc-xdcc-disable] 4)
#@33 Add a file to `erc-xdcc-files'.
(defalias 'erc-xdcc-add-file #[(file) "\301!\205\n \302\303\"\207" [file file-exists-p add-to-list erc-xdcc-files] 3 (#$ . 3615) "fFilename to add to XDCC: "])
(defalias 'erc-xdcc-reply #[(proc nick msg) "\303\304\305 \n#\"\207" [proc nick msg process-send-string format "PRIVMSG %s :%s\n"] 6])
#@55 Hook called whenever a CTCP XDCC message is received.
(defvar erc-ctcp-query-XDCC-hook '(erc-xdcc) (#$ . 3951))
#@36 Handle incoming CTCP XDCC queries.
(defalias 'erc-xdcc #[(proc nick login host to query) "\203 \306\307\310 \311\312\n \f
%$\210\313\314\315
\316\"\"A \317@\227\"A\211 \203> \320!\203> \n \fA%\202G \321 \n\311\322\323 \"#*\207" [erc-xdcc-verbose-flag proc nick login host query erc-display-message nil notice format "XDCC %s (%s@%s) sends %S" delete "" split-string " " assoc functionp erc-xdcc-reply "Unknown XDCC sub-command, try \"/ctcp %s XDCC help\"" erc-current-nick args erc-xdcc-handler-alist handler] 11 (#$ . 4069)])
#@38 Send basic help information to NICK.
(defalias 'erc-xdcc-help #[(proc nick login host args) "\301\302\"\207" [erc-xdcc-help-text mapc #[(msg) "\303 \304\305\n\306##\207" [proc nick msg erc-xdcc-reply mapconcat #[(elt) ";\203 \207\301!\207" [elt eval] 2] ""] 7]] 3 (#$ . 4617)])
#@60 Show the contents of `erc-xdcc-files' via privmsg to NICK.
(defalias 'erc-xdcc-list #[(proc nick login host args) "\204\n \306 \n\307#\207\306 \n\310#\210\306 \n\311#\210\312\313 \211 \205:
@\306 \n\314\315 T\211\316\f!##\210
A\211\204 \313+\207" [erc-xdcc-files proc nick n file --dolist-tail-- erc-xdcc-reply "No files offered, sorry" "Num Filename" "--- -------------" 0 nil format "%02d. %s" erc-dcc-file-to-name] 9 (#$ . 4907)])
#@22 Send a file to NICK.
(defalias 'erc-xdcc-send #[(proc nick login host args) "\306@! G\n\307U\203 \310\f
\311#\2025 \312W\204\" \nV\203- \310\f
\313\314 \"#\2025 \315
S 8\f#*\207" [args erc-xdcc-files len n proc nick string-to-number 0 erc-xdcc-reply "No files offered, sorry" 1 format "%d out of range" erc-dcc-send-file] 6 (#$ . 5358)])
(provide 'erc-xdcc)