Permalink
Browse files

minor refactoring of the hostname lookup

  • Loading branch information...
1 parent 9fe7cb1 commit e8d7ed85c9ca797e235deaa4e043e78a258498b3 @tavisrudd committed Jan 12, 2011
Showing with 2 additions and 1 deletion.
  1. +2 −1 dss-user-specific-init.el
@@ -1,5 +1,6 @@
;;; idea from http://github.com/technomancy/emacs-starter-kit/blob/master/init.el
-(defvar dss-system-specific-config (concat dss-dotfiles-dir system-name ".el"))
+(setq dss-hostname (car (split-string system-name "\\.")))
+(defvar dss-system-specific-config (concat dss-dotfiles-dir dss-hostname ".el"))
(defvar dss-user-specific-config (concat dss-dotfiles-dir user-login-name ".el"))
(defvar dss-user-specific-dir (concat dss-dotfiles-dir user-login-name "/"))
(add-to-list 'load-path dss-user-specific-dir)

0 comments on commit e8d7ed8

Please sign in to comment.