diff options
author | William Carroll <wpcarro@gmail.com> | 2020-01-30T16·00+0000 |
---|---|---|
committer | William Carroll <wpcarro@gmail.com> | 2020-01-30T16·00+0000 |
commit | 578ed1ba98510058cf48f897a9bf4e3391684120 (patch) | |
tree | 5eadabd3d232151c75ac2424eaa8771ab25e927e /configs/shared/.emacs.d/wpc/device.el | |
parent | 3684adf23f847114e1beeaab162398628ba571aa (diff) |
Move move .emacs.d out of configs/shared
Moving all of my Emacs-related files into their own directory at the root of this repository.
Diffstat (limited to 'configs/shared/.emacs.d/wpc/device.el')
-rw-r--r-- | configs/shared/.emacs.d/wpc/device.el | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/configs/shared/.emacs.d/wpc/device.el b/configs/shared/.emacs.d/wpc/device.el deleted file mode 100644 index 03eb55beb7f4..000000000000 --- a/configs/shared/.emacs.d/wpc/device.el +++ /dev/null @@ -1,38 +0,0 @@ -;;; device.el --- Physical device information -*- lexical-binding: t -*- -;; Author: William Carroll <wpcarro@gmail.com> - -;;; Commentary: -;; Functions for querying device information. - -;;; Code: - -(require 'dash) -(require 'alist) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Library -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(defconst device/hostname->device - '(("zeno.lon.corp.google.com" . work-desktop) - ("seneca" . work-laptop)) - "Mapping hostname to a device symbol.") - -;; TODO: Should I generate these predicates? - -(defun device/classify () - "Return the device symbol for the current host or nil if not supported." - (alist/get system-name device/hostname->device)) - -(defun device/work-laptop? () - "Return t if current device is work laptop." - (equal 'work-laptop - (device/classify))) - -(defun device/work-desktop? () - "Return t if current device is work desktop." - (equal 'work-desktop - (device/classify))) - -(provide 'device) -;;; device.el ends here |