From 9fc29831e0a82ed8fd156f5210721df4124eeb20 Mon Sep 17 00:00:00 2001 From: William Carroll Date: Tue, 18 Feb 2020 11:18:02 +0000 Subject: Configure ssh preferences Every Tuesday I work from Google's 6PS office instead of BEL. I work from my laptop, which often requires that I ssh into the desktop work station in BEL. I have settled on a locally optimal workflow that I'd like to improve. To help seek higher ground, I'm planning on using ssh.el to configure tramp and define utility functions to lower my cost of exploring new workflows. - Defines a function, `ssh/desktop-cd-home` that helps me quickly open a dired buffer for my work station's home directory. - Documents some variables that I set weeks ago. - Requires ssh.el in init.el. --- emacs/.emacs.d/wpc/ssh.el | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) (limited to 'emacs/.emacs.d/wpc/ssh.el') diff --git a/emacs/.emacs.d/wpc/ssh.el b/emacs/.emacs.d/wpc/ssh.el index d7039375731e..3e30e39bb801 100644 --- a/emacs/.emacs.d/wpc/ssh.el +++ b/emacs/.emacs.d/wpc/ssh.el @@ -13,7 +13,7 @@ (require 'tramp) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Library +;; Configuration ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; TODO: Is "ssh" preferable to "scp"? @@ -22,10 +22,21 @@ ;; Taken from: https://superuser.com/questions/179313/tramp-waiting-for-prompts-from-remote-shell (setq tramp-shell-prompt-pattern "^[^$>\n]*[#$%>] *\\(\[[0-9;]*[a-zA-Z] *\\)*") -;; TODO: Re-enable this in case "dumb" isn't the default. -;; (setq tramp-terminal-type "dumb") +;; Sets the value of the TERM variable to "dumb" when logging into the remote +;; host. This allows me to check for the value of "dumb" in my shell's init file +;; and control the startup accordingly. You can see in the (shamefully large) +;; commit, 0b4ef0e, that I added a check like this to my ~/.zshrc. I've since +;; switched from z-shell to fish. I don't currently have this check in +;; config.fish, but I may need to add it one day soon. +(setq tramp-terminal-type "dumb") +;; Maximizes the tramp debugging noisiness while I'm still learning about tramp. (setq tramp-verbose 10) +(defun ssh/desktop-cd-home () + "Open a dired buffer of my desktop's home directory for wpcarro." + (interactive) + (find-file "/ssh:wpcarro@desktop:~")) + (provide 'ssh) ;;; ssh.el ends here -- cgit 1.4.1