: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
(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