* Added a helm interface to all the things return by xref-index

Author: Antoine Brand

cmds.rkt

@@ -40,6 +40,7 @@
         [(uq cmd)
          (eq? 'unquote (syntax-e #'uq))
          (case (syntax-e #'cmd)
+           [(apropos) (elisp-println (scribble-decl-list))]
            [(run) (run put/stop rerun)]
            [(top) (top put/stop rerun)]
            [(def) (def (read))]

racket-mode.el

@@ -144,6 +144,32 @@ http://www.gnu.org/licenses/ for details.")
   (set (make-local-variable 'imenu-syntax-alist)
        '(("+-*/.<>=?!$%_&~^:" . "w"))))
 
+(require 'helm)
+
+(defun helm-racket-apropos-init ()
+  (with-current-buffer (helm-candidate-buffer 'global)
+    (dolist (elem (racket--eval/sexpr ",apropos"))
+      (insert (car elem) "\n"))))
+
+(defun helm-racket-apropos-match-part (candidate)
+  candidate)
+
+(defun helm-racket-apropos-action (candidate)
+  (racket--do-describe candidate t))
+
+(defvar helm-source-racket-apropos
+  '((name . "Search throught racket defining symbol")
+    (init . helm-racket-apropos-init)
+    (candidates-in-buffer)
+    (get-line . buffer-substring)
+    (match-part . helm-racket-apropos-match-part)
+    (action . helm-racket-apropos-action)))
+
+(defun helm-racket-apropos ()
+  "Equivalent of helm-apropos but for the racket installed documentation"
+  (interactive)
+  (helm :sources 'helm-source-racket-apropos :buffer "*helm racket apropos*"))
+
 ;;;###autoload
 (define-derived-mode racket-mode prog-mode
   "Racket"

scribble.rkt

@@ -1,13 +1,19 @@
 #lang racket/base
 
 (require racket/file
+	 racket/list
          racket/match
          scribble/xref
          setup/xref
          (only-in xml xml->xexpr element xexpr->string)
          (only-in html read-html-as-xml))
 
-(provide scribble-doc/html)
+(provide scribble-doc/html
+	 scribble-decl-list)
+
+(define (scribble-decl-list)
+  (define xref (fix-load-collections-xref))
+  (map entry-words (xref-index xref)))
 
 (module+ test
   (require rackunit))
@@ -27,8 +33,16 @@
   (define-values (path anchor) (binding->path+anchor stx))
   (and path anchor (scribble-get-xexpr path anchor)))
 
+(define fix-xref #f)
+
+(define (fix-load-collections-xref)
+  (when (not fix-xref)
+    (set! fix-xref (load-collections-xref))
+    (void (xref-index fix-xref)))
+  fix-xref)
+
 (define (binding->path+anchor stx)
-  (define xref (load-collections-xref))
+  (define xref (fix-load-collections-xref))
   (define tag (and (identifier? stx)
                    (xref-binding->definition-tag xref stx 0)))
   (cond [tag (xref-tag->path+anchor xref tag)]