diff options
author | mattkae <mattkae@protonmail.com> | 2022-06-07 08:23:47 -0400 |
---|---|---|
committer | mattkae <mattkae@protonmail.com> | 2022-06-07 08:23:47 -0400 |
commit | bd18a38c2898548a3664a9ddab9f79c84f2caf4a (patch) | |
tree | 95b9933376770381bd8859782ae763be81c2d72b /elpa/req-package-20180605.1141/req-package-args.el | |
parent | b07628dddf418d4f47b858e6c35fd3520fbaeed2 (diff) | |
parent | ef160dea332af4b4fe5e2717b962936c67e5fe9e (diff) |
Merge conflict
Diffstat (limited to 'elpa/req-package-20180605.1141/req-package-args.el')
-rw-r--r-- | elpa/req-package-20180605.1141/req-package-args.el | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/elpa/req-package-20180605.1141/req-package-args.el b/elpa/req-package-20180605.1141/req-package-args.el deleted file mode 100644 index bdcbab1..0000000 --- a/elpa/req-package-20180605.1141/req-package-args.el +++ /dev/null @@ -1,31 +0,0 @@ -;;; req-package-args.el --- summary: -;;; commentary: -;;; code: - -(require 'dash) - -(defconst req-package-keywords '(:require :force)) - -(defun req-package-args-take-args (args acc) - "Take all args until next keyword." - (cond ((or (null args) - (and (keywordp (car args)) - (or (-contains? use-package-keywords (car args)) - (-contains? req-package-keywords (car args))))) (list (reverse acc) args)) - (t (req-package-args-take-args (cdr args) (cons (car args) acc))))) - -(defun req-package-args-extract-arg (key args acc) - "Extract KEY value from ARGS list accummulating with ACC." - (if (null args) - (list nil (reverse acc)) - (if (eq (car args) key) - (let* ((REST (cdr args)) - (ALL (req-package-args-take-args REST nil)) - (KEY-ARGS (car ALL)) - (REST-ARGS (cadr ALL))) - (list KEY-ARGS - (append (reverse acc) REST-ARGS))) - (req-package-args-extract-arg key (cdr args) (cons (car args) acc))))) - -(provide 'req-package-args) -;;; req-package-args ends here |