mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(wpcarro/emacs): Define new device

Browse source 
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>
This commit is contained in:
William Carroll 2021-10-23 16:46:01 -07:00 • committed by clbot
parent 3693221522
commit aa348226a2
1 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

13
users/wpcarro/emacs/.emacs.d/wpc/device.el
View file

@ -23,7 +23,8 @@
;; TODO(wpcarro): Consider integrating this with Nix and depot instead of ;; TODO(wpcarro): Consider integrating this with Nix and depot instead of
;; denormalizing the state. ;; denormalizing the state.
(defconst device-hostname->device (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) ("seneca" . work-laptop)
("marcus" . personal-laptop) ("marcus" . personal-laptop)
("diogenes" . personal-vm)) ("diogenes" . personal-vm))
@ -42,12 +43,16 @@
(defun device-work-desktop? () (defun device-work-desktop? ()
"Return t if current device is work desktop." "Return t if current device is work desktop."
(equal 'work-desktop (-contains? '(work-desktop-lon
(device-classify))) work-desktop-svl)
(device-classify)))
(defun device-corporate? () (defun device-corporate? ()
"Return t if the current device is owned by my company." "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? () (defun device-laptop? ()
"Return t if the current device is a laptop." "Return t if the current device is a laptop."