From aa348226a247ebbe3391d25e620f56d94a1982b7 Mon Sep 17 00:00:00 2001 From: William Carroll Date: Sat, 23 Oct 2021 16:46:01 -0700 Subject: feat(wpcarro/emacs): Define new device For my latest workstation. Change-Id: Idd18c07f05f2afdf57fde25a5aad627759ca1643 Reviewed-on: https://cl.tvl.fyi/c/depot/+/4795 Tested-by: BuildkiteCI Reviewed-by: wpcarro Autosubmit: wpcarro --- users/wpcarro/emacs/.emacs.d/wpc/device.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) (limited to 'users/wpcarro/emacs') diff --git a/users/wpcarro/emacs/.emacs.d/wpc/device.el b/users/wpcarro/emacs/.emacs.d/wpc/device.el index cf693dbb33..09819ad748 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." -- cgit 1.4.1