emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/haskell-tng-mode b2e19c9 318/385: document next steps


From: ELPA Syncer
Subject: [nongnu] elpa/haskell-tng-mode b2e19c9 318/385: document next steps
Date: Tue, 5 Oct 2021 23:59:56 -0400 (EDT)

branch: elpa/haskell-tng-mode
commit b2e19c997bbacad8a392ecdefef09f4a694e1f84
Author: Tseen She <ts33n.sh3@gmail.com>
Commit: Tseen She <ts33n.sh3@gmail.com>

    document next steps
---
 haskell-tng-hsinspect.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/haskell-tng-hsinspect.el b/haskell-tng-hsinspect.el
index aa29f9c..b932922 100644
--- a/haskell-tng-hsinspect.el
+++ b/haskell-tng-hsinspect.el
@@ -35,12 +35,16 @@ A prefix argument ensures that caches are flushes."
   (interactive "P")
   (if-let* ((sym (haskell-tng--hsinspect-symbol-at-point))
             (found (seq-find
+                    ;; FIXME test for this
+                    ;; TODO add type information too
                     (lambda (names) (member sym (seq-map #'cdr names)))
                     (haskell-tng--hsinspect-imports nil alt))))
       ;; TODO multiple hits
       (popup-tip (format "%s" (cdar (last found)))))
   (user-error "Not found"))
 
+;; FIXME jump-to-definition using import + index + heuristics
+
 ;;;###autoload
 (defun haskell-tng-import-symbol-at-point (&optional alt)
   "Import the symbol at point"
@@ -56,6 +60,7 @@ A prefix argument ensures that caches are flushes."
     (if (string-match (rx bos (group (+ anything)) "." (group (+ (not (any 
".")))) eos) sym)
         (let* ((fqn (match-string 1 sym))
                (sym (match-string 2 sym)))
+          ;; FIXME types and data constructors
           (when-let (hit (haskell-tng--hsinspect-import-popup index sym))
             (haskell-tng--import-symbol (car hit) fqn)))
       (when-let (hit (haskell-tng--hsinspect-import-popup index sym))
@@ -73,6 +78,7 @@ A prefix argument ensures that caches are flushes."
                 (selected (popup-menu* entries)))
       (seq-find (lambda (el) (equal (car el) selected)) hits))))
 
+;; FIXME this could be tested
 (defun haskell-tng--hsinspect-import-candidates (index sym)
   "Return a list of (module . symbol)"
   ;; TODO threading/do syntax



reply via email to

[Prev in Thread] Current Thread [Next in Thread]