From 9fc29831e0a82ed8fd156f5210721df4124eeb20 Mon Sep 17 00:00:00 2001
From: William Carroll <wpcarro@gmail.com>
Date: Tue, 18 Feb 2020 11:18:02 +0000
Subject: [PATCH] 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/init.el    |  1 +
 emacs/.emacs.d/wpc/ssh.el | 17 ++++++++++++++---
 2 files changed, 15 insertions(+), 3 deletions(-)

diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el
index fa5147206..787d55971 100644
--- a/emacs/.emacs.d/init.el
+++ b/emacs/.emacs.d/init.el
@@ -18,6 +18,7 @@
 (require 'screen-brightness)
 
 ;; miscellaneous
+(require 'ssh)
 (require 'clipboard)
 (require 'battery)
 (require 'dotfiles)
diff --git a/emacs/.emacs.d/wpc/ssh.el b/emacs/.emacs.d/wpc/ssh.el
index d70393757..3e30e39bb 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