From 17059377da7b041d47d7fe6376560ca219a1a03c Mon Sep 17 00:00:00 2001
From: Yuchen Pei <hi@ypei.me>
Date: Tue, 6 Sep 2022 11:36:50 +1000
Subject: adding find references in hcel-ids mode

- also added hooks to outline and ids
---
 lisp/hcel-outline.el |  1 +
 lisp/hcel-results.el | 32 +++++++++++++++++++++-----------
 2 files changed, 22 insertions(+), 11 deletions(-)

diff --git a/lisp/hcel-outline.el b/lisp/hcel-outline.el
index 3732ed2..b90a464 100644
--- a/lisp/hcel-outline.el
+++ b/lisp/hcel-outline.el
@@ -23,6 +23,7 @@
               outline-level (lambda () (1+ (/ (length (match-string 1))
                                               hcel-outline-indentation)))
               buffer-read-only t))
+(add-hook 'hcel-outline-mode-hook 'hcel-minor-mode)
 
 (defun hcel ()
   (interactive)
diff --git a/lisp/hcel-results.el b/lisp/hcel-results.el
index 2636b41..df1b8ae 100644
--- a/lisp/hcel-results.el
+++ b/lisp/hcel-results.el
@@ -191,20 +191,30 @@ Start by choosing a package."
             (plist-get props 'package-id)
             (plist-get props 'module-path)
             (plist-get props 'internal-id)))
+          ((eq major-mode 'hcel-ids-mode)
+           (hcel-find-references-internal
+            (alist-get 'packageId (plist-get props 'location-info))
+            (alist-get 'modulePath (plist-get props 'location-info))
+            (plist-get props 'internal-id)))
           (t (error "%S not supported!" major-mode)))))
 
 (defun hcel-find-references-internal (package-id module-path identifier)
   (when (and package-id module-path identifier)
-    (with-current-buffer (hcel-buffer-name package-id module-path)
-      (when-let* ((id (alist-get
-                       'externalId
-                       (alist-get (intern identifier) hcel-identifiers)))
-                  (buffer-name (hcel-refs-format-id id)))
-        (with-current-buffer (get-buffer-create buffer-name)
-          (hcel-refs-mode)
-          (setq hcel-refs-id id)
-          (hcel-refs-update-references-package))
-        (switch-to-buffer-other-window buffer-name)))))
+    (let ((hcel-buffer (hcel-buffer-name package-id module-path)))
+      (when (or (get-buffer hcel-buffer)
+                (and (y-or-n-p "Open module source?")
+                     (hcel-load-module-source
+                      package-id module-path))))
+      (with-current-buffer hcel-buffer
+        (when-let* ((id (alist-get
+                         'externalId
+                         (alist-get (intern identifier) hcel-identifiers)))
+                    (buffer-name (hcel-refs-format-id id)))
+          (with-current-buffer (get-buffer-create buffer-name)
+            (hcel-refs-mode)
+            (setq hcel-refs-id id)
+            (hcel-refs-update-references-package))
+          (switch-to-buffer-other-window buffer-name))))))
 ;; hcel-ids-mode
 (defcustom hcel-ids-per-page 20
   "hcel-ids mode number of results per page."
@@ -212,7 +222,6 @@ Start by choosing a package."
 (defcustom hcel-ids-live-per-page 10
   "hcel-ids live search results per page."
   :group 'hcel-ids)
-
 (define-compilation-mode hcel-ids-mode "hcel-ids"
   "Major mode for showing identifiers"
   (setq-local next-error-function 'hcel-results-next-error
@@ -221,6 +230,7 @@ Start by choosing a package."
               hcel-ids-package-id nil
               hcel-results-page-number nil
               hcel-results-max-page-number nil))
+(add-hook 'hcel-ids-mode-hook 'hcel-minor-mode)
 
 (defun hcel-ids-update ()
   (unless (eq major-mode 'hcel-ids-mode)
-- 
cgit v1.2.3