diff options
| author | William Carroll <wpcarro@gmail.com> | 2020-04-02T13·50+0100 |
|---|---|---|
| committer | William Carroll <wpcarro@gmail.com> | 2020-04-02T13·50+0100 |
| commit | 86da482fbf70db696ffa047073e21040f1d9a432 (patch) | |
| tree | 38f02c0219ea10e41a15aea6c29205c97685369d /emacs/.emacs.d/wpc/device.el | |
| parent | 401ec6a7a15041341124308197b726c4f908d97c (diff) | |
Define device/corporate?
Write a predicate function for checking whether or not I'm on a corporate device.
Diffstat (limited to 'emacs/.emacs.d/wpc/device.el')
| -rw-r--r-- | emacs/.emacs.d/wpc/device.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/emacs/.emacs.d/wpc/device.el b/emacs/.emacs.d/wpc/device.el index 03eb55beb7f4..a5a761c54f47 100644 --- a/emacs/.emacs.d/wpc/device.el +++ b/emacs/.emacs.d/wpc/device.el @@ -34,5 +34,9 @@ (equal 'work-desktop (device/classify))) +(defun device/corporate? () + "Return t if the current device is owned by my company." + (or (device/work-laptop?) (device/work-desktop?))) + (provide 'device) ;;; device.el ends here |