diff options
| author | William Carroll <wpcarro@gmail.com> | 2021-10-23T23·46-0700 |
|---|---|---|
| committer | clbot <clbot@tvl.fyi> | 2022-01-08T05·55+0000 |
| commit | aa348226a247ebbe3391d25e620f56d94a1982b7 (patch) | |
| tree | 77248bfcf8f478dea451192bcbbbc329187dd76e /users/wpcarro | |
| parent | 3693221522dd8d4ad3176680ff641018b876488e (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')
| -rw-r--r-- | users/wpcarro/emacs/.emacs.d/wpc/device.el | 13 |
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." |