lang/javascript: fix +javascript-npm-dep-p to accept symbols
This commit is contained in:
parent
53b9e92fd7
commit
1062a15d8c
1 changed files with 9 additions and 5 deletions
|
@ -20,11 +20,15 @@ ignore the cache."
|
||||||
(+javascript-npm-conf)))
|
(+javascript-npm-conf)))
|
||||||
(let ((deps (append (cdr (assq 'dependencies data))
|
(let ((deps (append (cdr (assq 'dependencies data))
|
||||||
(cdr (assq 'devDependencies data)))))
|
(cdr (assq 'devDependencies data)))))
|
||||||
|
(cond ((listp packages)
|
||||||
(funcall (if (eq (car packages) 'and)
|
(funcall (if (eq (car packages) 'and)
|
||||||
'cl-every
|
'cl-every
|
||||||
'cl-some)
|
'cl-some)
|
||||||
(lambda (pkg) (assq pkg deps))
|
(lambda (pkg) (assq pkg deps))
|
||||||
(if (listp packages) packages (list packages))))))
|
(if (listp packages) packages (list packages))))
|
||||||
|
((symbolp packages)
|
||||||
|
(assq packages deps))
|
||||||
|
(t (error "Expected a package symbol or list, got %s" packages))))))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun +javascript/repl ()
|
(defun +javascript/repl ()
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue