diff options
author | Yuchen Pei <hi@ypei.me> | 2022-09-21 14:22:37 +1000 |
---|---|---|
committer | Yuchen Pei <hi@ypei.me> | 2022-09-21 14:22:37 +1000 |
commit | 0d47d10cfe4ed7fb8ea7b8013b6593c868be8391 (patch) | |
tree | e8ce1d3eda451d838259490c17a8182914d212a3 | |
parent | 9dc18bef43897820b0b9e40ac301a82eedf7e28a (diff) |
fixing a renamed function
-rw-r--r-- | hcel-client.el | 11 | ||||
-rw-r--r-- | hcel-outline.el | 2 |
2 files changed, 7 insertions, 6 deletions
diff --git a/hcel-client.el b/hcel-client.el index 5ec6055..775d878 100644 --- a/hcel-client.el +++ b/hcel-client.el @@ -38,14 +38,15 @@ packages))) (defun hcel-api-package-info (package-id) + (hcel-url-fetch-json (concat + hcel-host "/files/" (hcel-format-package-id package-id "-") + hcel-indexed-dir "/packageInfo.json"))) + +(defun hcel-list-modules (package-id) (mapcar (lambda (tuple) (prin1-to-string (car tuple) t)) - (alist-get - 'modules - (hcel-url-fetch-json (concat - hcel-host "/files/" (hcel-format-package-id package-id "-") - hcel-indexed-dir "/packageInfo.json"))))) + (alist-get 'modules (hcel-api-package-info package-id)))) (defun hcel-api-definition-site (package-id component-id module-name entity name) diff --git a/hcel-outline.el b/hcel-outline.el index 4cfa6ce..c40ccf1 100644 --- a/hcel-outline.el +++ b/hcel-outline.el @@ -116,7 +116,7 @@ update in the outline mode too." 'package-id package-id 'module-path module 'folded t))) - (hcel-api-package-info package-id)))))) + (hcel-list-modules (print package-id))))))) (defun hcel-outline-toggle-children () (interactive) |