about summary refs log tree commit diff
path: root/emacs/.emacs.d/wpc
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2020-04-02T13·50+0100
committerWilliam Carroll <wpcarro@gmail.com>2020-04-02T13·50+0100
commit86da482fbf70db696ffa047073e21040f1d9a432 (patch)
tree38f02c0219ea10e41a15aea6c29205c97685369d /emacs/.emacs.d/wpc
parent401ec6a7a15041341124308197b726c4f908d97c (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')
-rw-r--r--emacs/.emacs.d/wpc/device.el4
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