Lines Matching +defs:function +defs:list
50 ;; /dcc list - List all DCC offers/connections
78 (defvar erc-dcc-list nil
104 (defun erc-dcc-list-add (type nick peer parent &rest args)
105 "Add a new entry of type TYPE to `erc-dcc-list' and return it."
107 (setq erc-dcc-list
109 (append (list :nick nick :type type :peer peer :parent parent) args)
110 erc-dcc-list))))
112 ;; This function takes all the usual args as open-network-stream, plus one
113 ;; more: the entry data from erc-dcc-list for this particular process.
114 (defvar erc-dcc-connect-function 'erc-dcc-open-network-stream)
144 (dcc-list-head . "DCC: From Type Active Size Filename")
145 (dcc-list-line . "DCC: -------- ---- ------ ------------ --------")
146 (dcc-list-item . "DCC: %-8n %-4t %-6a %-12s %f")
147 (dcc-list-end . "DCC: End of list.")
159 "Return the first matching entry in `erc-dcc-list' which satisfies the
166 (let ((list erc-dcc-list)
168 ;; for each element in erc-dcc-list
169 (while (and list (not result))
170 (let ((elt (car list))
182 ;; next element of the list
195 (setq list (cdr list)))))
219 (mapconcat #'identity (make-list 4 "\\([0-9]\\{1,3\\}\\)") "\\.")
264 :type (list 'choice (list 'const :tag "Auto-detect" nil)
265 (list 'string :tag "IP-address"
302 string \".*!.*@.*\" to this list."
342 ;; change the entry in erc-dcc-list from the listening process to the
360 handle it. The function dispatched should be named \"erc-dcc-do-FOO-command\",
375 (pcomplete-here (append '("chat" "close" "get" "list")
383 erc-dcc-list)))
386 erc-dcc-list) :test 'string=))
391 erc-dcc-list)))
402 erc-dcc-list)))
408 erc-dcc-list)))
446 (setq erc-dcc-list (delq ret erc-dcc-list))
481 "This is the handler for the /dcc list command.
482 It lists the current state of `erc-dcc-list' in an easy to read manner."
483 (let ((alist erc-dcc-list)
487 'dcc-list-head)
490 'dcc-list-line)
504 'dcc-list-item
524 'dcc-list-end)
549 "The function called when a CTCP DCC request is detected by the client.
568 `erc-dcc-list'."
594 (erc-dcc-list-add
601 (erc-dcc-get-file (car erc-dcc-list) filename proc))))
660 (erc-dcc-list-add
674 "Holds the `erc-dcc-list' entry for this DCC connection.")
733 (setq erc-dcc-list (delete elt erc-dcc-list))
803 (erc-dcc-list-add
821 "This function does the work of setting up a transfer from the remote client
844 (funcall erc-dcc-connect-function
899 (setq erc-dcc-list (delete erc-dcc-entry-data erc-dcc-list))
985 erc-send-input-line-function 'erc-dcc-chat-send-input-line
1011 (erc-dcc-list-add 'OCHAT nick sproc pproc)
1050 (funcall erc-dcc-connect-function
1091 `erc-dcc-list'"
1095 (setq erc-dcc-list (delq erc-dcc-entry-data erc-dcc-list))
1125 (setq erc-dcc-list (delq elt erc-dcc-list))