b121c5e1c6
This allows us to load them via doom-require. Why not use normal features? Because Doom's libraries are designed to be loaded as part of Doom, and will openly rely on Doom state if needed; this is a contract I want to enforce by ensuring their only entry points are through `doom-require` or autoloading. I will add them to the rest of the libraries later. Site-node: this also adds Commentary+Code to the comment headings, as I want a space to use that space to describe the library, when I get around to it.
67 lines
1.6 KiB
EmacsLisp
67 lines
1.6 KiB
EmacsLisp
;;; lisp/lib/plist.el -*- lexical-binding: t; -*-
|
|
;;; Commentary:
|
|
;;; Code:
|
|
|
|
;;
|
|
;;; Macros
|
|
|
|
;;; DEPRECATED In favor of `cl-callf'
|
|
;;;###autoload
|
|
(defmacro plist-put! (plist &rest rest)
|
|
"Set each PROP VALUE pair in REST to PLIST in-place."
|
|
`(cl-loop for (prop value)
|
|
on (list ,@rest) by #'cddr
|
|
do ,(if (symbolp plist)
|
|
`(setq ,plist (plist-put ,plist prop value))
|
|
`(plist-put ,plist prop value))))
|
|
|
|
|
|
;;
|
|
;;; Library
|
|
|
|
;;;###autoload
|
|
(defun doom-plist-get (plist prop &optional nil-value)
|
|
"Return PROP in PLIST, if it exists. Otherwise NIL-VALUE."
|
|
(if-let (val (plist-member plist prop))
|
|
(cadr val)
|
|
nil-value))
|
|
|
|
;;;###autoload
|
|
(defun doom-plist-merge (from-plist to-plist)
|
|
"Non-destructively merge FROM-PLIST onto TO-PLIST"
|
|
(let ((plist (copy-sequence from-plist)))
|
|
(while plist
|
|
(cl-callf plist-put to-plist (pop plist) (pop plist)))
|
|
to-plist))
|
|
|
|
;;;###autoload
|
|
(defun doom-plist-delete-nil (plist)
|
|
"Delete `nil' properties from a copy of PLIST."
|
|
(let (p)
|
|
(while plist
|
|
(if (car plist)
|
|
(cl-callf plist-put p (car plist) (nth 1 plist)))
|
|
(setq plist (cddr plist)))
|
|
p))
|
|
|
|
;;;###autoload
|
|
(defun doom-plist-keys (plist)
|
|
"Return the keys in PLIST."
|
|
(let (keys)
|
|
(while plist
|
|
(push (car plist) keys)
|
|
(setq plist (cddr plist)))
|
|
keys))
|
|
|
|
;;;###autoload
|
|
(defun doom-plist-values (plist)
|
|
"Return the values in PLIST."
|
|
(let (keys)
|
|
(while plist
|
|
(push (cadr plist) keys)
|
|
(setq plist (cddr plist)))
|
|
keys))
|
|
|
|
(provide 'doom-lib '(plist))
|
|
;;; plist.el ends here
|