   (when (string-match "^\\([^.]+\\)\\.?.*$" hst)
     (match-string-no-properties 1 hst)))
 
-(let* ((system (my/unqualify-host-name system-name))
+(let* ((system (my/unqualify-host-name (system-name)))
        (hosts-dir (concat my/user-directory "settings/host/"))
        (host-dir
         (file-name-as-directory

;; 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:


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