From 86da482fbf70db696ffa047073e21040f1d9a432 Mon Sep 17 00:00:00 2001 From: William Carroll Date: Thu, 2 Apr 2020 14:50:18 +0100 Subject: Define device/corporate? Write a predicate function for checking whether or not I'm on a corporate device. --- emacs/.emacs.d/wpc/device.el | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'emacs/.emacs.d/wpc/device.el') 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 -- cgit 1.4.1