about summary refs log tree commit diff
path: root/emacs/.emacs.d/wpc/dotted.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/dotted.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/dotted.el')
-rw-r--r--emacs/.emacs.d/wpc/dotted.el22
1 files changed, 15 insertions, 7 deletions
diff --git a/emacs/.emacs.d/wpc/dotted.el b/emacs/.emacs.d/wpc/dotted.el
index 573665ad3746..b24823b98953 100644
--- a/emacs/.emacs.d/wpc/dotted.el
+++ b/emacs/.emacs.d/wpc/dotted.el
@@ -1,5 +1,9 @@
 ;;; dotted.el --- Working with dotted pairs in Elisp -*- 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:
 ;; Part of my primitives library extensions in Elisp.  Contrast my primitives
@@ -9,6 +13,10 @@
 
 ;;; Code:
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Dependencies
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
 (require 'prelude)
 (require 'macros)
 
@@ -16,20 +24,20 @@
 ;; Library
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(cl-defun dotted/new (&optional a b)
+(cl-defun dotted-new (&optional a b)
   "Create a new dotted pair (i.e. cons cell)."
   (cons a b))
 
-(defun dotted/instance? (x)
+(defun dotted-instance? (x)
   "Return t if X is a dotted pair."
   (let ((b (cdr x)))
     (and b (atom b))))
 
-(defun dotted/first (x)
+(defun dotted-first (x)
   "Return the first element of X."
   (car x))
 
-(defun dotted/second (x)
+(defun dotted-second (x)
   "Return the second element of X."
   (cdr x))
 
@@ -39,11 +47,11 @@
 
 (progn
   (prelude-assert
-   (equal '(fname . "Bob") (dotted/new 'fname "Bob")))
+   (equal '(fname . "Bob") (dotted-new 'fname "Bob")))
   (prelude-assert
-   (dotted/instance? '(one . two)))
+   (dotted-instance? '(one . two)))
   (prelude-refute
-   (dotted/instance? '(1 2 3))))
+   (dotted-instance? '(1 2 3))))
 
 (provide 'dotted)
 ;;; dotted.el ends here