From 6c1c601792b1bea7fe0a62a0f22a783991e0d8c1 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Wed, 15 May 2013 18:25:34 +0100
Subject: Emacs: replace string-matches on system name with env/* comparisons

---
 emacs/init.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/emacs/init.el b/emacs/init.el
index ebae773..3fa525b 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -290,7 +290,8 @@ Values: `desktop', `server', `laptop'")
       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 @@ Works with: arglist-cont-nonempty, arglist-close."
             (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)))
-- 
cgit 1.4.1