Move the tramp configuration to tramp-conf.

* common.el: Tramp configurations should be put in a separate file.

* tramp-conf.el (tramp-methods): Fix the copy arg.

(backup-directory-alist): Disable backups for Tramp.

(tramp-allow-unsafe-temporary-files): Don't ask this every time.

1 files changed, 55 insertions, 0 deletions

diff --git a/tramp-conf.el b/tramp-conf.el
new file mode 100644
index 0000000..8614be3
--- /dev/null
+++ b/tramp-conf.el
@@ -0,0 +1,55 @@
+;;; tramp-conf.el --- Configurations of Tramp        -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2022  李俊緯
+
+;; Author: 李俊緯 <mmemmew@gmail.com>
+;; Keywords: comm, convenience, files, processes
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; My configurations of the wonderful Tramp.
+
+;;; Code:
+
+(require 'tramp)
+
+;;; Fix a Tramp copy arg
+
+(cond
+ ((assoc "rsync" tramp-methods #'equal)
+  (setcar
+   (cdr
+    (assoc
+     'tramp-copy-args
+     (assoc "rsync" tramp-methods #'equal)))
+   (list
+    (list "-t" "%k")
+    (list "-p")
+    (list "-r")
+    ;; this option is invalid for my rsync program, for some reason
+    ;; ("-s")
+    (list "-c")))))
+
+;;; Disable backups for Tramp
+
+(add-to-list 'backup-directory-alist (cons tramp-file-name-regexp nil))
+
+;;; Don't ask this over and over.
+
+(setq tramp-allow-unsafe-temporary-files t)
+
+(provide 'tramp-conf)
+;;; tramp-conf.el ends here