summary refs log tree commit diff stats
path: root/tag-emacs/emacs.d
diff options
context:
space:
mode:
Diffstat (limited to 'tag-emacs/emacs.d')
-rw-r--r--tag-emacs/emacs.d/init.el30
1 files changed, 0 insertions, 30 deletions
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"