summaryrefslogtreecommitdiff
path: root/elpa/req-package-20180605.1141/req-package-args.el
diff options
context:
space:
mode:
authormattkae <mattkae@protonmail.com>2022-06-07 08:23:47 -0400
committermattkae <mattkae@protonmail.com>2022-06-07 08:23:47 -0400
commitbd18a38c2898548a3664a9ddab9f79c84f2caf4a (patch)
tree95b9933376770381bd8859782ae763be81c2d72b /elpa/req-package-20180605.1141/req-package-args.el
parentb07628dddf418d4f47b858e6c35fd3520fbaeed2 (diff)
parentef160dea332af4b4fe5e2717b962936c67e5fe9e (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.el31
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