about summary refs log tree commit diff
path: root/emacs/.emacs.d/wpc/bag.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/bag.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/bag.el')
-rw-r--r--emacs/.emacs.d/wpc/bag.el26
1 files changed, 15 insertions, 11 deletions
diff --git a/emacs/.emacs.d/wpc/bag.el b/emacs/.emacs.d/wpc/bag.el
index 3f2d7c664813..3061f01a7492 100644
--- a/emacs/.emacs.d/wpc/bag.el
+++ b/emacs/.emacs.d/wpc/bag.el
@@ -1,5 +1,9 @@
 ;;; bag.el --- Working with bags (aka multi-sets) -*- lexical-binding: t -*-
+
 ;; Author: William Carroll <wpcarro@gmail.com>
+;; Version: 0.0.1
+;; URL: https://git.wpcarro.dev/wpcarro/briefcase
+;; Package-Requires: ((emacs "24.3"))
 
 ;;; Commentary:
 ;; What is a bag?  A bag should be thought of as a frequency table.  It's a way
@@ -31,36 +35,36 @@
 
 (cl-defstruct bag xs)
 
-(defun bag/update (f xs)
+(defun bag-update (f xs)
   "Call F on alist in XS."
   (let ((ys (bag-xs xs)))
     (setf (bag-xs xs) (funcall f ys))))
 
-(defun bag/new ()
+(defun bag-new ()
   "Create an empty bag."
-  (make-bag :xs (alist/new)))
+  (make-bag :xs (alist-new)))
 
-(defun bag/contains? (x xs)
+(defun bag-contains? (x xs)
   "Return t if XS has X."
-  (alist/has-key? x (bag-xs xs)))
+  (alist-has-key? x (bag-xs xs)))
 
 ;; TODO: Tabling this for now since working with structs seems to be
 ;; disappointingly difficult.  Where is `struct-update'?
-;; (defun bag/add (x xs)
+;; (defun bag-add (x xs)
 ;;   "Add X to XS.")
 
 ;; TODO: What do we name delete vs. remove?
-;; (defun bag/remove (x xs)
+;; (defun bag-remove (x xs)
 ;;   "Remove X from XS.
 ;; This is a no-op is X doesn't exist in XS.")
 
-(defun bag/from-list (xs)
+(defun bag-from-list (xs)
   "Map a list of `XS' into a bag."
   (->> xs
-       (list/reduce
-        (bag/new)
+       (list-reduce
+        (bag-new)
         (lambda (x acc)
-          (bag/add x 1 #'number/inc acc)))))
+          (bag-add x 1 #'number-inc acc)))))
 
 (provide 'bag)
 ;;; bag.el ends here