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

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,35 @@ http://www.gnu.org/licenses/ for details.")
   (set (make-local-variable 'imenu-syntax-alist)
        '(("+-*/.<>=?!$%_&~^:" . "w"))))
 
+
+(when (require 'helm nil 't)
+
+  (when (fboundp 'helm-candidate-buffer)
+    (defun racket-helm-apropos-init ()
+      (with-current-buffer (helm-candidate-buffer 'global)
+	(dolist (elem (racket--eval/sexpr ",apropos"))
+	  (insert (car elem) "\n")))))
+
+  (defun racket-helm-apropos-match-part (candidate)
+    candidate)
+
+  (defun racket-helm-apropos-action (candidate)
+    (racket--do-describe candidate t))
+
+  (defvar helm-source-racket-apropos
+    '((name . "Search throught racket defining symbol")
+      (init . racket-helm-apropos-init)
+      (candidates-in-buffer)
+      (get-line . buffer-substring)
+      (match-part . racket-helm-apropos-match-part)
+      (action . racket-helm-apropos-action)))
+
+  (when (fboundp 'helm)
+    (defun racket-helm-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 (load-collections-xref))
+  (map entry-words (xref-index xref)))
 
 (module+ test
   (require rackunit))