c1e381eecc
TL;DR: - prefer WPCARRO env-var to BRIEFCASE - remove repository URLs from Emacs libraries - prefer tvl-depot-path where possible - reduce the scope of constants.el - prune (some not all) stale CI configuration Change-Id: I21e9130402502ec6fa2fc4b46753c890069be62d Reviewed-on: https://cl.tvl.fyi/c/depot/+/4545 Tested-by: BuildkiteCI Reviewed-by: wpcarro <wpcarro@gmail.com>
57 lines
1.6 KiB
EmacsLisp
57 lines
1.6 KiB
EmacsLisp
;;; dotted.el --- Working with dotted pairs in Elisp -*- lexical-binding: t -*-
|
|
|
|
;; Author: William Carroll <wpcarro@gmail.com>
|
|
;; Version: 0.0.1
|
|
;; Package-Requires: ((emacs "24.3"))
|
|
|
|
;;; Commentary:
|
|
;; Part of my primitives library extensions in Elisp. Contrast my primitives
|
|
;; with the wrapper extensions that I provide, which expose immutable variants
|
|
;; of data structures like an list, alist, tuple, as well as quasi-typeclasses
|
|
;; like sequence, etc.
|
|
|
|
;;; Code:
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Dependencies
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(require 'prelude)
|
|
(require 'macros)
|
|
(require 'cl-lib)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Library
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(cl-defun dotted-new (&optional a b)
|
|
"Create a new dotted pair of A and B."
|
|
(cons a b))
|
|
|
|
(defun dotted-instance? (x)
|
|
"Return t if X is a dotted pair."
|
|
(let ((b (cdr x)))
|
|
(and b (atom b))))
|
|
|
|
(defun dotted-first (x)
|
|
"Return the first element of X."
|
|
(car x))
|
|
|
|
(defun dotted-second (x)
|
|
"Return the second element of X."
|
|
(cdr x))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Tests
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(progn
|
|
(prelude-assert
|
|
(equal '(fname . "Bob") (dotted-new 'fname "Bob")))
|
|
(prelude-assert
|
|
(dotted-instance? '(one . two)))
|
|
(prelude-refute
|
|
(dotted-instance? '(1 2 3))))
|
|
|
|
(provide 'dotted)
|
|
;;; dotted.el ends here
|