about summary refs log tree commit diff
path: root/emacs/.emacs.d/wpc/device.el
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2020-09-01T09·17+0100
committerWilliam Carroll <wpcarro@gmail.com>2020-09-01T09·17+0100
commitfb5ec068ddd50f6bce41c7a0bad45673db787940 (patch)
tree19b4ff96983c08f451e7da5f58c95b8f6090ec84 /emacs/.emacs.d/wpc/device.el
parenta638e15c0dd14a25e6f032b08de5ee1575677497 (diff)
More Elisp linting
This should cover most of the remaining linting errors. After this, I expect
fewer than ten linting errors.
Diffstat (limited to 'emacs/.emacs.d/wpc/device.el')
-rw-r--r--emacs/.emacs.d/wpc/device.el22
1 files changed, 13 insertions, 9 deletions
diff --git a/emacs/.emacs.d/wpc/device.el b/emacs/.emacs.d/wpc/device.el
index a5a761c54f47..0d551fae266a 100644
--- a/emacs/.emacs.d/wpc/device.el
+++ b/emacs/.emacs.d/wpc/device.el
@@ -1,5 +1,9 @@
 ;;; device.el --- Physical device information -*- lexical-binding: t -*-
+
 ;; Author: William Carroll <wpcarro@gmail.com>
+;; Version: 0.0.1
+;; URL: https://git.wpcarro.dev/wpcarro/briefcase
+;; Package-Requires: ((emacs "24"))
 
 ;;; Commentary:
 ;; Functions for querying device information.
@@ -13,30 +17,30 @@
 ;; Library
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(defconst device/hostname->device
+(defconst device-hostname->device
   '(("zeno.lon.corp.google.com" . work-desktop)
     ("seneca" . work-laptop))
   "Mapping hostname to a device symbol.")
 
 ;; TODO: Should I generate these predicates?
 
-(defun device/classify ()
+(defun device-classify ()
   "Return the device symbol for the current host or nil if not supported."
-  (alist/get system-name device/hostname->device))
+  (alist-get system-name device-hostname->device))
 
-(defun device/work-laptop? ()
+(defun device-work-laptop? ()
   "Return t if current device is work laptop."
   (equal 'work-laptop
-         (device/classify)))
+         (device-classify)))
 
-(defun device/work-desktop? ()
+(defun device-work-desktop? ()
   "Return t if current device is work desktop."
   (equal 'work-desktop
-         (device/classify)))
+         (device-classify)))
 
-(defun device/corporate? ()
+(defun device-corporate? ()
   "Return t if the current device is owned by my company."
-  (or (device/work-laptop?) (device/work-desktop?)))
+  (or (device-work-laptop?) (device-work-desktop?)))
 
 (provide 'device)
 ;;; device.el ends here