                (profile-current-get 'project-root-dir)
                ))))
 
-(defun profile--abbreviate-remote-root (remote-name)
-  "Abbreviate REMOTE-NAME, a remote project root, as necessary.
+(defun profile--abbreviate-dir (name)
+  "Abbreviate NAME, a (possibly remote) project root, as necessary.
 It is usually preferable to have a short project prefix.  This
 may just come down to substituting `~' for the home directory.
 Note that `abbreviate-file-name' doesn't work for remote paths."
   (let ((home
          (string-trim (shell-command-to-string "echo ~"))))
-    (replace-regexp-in-string home "~" remote-name t)))
+    (replace-regexp-in-string home "~" name t)))
 
 ;; called when a profile is initialized
 (defun profile--on-profile-init (remote-host remote-prefix)

;; Author: Dan Harms <danielrharms@gmail.com>
;; Created: Saturday, February 28, 2015
;; Version: 1.0
;; Modified Time-stamp: <2016-06-10 13:03:04 dan.harms>
;; Keywords:

;; This program is free software; you can redistribute it and/or modify

  "Set useful mode line abbreviations according to profile PROFILE.
See `sml/replacer-regexp-alist'."
  (let* ((root (profile-get profile 'project-root-dir))
         (remote (profile-get profile 'remote-prefix))
         (sml-alist (profile-collect-sml-regexps
                     (profile-get profile 'ctags-alist)
                     profile remote root)))
    (mapc (lambda (elt)
            (when (car elt)
              (add-to-list 'sml/replacer-regexp-list
