Checking in what I've got

neale-ssh.el

@@ -0,0 +1,112 @@
+;;
+;; ssh
+;;
+(defvar ssh/default-host "woozle.org"
+  "Default if you just hit enter for hostname")
+
+(defvar ssh/frequent-hosts '("woozle.org")
+  "List of hosts to add to completion options")
+
+(defun ssh/known-hosts ()
+  "Return a list of hosts for completion"
+  (with-temp-buffer
+    (insert-file-contents-literally "~/.ssh/known_hosts")
+    (let ((ssh-hosts-list) '())
+      (while (not (eobp))
+	(add-to-list 'ssh-hosts-list (buffer-substring (point) (- (search-forward-regexp "[, ]") 1)))
+	(forward-line))
+      ssh-hosts-list)))
+
+(setq ssh/host-history '())
+(defun ssh (remote)
+  (interactive
+   (list
+    (completing-read (format "Remote host (default %s): " ssh/default-host)
+		     (append ssh/frequent-hosts (ssh/known-hosts))
+		     nil nil "" 'ssh/host-history)))
+  (if (string= remote "")
+      (setq remote ssh/default-host))
+  (let ((name (generate-new-buffer-name (format "*%s*" remote)))
+	(default-directory "/tmp")
+	(explicit-shell-file-name "ssh")
+	(explicit-ssh-args (list remote)))
+    (shell name)
+    ;; Doing it this way is goofy, but whatevs.
+    (with-current-buffer name
+      ;; HP iLO needs a carriage return instead of newline.
+      (if (string-match "\.ilo$" remote)
+	  (setq-local comint-input-sender 'ssh/comint-cr-send))
+      (setq-local dabbrev-abbrev-char-regexp "\\sw\\|\\s_\\|[-._,]"))))
+(global-set-key (kbd "C-c s") 'ssh)
+
+;;
+;; Kill old buffers; not sure this is a fantastic idea
+;;
+(defun ssh/shell-kill-buffer-sentinel (process event)
+  (when (memq (process-status process) '(exit signal))
+    (kill-buffer (process-buffer process))))
+
+(defun ssh/kill-process-buffer-on-exit ()
+  (set-process-sentinel (get-buffer-process (current-buffer))
+                        #'ssh/shell-kill-buffer-sentinel))
+(add-hook 'comint-exec-hook 'ssh/kill-process-buffer-on-exit)
+
+(defun ssh/comint-cr-send (proc string)
+  "Send a comint string terminated with carriage return
+
+Some machines (HP iLO) need this, because reasons."
+  (let ((send-string
+         (if comint-input-sender-no-newline
+             string
+           (concat string "\r"))))
+    (comint-send-string proc send-string))
+  (if (and comint-input-sender-no-newline
+	   (not (string-equal string "")))
+      (process-send-eof)))
+
+(defun mmb-proceed ()
+  (interactive)
+  (with-current-buffer "*mmb*"
+    (start-file-process "mmb" (current-buffer) "~/work/bin/mmb" "-a" ircname)))
+
+(defun mmb (who)
+  (interactive "MMerge who? ")
+  (with-current-buffer (get-buffer-create "*mmb*")
+    (setq-local ircname who)
+    (display-buffer (current-buffer))
+    (erase-buffer)
+    (start-file-process "mmb" (current-buffer) "~/work/bin/mmb" ircname)
+    (local-set-key (kbd "C-c C-c") 'mmb-proceed)))
+
+;;
+;; Change review
+;;
+(defvar review-default-host "esperanza.canonical.com"
+  "Default review host")
+(defvar review-history '()
+  "History of review hosts")
+(defvar review-directory-alist
+  '(("esperanza.canonical.com" . "/srv/dns/domains"))
+  "Alist of directories to diff per host.
+
+Maps hostname to directory where reviews usually happen.
+Defaults to `/etc'.
+")
+;; XXX: Make it so C-u will prompt for directory
+;; XXX: Deal with potential need to sudo
+(defun review (remote)
+  (interactive
+   (list
+    (completing-read (format "Remote host (default %s): " review-default-host)
+		     (append ssh/frequent-hosts (ssh/canonical-known-hosts))
+		     nil nil "" 'review-history)))
+  (let* ((procname (concat "review " remote))
+	 (buffer (get-buffer-create (concat "*" procname "*")))
+	 (bzrdir (or (assoc-default remote review-directory-alist) "/etc")))
+    (with-current-buffer	buffer
+      (erase-buffer)
+      (start-process procname (current-buffer) "ssh" remote (concat "cd " bzrdir " && bzr di"))
+      (diff-mode)
+      (display-buffer (current-buffer)))))
+(global-set-key (kbd "C-c r") 'review)
+;; XXX: Hook this in with rcirc ".* review pl(ease|s)"