From 1eff3e67ebf51045e13220e4685e9b691d267a7c Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Mon, 21 Apr 2014 19:32:02 +0100
Subject: Emacs: remove "env/" function set

---
 tag-emacs/emacs.d/init.el | 30 ------------------------------
 1 file changed, 30 deletions(-)

(limited to 'tag-emacs')

diff --git a/tag-emacs/emacs.d/init.el b/tag-emacs/emacs.d/init.el
index ce0727e..21835eb 100644
--- a/tag-emacs/emacs.d/init.el
+++ b/tag-emacs/emacs.d/init.el
@@ -19,36 +19,6 @@
 
 ;;;; Environment & Location
 
-(defun env/get-location ()
-  "Return the physical location of the system, or `nil' if unknown"
-  (if (executable-find "netctl")
-      (catch 'found
-        (mapc (lambda (line)
-                (cond
-                 ((string-prefix-p "* home" line) (throw 'found 'home))
-                 ((string-prefix-p "* work" line) (throw 'found 'work))))
-              (process-lines "netctl" "list"))
-        nil)))
-
-(defun env/get-system-type ()
-  "Return the type of computer that is running"
-  (cond
-   ((string-prefix-p "prefect" system-name) 'desktop)
-   ((string-prefix-p "server"  system-name) 'server)
-   ((string-prefix-p "sheldon" system-name) 'laptop)))
-
-(defvar env/location (env/get-location)
-  "The type of location the system is located in
-Values: `work', `home'")
-
-(defvar env/system-type (env/get-system-type)
-  "The type of computer Emacs is running on
-Values: `desktop', `server', `laptop'")
-
-(defun env/recheck-location ()
-  (interactive)
-  (setq env/location (env/get-location)))
-
 (defvar *init-file*
   (when user-init-file
     (expand-file-name "init.el"
-- 
cgit 1.4.1