From aafe7ffcaf1fa391f4f5573ece563d337c7fbb2a Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Wed, 28 Sep 2022 18:40:06 +1000 Subject: improving completion in hcel-ids --- hcel-client.el | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'hcel-client.el') diff --git a/hcel-client.el b/hcel-client.el index 532fc88..1e30167 100644 --- a/hcel-client.el +++ b/hcel-client.el @@ -68,6 +68,16 @@ (name (alist-get 'name approx-location-info))) (hcel-api-definition-site package-id component-id module-name entity name))) +(defun hcel-definition-site-external-id (external-id) + "Call definitionSite using external id." + (let* ((splitted (split-string external-id "|")) + (package-id (hcel-parse-package-id (car splitted) "-")) + (module-name (cadr splitted)) + (entity (caddr splitted)) + (name (cadddr splitted))) + (hcel-api-definition-site + package-id "lib" module-name entity name))) + (defun hcel-approx-to-exact-location (approx-location-info) "Fetch exact location given approximate location. -- cgit v1.2.3