                (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)

                    root)
                   (list root))))))

(defun profile-collect-sml-regexps (lst profile root)
  "Extract a list of cons cells representing a modeline replacement pair.
LST is a list of lists of properties, see `ctags-alist'.  PROFILE is the
current profile.  ROOT is the current profile root.  The return value
will be a list cons cells, see `sml/replacer-regexp-list'."
  (let (path title)
    (mapcar (lambda(elt)
              (setq path (cadr elt))
              (setq title (car elt))
              (cons
               (when path
                 (if (f-absolute? path) path
                   (f-short path)))
               (concat (upcase title) ":")))
            lst)))


;; Author: Dan Harms <danielrharms@gmail.com>
;; Created: Saturday, February 28, 2015
;; Version: 1.0
;; Modified Time-stamp: <2016-08-18 17:48:49 dharms>
;; Keywords:

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