| 1 |
commit: 1eae6f34f926d4983b660bc0fe111e293b94718c |
| 2 |
Author: Maciej Barć <xgqt <AT> gentoo <DOT> org> |
| 3 |
AuthorDate: Wed Aug 17 15:12:54 2022 +0000 |
| 4 |
Commit: Maciej Barć <xgqt <AT> gentoo <DOT> org> |
| 5 |
CommitDate: Wed Aug 17 15:16:45 2022 +0000 |
| 6 |
URL: https://gitweb.gentoo.org/proj/company-ebuild.git/commit/?id=1eae6f34 |
| 7 |
|
| 8 |
company-ebuild.el: company-ebuild--regenerate-dynamic-keywords-eclasses - add-to-list |
| 9 |
|
| 10 |
Signed-off-by: Maciej Barć <xgqt <AT> gentoo.org> |
| 11 |
|
| 12 |
company-ebuild.el | 32 +++++++++++++------------------- |
| 13 |
1 file changed, 13 insertions(+), 19 deletions(-) |
| 14 |
|
| 15 |
diff --git a/company-ebuild.el b/company-ebuild.el |
| 16 |
index 7a1b51a..15224af 100644 |
| 17 |
--- a/company-ebuild.el |
| 18 |
+++ b/company-ebuild.el |
| 19 |
@@ -157,25 +157,19 @@ REPO-ROOT is the location from which we start searching for Eclass files." |
| 20 |
(when repo-root |
| 21 |
(let ((eclass-files |
| 22 |
(company-ebuild--find-eclass-files repo-root))) |
| 23 |
- (setq company-ebuild--dynamic-keywords-eclasses |
| 24 |
- (apply #'append |
| 25 |
- (mapcar (lambda (f) |
| 26 |
- (mapcar (lambda (s) |
| 27 |
- (replace-regexp-in-string "\\.eclass" |
| 28 |
- "" |
| 29 |
- s)) |
| 30 |
- (company-ebuild--get-tags f "ECLASS"))) |
| 31 |
- eclass-files))) |
| 32 |
- (setq company-ebuild--dynamic-keywords-variables |
| 33 |
- (apply #'append |
| 34 |
- (mapcar (lambda (f) |
| 35 |
- (company-ebuild--get-tags f "ECLASS_VARIABLE")) |
| 36 |
- eclass-files))) |
| 37 |
- (setq company-ebuild--dynamic-keywords-functions |
| 38 |
- (apply #'append |
| 39 |
- (mapcar (lambda (f) |
| 40 |
- (company-ebuild--get-tags f "FUNCTION")) |
| 41 |
- eclass-files))))))) |
| 42 |
+ (mapc |
| 43 |
+ (lambda (eclass-file) |
| 44 |
+ (mapc (lambda (str) |
| 45 |
+ (add-to-list 'company-ebuild--dynamic-keywords-eclasses |
| 46 |
+ (replace-regexp-in-string "\\.eclass" "" str))) |
| 47 |
+ (company-ebuild--get-tags eclass-file "ECLASS")) |
| 48 |
+ (mapc (lambda (str) |
| 49 |
+ (add-to-list 'company-ebuild--dynamic-keywords-variables str)) |
| 50 |
+ (company-ebuild--get-tags eclass-file "ECLASS_VARIABLE")) |
| 51 |
+ (mapc (lambda (str) |
| 52 |
+ (add-to-list 'company-ebuild--dynamic-keywords-functions str)) |
| 53 |
+ (company-ebuild--get-tags eclass-file "FUNCTION"))) |
| 54 |
+ eclass-files))))) |
| 55 |
|
| 56 |
(defun company-ebuild--regenerate-dynamic-keywords-use-flags () |
| 57 |
"Set new content of the ‘company-ebuild--dynamic-keywords-use-flags’ variable." |
Archives