 ;; 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>
+;; Modified Time-stamp: <2016-08-18 17:48:49 dharms>
 ;; Keywords:
 
 ;; This program is free software; you can redistribute it and/or modify

LST is a list in the format of `ctags-alist'.  ROOT is the root
directory of the current profile."
  (mapcar (lambda (path)
            (if (and path (f-absolute? path))
                path
              (concat root path)))
          (mapcar 'cadr lst)))

  "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
