about summary refs log tree commit diff
path: root/users/wpcarro/emacs/.emacs.d
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2021-10-23T23·46-0700
committerclbot <clbot@tvl.fyi>2022-01-08T05·55+0000
commitaa348226a247ebbe3391d25e620f56d94a1982b7 (patch)
tree77248bfcf8f478dea451192bcbbbc329187dd76e /users/wpcarro/emacs/.emacs.d
parent3693221522dd8d4ad3176680ff641018b876488e (diff)
feat(wpcarro/emacs): Define new device r/3551
For my latest workstation.

Change-Id: Idd18c07f05f2afdf57fde25a5aad627759ca1643
Reviewed-on: https://cl.tvl.fyi/c/depot/+/4795
Tested-by: BuildkiteCI
Reviewed-by: wpcarro <wpcarro@gmail.com>
Autosubmit: wpcarro <wpcarro@gmail.com>
Diffstat (limited to 'users/wpcarro/emacs/.emacs.d')
-rw-r--r--users/wpcarro/emacs/.emacs.d/wpc/device.el13
1 files changed, 9 insertions, 4 deletions
diff --git a/users/wpcarro/emacs/.emacs.d/wpc/device.el b/users/wpcarro/emacs/.emacs.d/wpc/device.el
index cf693dbb3379..09819ad74816 100644
--- a/users/wpcarro/emacs/.emacs.d/wpc/device.el
+++ b/users/wpcarro/emacs/.emacs.d/wpc/device.el
@@ -23,7 +23,8 @@
 ;; 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)
+  '(("zeno.lon.corp.google.com" . work-desktop-lon)
+    ("wpcarro.svl.corp.google.com" . work-desktop-svl)
     ("seneca" . work-laptop)
     ("marcus" . personal-laptop)
     ("diogenes" . personal-vm))
@@ -42,12 +43,16 @@
 
 (defun device-work-desktop? ()
   "Return t if current device is work desktop."
-  (equal 'work-desktop
-         (device-classify)))
+  (-contains? '(work-desktop-lon
+                work-desktop-svl)
+              (device-classify)))
 
 (defun device-corporate? ()
   "Return t if the current device is owned by my company."
-  (or (device-work-laptop?) (device-work-desktop?)))
+  (-contains? '(work-desktop-lon
+                work-desktop-svl
+                work-laptop)
+              (device-classify)))
 
 (defun device-laptop? ()
   "Return t if the current device is a laptop."