about summary refs log tree commit diff
path: root/users/wpcarro/emacs/.emacs.d/wpc/device.el
diff options
context:
space:
mode:
Diffstat (limited to 'users/wpcarro/emacs/.emacs.d/wpc/device.el')
-rw-r--r--users/wpcarro/emacs/.emacs.d/wpc/device.el10
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