Current File : //usr/local/share/emacs/27.2/lisp/erc/erc-xdcc.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 `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)
#@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) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\n\203# \312 \210\202& \313 \210\314\315\307\302!\2032 \316\2023 \317\"\210\320\321!\203^ \322\302!\210\304 \203K \304 \232\203^ \323\324\325\307\302!\203Y \326\202Z \327 #\210))\330 \210\307\302!\207" [#1=#:last-message arg erc-xdcc-mode local current-message set-default toggle default-value 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%s" "en" "dis" force-mode-line-update] 4 (#$ . 2052) (list (or current-prefix-arg 'toggle))])
(defvar erc-xdcc-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\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.)" 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 (#$ . 3377) 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 (#$ . 3539) 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) "\302!\205 \235\203 \207 B\211\207" [file erc-xdcc-files file-exists-p] 2 (#$ . 3846) "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) (#$ . 4183))
#@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 (#$ . 4301)])
#@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 (#$ . 4849)])
#@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 (#$ . 5139)])
#@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 (#$ . 5590)])
(provide 'erc-xdcc)
Mini Shell