diff options
| -rw-r--r-- | users/wpcarro/emacs/.emacs.d/wpc/device.el | 10 | ||||
| -rw-r--r-- | users/wpcarro/emacs/.emacs.d/wpc/wpc-ui.el | 5 |
2 files changed, 11 insertions, 4 deletions
diff --git a/users/wpcarro/emacs/.emacs.d/wpc/device.el b/users/wpcarro/emacs/.emacs.d/wpc/device.el index 0e7992fd79e7..39df8e11937a 100644 --- a/users/wpcarro/emacs/.emacs.d/wpc/device.el +++ b/users/wpcarro/emacs/.emacs.d/wpc/device.el @@ -21,9 +21,13 @@ ;; Library ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; 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) - ("seneca" . work-laptop)) + ("seneca" . work-laptop) + ("marcus" . personal-laptop) + ("diogenes" . personal-vm)) "Mapping hostname to a device symbol.") ;; TODO: Should I generate these predicates? @@ -46,5 +50,9 @@ "Return t if the current device is owned by my company." (or (device-work-laptop?) (device-work-desktop?))) +(defun device-laptop? () + "Return t if the current device is a laptop." + (-contains? '(work-laptop personal-laptop) (device-classify))) + (provide 'device) ;;; device.el ends here diff --git a/users/wpcarro/emacs/.emacs.d/wpc/wpc-ui.el b/users/wpcarro/emacs/.emacs.d/wpc/wpc-ui.el index 9483e338ade1..b5f426b3dfda 100644 --- a/users/wpcarro/emacs/.emacs.d/wpc/wpc-ui.el +++ b/users/wpcarro/emacs/.emacs.d/wpc/wpc-ui.el @@ -158,10 +158,9 @@ :config (setq alert-default-style 'notifier)) -;; TODO: Should `device-work-laptop?' be a function or a constant that gets set +;; TODO: Should `device-laptop?' be a function or a constant that gets set ;; during initialization? -(when (device-work-laptop?) - (laptop-battery-display)) +(when (device-laptop?) (laptop-battery-display)) (if window-system (progn |