Emacs: replace string-matches on system name with env/* comparisons
Alan Pearce alan@alanpearce.co.uk
Wed, 15 May 2013 18:25:34 +0100
1 files changed, 3 insertions(+), 2 deletions(-)
jump to
M emacs/init.el → emacs/init.el
@@ -290,7 +290,8 @@ (setq smtpmail-smtp-server "external.home" smtpmail-smtp-service 587) (use-package mu4e - :if (string= system-name "prefect.home.alanpearce.co.uk") + :if (and (eq env/location 'home) + (eq env/system-type 'desktop)) :load-path "/usr/share/emacs/site-lisp/mu4e" :config (progn (setq mu4e-get-mail-command "true" @@ -1035,7 +1036,7 @@ :config (progn (bind-key "C-h C-f" #'php-search-documentation php-mode-map) (unbind-key "C-c C-f" php-mode-map) (unbind-key "C-." php-mode-map) - (if (member system-name '("PREFECT" "prefect")) + (if (eq env/location 'home) (setq php-manual-url "http://docs.home/manual/en/")) (add-hook 'php-mode-hook (lambda () (set (make-local-variable 'eldoc-documentation-function) #'my-php-eldoc-function)))