16 lines
660 B
EmacsLisp
16 lines
660 B
EmacsLisp
|
;;; lang/web/autoload/web.el
|
||
|
|
|
||
|
|
(defvar +web-bower-conf (make-hash-table :test 'equal))
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defun +web-bower-conf (&optional project-root refresh-p)
|
||
|
|
"Retrieves an alist of this project's 'bower.json'. If REFRESH-P is non-nil
|
||
|
|
ignore the cache."
|
||
|
|
(let ((project-root (or project-root (doom-project-root))))
|
||
|
|
(or (and (not refresh-p)
|
||
|
|
(gethash project-root +web-bower-conf))
|
||
|
|
(let ((package-file (expand-file-name "bower.json" project-root)))
|
||
|
|
(when-let (json (and (file-exists-p package-file)
|
||
|
|
(json-read-file package-file)))
|
||
|
|
(puthash project-root json +web-bower-conf))))))
|