core/autoload/plist.el => mplist.el

core/autoload/plist.el

@@ -1,44 +0,0 @@
-;;; plist.el
-(provide 'doom-lib-plist)
-
-;;;###autoload
-(defmacro @plist (var action &rest args)
-  "A helper macro that makes dealing with doom-plist-* functions a little more concise.
-
-Examples:
-  (@plist plist &delete :x :y)
-  (@plist plist &get :x)"
-  (declare (indent defun))
-  (let ((fn-sym (intern (format "doom-plist-%s" (substring (symbol-name action) 1)))))
-    (when (fboundp fn-sym)
-      (if (memq action '(&delete &put))
-          `(setq ,var (,fn-sym ,var ,@args))
-        `(,fn-sym ,var ,@args)))))
-
-;;;###autoload
-(defun doom-plist-delete (plist &rest keys)
-  (if (apply 'doom-plist-member plist keys)
-      (let (forms)
-        (while plist
-          (if (and (keywordp (car plist)) (memq (car plist) keys))
-              (progn
-                (pop plist)
-                (while (and plist (not (keywordp (car plist))))
-                  (pop plist)))
-            (setq forms (append forms (list (pop plist))))))
-        forms)
-    plist))
-
-;;;###autoload
-(defun doom-plist-put (plist key value &rest key-values))
-
-;;;###autoload
-(defun doom-plist-get (plist &rest keys))
-
-;;;###autoload
-(defun doom-plist-member (plist &rest keys)
-  (--any-p (memq it plist) keys))
-
-
-;; (let ((a '(abc :commands 1 :config 3 4 5)))
-;;   (@plist a &delete :commands :config))