:type 'list
:group 'riece-rdcc)
+(defcustom riece-rdcc-save-directory nil
+ "Default directory where received files are saved in."
+ :type 'directory
+ :group 'riece-rdcc)
+
(defvar riece-rdcc-requests nil)
(defvar riece-rdcc-request-user nil)
"User: "
(mapcar #'list (riece-get-users-on-server)))
(expand-file-name (read-file-name "File: ")))))
- (let ((process
- (start-process "DCC" (generate-new-buffer " *DCC*")
- "ruby" "-rsocket")))
+ (let* ((process-connection-type nil)
+ (process (start-process "DCC" (generate-new-buffer " *DCC*")
+ "ruby" "-rsocket")))
(process-send-string process
(apply #'concat
(riece-rdcc-substitute-variables
(progn
(goto-char (point-min))
(not (looking-at "\\([0-9]+\\) \\([0-9]+\\)"))))
- (accept-process-output))
+ (accept-process-output process))
(if (eq (process-status process) 'run)
(let ((address (match-string 1))
(port (match-string 2)))
(error "Invalid number"))
(nth (1- number) riece-rdcc-requests))))
(default-name (expand-file-name
- (nth 1 request) default-directory)))
+ (nth 1 request) (or riece-rdcc-save-directory
+ default-directory))))
(list request
(expand-file-name
(read-file-name
(port (string-to-number (match-string 3 message)))
(size (string-to-number (match-string 4 message)))
(buffer (if (riece-channel-p target)
- (riece-channel-buffer-name
- (riece-make-identity target riece-server-name))))
+ (riece-channel-buffer (riece-make-identity
+ target riece-server-name))))
(user (riece-prefix-nickname prefix)))
(setq riece-rdcc-requests
(cons (list user file address port size)