blob: bdcbab119f8f674fe40d9703186c774aaef1a3ce (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
;;; 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
|
