                         (or (file-remote-p default-directory 'user)
                             user-real-login-name)
                         (or (file-remote-p default-directory 'host)
-                            system-name)
+                            (system-name))
                         (if dired-directory
                             (concat "{" (buffer-name) "}")
                           (buffer-name))

;; Author: Dan Harms <danielrharms@gmail.com>
;; Created: Friday, February 27, 2015
;; Version: 1.0
;; Modified Time-stamp: <2016-10-14 00:10:35 dharms>
;; Modified by: Dan Harms
;; Keywords:


  (when (string-match "^\\([^.]+\\)\\.?.*$" hst)
    (match-string-no-properties 1 hst)))

(let* ((system (my/unqualify-host-name (system-name)))
       (hosts-dir (concat my/user-directory "settings/host/"))
       (host-dir
        (file-name-as-directory
