feat(wpcarro/emacs): Delete device.el
More spring cleaning... Change-Id: I71b35cd53760980e4fdcbda367477c2e961b43d5 Reviewed-on: https://cl.tvl.fyi/c/depot/+/7413 Reviewed-by: wpcarro <wpcarro@gmail.com> Tested-by: BuildkiteCI
This commit is contained in:
parent
89e37ee877
commit
bab6ae136f
3 changed files with 1 additions and 67 deletions
|
@ -1,62 +0,0 @@
|
|||
;;; device.el --- Physical device information -*- lexical-binding: t -*-
|
||||
|
||||
;; Author: William Carroll <wpcarro@gmail.com>
|
||||
;; Version: 0.0.1
|
||||
;; Package-Requires: ((emacs "25.1"))
|
||||
|
||||
;;; Commentary:
|
||||
;; Functions for querying device information.
|
||||
|
||||
;;; Code:
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; Dependencies
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(require 'dash)
|
||||
(require 'al)
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; 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-lon)
|
||||
("wpcarro.svl.corp.google.com" . work-desktop-svl)
|
||||
("seneca" . work-laptop)
|
||||
("marcus" . personal-laptop)
|
||||
("diogenes" . personal-vm))
|
||||
"Mapping hostname to a device symbol.")
|
||||
|
||||
;; TODO: Should I generate these predicates?
|
||||
|
||||
(defun device-classify ()
|
||||
"Return the device symbol for the current host or nil if not supported."
|
||||
(al-get system-name device-hostname->device))
|
||||
|
||||
(defun device-work-laptop? ()
|
||||
"Return t if current device is work laptop."
|
||||
(equal 'work-laptop
|
||||
(device-classify)))
|
||||
|
||||
(defun device-work-desktop? ()
|
||||
"Return t if current device is work desktop."
|
||||
(-contains? '(work-desktop-lon
|
||||
work-desktop-svl)
|
||||
(device-classify)))
|
||||
|
||||
(defun device-corporate? ()
|
||||
"Return t if the current device is owned by my company."
|
||||
(-contains? '(work-desktop-lon
|
||||
work-desktop-svl
|
||||
work-laptop)
|
||||
(device-classify)))
|
||||
|
||||
(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
|
|
@ -31,7 +31,6 @@
|
|||
(require 'exwm)
|
||||
(require 'vterm-mgt)
|
||||
(require 'buffer)
|
||||
(require 'device)
|
||||
(require 'fonts)
|
||||
(require 'bookmark)
|
||||
(require 'tvl)
|
||||
|
|
|
@ -18,7 +18,6 @@
|
|||
(require 'al)
|
||||
(require 'fonts)
|
||||
(require 'theme)
|
||||
(require 'device)
|
||||
(require 'laptop-battery)
|
||||
(require 'modeline)
|
||||
(require 'general)
|
||||
|
@ -160,9 +159,7 @@
|
|||
:config
|
||||
(setq alert-default-style 'notifier))
|
||||
|
||||
;; TODO: Should `device-laptop?' be a function or a constant that gets set
|
||||
;; during initialization?
|
||||
(when (device-laptop?) (laptop-battery-display))
|
||||
(laptop-battery-display)
|
||||
|
||||
(setq theme-whitelist
|
||||
(->> (custom-available-themes)
|
||||
|
|
Loading…
Reference in a new issue