;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\301\311\312&\210\302\313\304\305\314DD\315\310\301\311\316&\210\302\317\304\305\320DD\321\310\301\311\322&\210\302\323\304\305\324DD\325\310\301\311\326&\210\302\327\304\305\330DD\331\332\333\334\335\311\316\310\336&\207" [require erc-dcc custom-declare-variable erc-xdcc-files funcall function #[0 "\300\207" [nil] 1 #1=""] "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 #[0 "\300\207" [t] 1 #1#] "Report XDCC CTCP requests in the server buffer." boolean erc-xdcc-handler-alist #[0 "\300\207" [(("help" . erc-xdcc-help) ("list" . erc-xdcc-list) ("send" . erc-xdcc-send))] 1 #1#] "Sub-command handler alist for XDCC CTCP queries." (alist :key-type (string :tag "Sub-command") :value-type function) erc-xdcc-help-text #[0 "\300\207" [(("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."))] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "Non-nil if Erc-Xdcc mode is enabled.\nSee the `erc-xdcc-mode' command\nfor 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)
#@221 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.

(fn &optional ARG)
(defalias 'erc-xdcc-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B	\203B\313 \210\202E\314 \210\315\316\305\301!\203Q\317\202R\320\"\210\321\322!\203z\323\301!\210\302 \203j\211\302 \232\203z\324\325\305\301!\203v\326\202w\327\330#\210\210\331 \210\305\301!\207" [global-minor-modes erc-xdcc-mode current-message set-default toggle default-value 1 nil t boundp delq 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%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 1920) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar erc-xdcc-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [erc-xdcc-mode-map erc-xdcc-mode-hook variable-documentation put "Hook run after entering or leaving `erc-xdcc-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode erc-xdcc-mode boundp] 6)
#@23 Enable ERC xdcc mode.
(defalias 'erc-xdcc-enable #[0 "\301\302\303\"\210\304\211\207" [erc-xdcc-mode add-to-list erc-modules xdcc t] 3 (#$ . 3448) nil])
#@24 Disable ERC xdcc mode.
(defalias 'erc-xdcc-disable #[0 "\302\303\"\304\211\207" [erc-modules erc-xdcc-mode delq xdcc nil] 3 (#$ . 3608) 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)
#@42 Add FILE to `erc-xdcc-files'.

(fn FILE)
(defalias 'erc-xdcc-add-file #[257 "\301
!\205\211\235\203\207\211B\211\207" [erc-xdcc-files file-exists-p] 3 (#$ . 3913) "fFilename to add to XDCC: "])
#@22 

(fn PROC NICK MSG)
(defalias 'erc-xdcc-reply #[771 "\300\301\302#\"\207" [process-send-string format "PRIVMSG %s :%s\n"] 9 (#$ . 4121)])
#@55 Hook called whenever a CTCP XDCC message is received.
(defvar erc-ctcp-query-XDCC-hook '(erc-xdcc) (#$ . 4269))
#@72 Handle incoming CTCP XDCC queries.

(fn PROC NICK LOGIN HOST TO QUERY)
(defalias 'erc-xdcc #[1542 "\203\302\303\304\305\306\n\n\n	%$\210\307\310\311\312\"\"A\313
@\227	\"A\211\203=\314
!\203=\211A%\207\315\305\316\317 \"#\207" [erc-xdcc-verbose-flag erc-xdcc-handler-alist 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] 16 (#$ . 4387)])
#@70 Send basic help information to NICK.

(fn PROC NICK LOGIN HOST ARGS)
(defalias 'erc-xdcc-help #[1285 "\301\302\303#\"\207" [erc-xdcc-help-text mapc make-closure #[257 "\302\300\301\303\304\305##\207" [V0 V1 erc-xdcc-reply mapconcat #[257 "\211;\203\207\300
\301\"\207" [eval t] 4 "\n\n(fn ELT)"] ""] 8 "\n\n(fn MSG)"]] 10 (#$ . 4905)])
#@92 Show the contents of `erc-xdcc-files' via privmsg to NICK.

(fn PROC NICK LOGIN HOST ARGS)
(defalias 'erc-xdcc-list #[1285 "\204\n\301\302#\207\301\303#\210\301\304#\210\305\211\2059\211@\301\306\307T\211\262	\310!##\210
A\266\202\202\207" [erc-xdcc-files erc-xdcc-reply "No files offered, sorry" "Num  Filename" "---  -------------" 0 format "%02d.  %s" erc-dcc-file-to-name] 16 (#$ . 5255)])
#@54 Send a file to NICK.

(fn PROC NICK LOGIN HOST ARGS)
(defalias 'erc-xdcc-send #[1285 "\301
@!G\211\302U\203\303\304#\207
\305W\204 

V\203,\303\306\307\"#\207\310S8	#\207" [erc-xdcc-files string-to-number 0 erc-xdcc-reply "No files offered, sorry" 1 format "%d out of range" erc-dcc-send-file] 13 (#$ . 5675)])
(provide 'erc-xdcc)