From f3fc53bf5dd3c5196d4334a97958b32b804bb0e3 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Tue, 4 Apr 2017 22:16:53 -0400
Subject: [PATCH] Remove mplist library (unused and poorly written)

---
 core/autoload/mplist.el | 68 -----------------------------------------
 1 file changed, 68 deletions(-)
 delete mode 100644 core/autoload/mplist.el

diff --git a/core/autoload/mplist.el b/core/autoload/mplist.el
deleted file mode 100644
index 069eaed52..000000000
--- a/core/autoload/mplist.el
+++ /dev/null
@@ -1,68 +0,0 @@
-;;; plist.el
-(provide 'doom-lib-mplist)
-
-;; The built-in plist library won't work when the list is a malformed plist,
-;; which is a plist that has multiple (or no) forms following its properties.
-;; For example: (:x 5 :y 1 2 3 :z).
-;;
-;; This library was written for mplists, but use the standard plist-* functions
-;; for regular plists -- they're faster.
-;;
-;; (let ((a '(abc :commands 1 :config 3 4 5)))
-;;   (mplist! a &delete :commands :config))
-
-;;;###autoload
-(defmacro mplist! (var action &rest args)
-  "A convenience macro for dealing with doom-mplist-* functions.
-
-Examples:
-  (mplist! plist &delete :x :y)
-  (mplist! plist &get :x)"
-  (declare (indent defun))
-  (let ((fn-sym (intern (format "doom-mplist-%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-mplist-delete (mplist &rest keys)
-  "Thoroughly removes a property and its values from an mplist."
-  (if (apply 'doom-mplist-member mplist keys)
-      (let (forms)
-        (while mplist
-          (if (not (and (keywordp (car mplist)) (memq (car mplist) keys)))
-              (setq forms (append forms (list (pop mplist))))
-            (pop mplist)
-            (while (and mplist (not (keywordp (car mplist))))
-              (pop mplist))))
-        forms)
-    mplist))
-
-;;;###autoload
-(defun doom-mplist-put (mplist key value)
-  "Like `plist-put', but for mplists."
-  (when (doom-mplist-member mplist key)
-    (doom-mplist-delete mplist key))
-  (setq mplist (append mplist (list key value))))
-
-;;;###autoload
-(defun doom-mplist-get (mplist &rest keys)
-  "Like `plist-get', but for mplists. If KEYS is only one keyword, return the
-mplist associated with it. If KEYS is multiple, return a list of associated
-mplists."
-  (if (cdr keys)
-      (let ((keys (mapcar (lambda (key) (memq key mplist)) keys))
-            values)
-        (dolist (forms keys)
-          (when forms
-            (push (cdr forms) values)))
-        values)
-    (cdr (memq (car keys) mplist))))
-
-;;;###autoload
-(defun doom-mplist-member (mplist &rest keys)
-  "Return t if any of KEYS (keywords) are in MPLIST."
-  (cl-some (lambda (key) (memq key mplist)) keys))
-
-