about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--users/wpcarro/emacs/.emacs.d/wpc/device.el10
-rw-r--r--users/wpcarro/emacs/.emacs.d/wpc/wpc-ui.el5
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