diff options
Diffstat (limited to 'users/wpcarro/emacs/.emacs.d/wpc/device.el')
| -rw-r--r-- | users/wpcarro/emacs/.emacs.d/wpc/device.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/users/wpcarro/emacs/.emacs.d/wpc/device.el b/users/wpcarro/emacs/.emacs.d/wpc/device.el index 0e7992fd79e7..39df8e11937a 100644 --- a/users/wpcarro/emacs/.emacs.d/wpc/device.el +++ b/users/wpcarro/emacs/.emacs.d/wpc/device.el @@ -21,9 +21,13 @@ ;; Library ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; TODO(wpcarro): Consider integrating this with Nix and depot instead of +;; denormalizing the state. (defconst device-hostname->device '(("zeno.lon.corp.google.com" . work-desktop) - ("seneca" . work-laptop)) + ("seneca" . work-laptop) + ("marcus" . personal-laptop) + ("diogenes" . personal-vm)) "Mapping hostname to a device symbol.") ;; TODO: Should I generate these predicates? @@ -46,5 +50,9 @@ "Return t if the current device is owned by my company." (or (device-work-laptop?) (device-work-desktop?))) +(defun device-laptop? () + "Return t if the current device is a laptop." + (-contains? '(work-laptop personal-laptop) (device-classify))) + (provide 'device) ;;; device.el ends here |