Merge pull request #1786 from jaor/master

Hoogle: colorize hoogle cli output using haskell-mode font-lock

Author: purcell

haskell-hoogle.el

@@ -27,6 +27,7 @@
 ;;; Code:
 
 (require 'ansi-color)
+(require 'view)
 (require 'haskell-mode)
 (require 'haskell-utils)
 
@@ -70,13 +71,21 @@ is asked to show extra info for the items matching QUERY.."
     (let* ((command (concat (if (functionp haskell-hoogle-command)
                                 (funcall haskell-hoogle-command)
                               haskell-hoogle-command)
-                          (if info " -i " "")
-                          " --color " (shell-quote-argument query)))
-         (output (shell-command-to-string command)))
-    (with-help-window "*hoogle*"
-      (with-current-buffer standard-output
-        (insert output)
-        (ansi-color-apply-on-region (point-min) (point-max)))))))
+                            (if info " -i " "")
+                            " --color " (shell-quote-argument query)))
+           (output (shell-command-to-string command)))
+      (with-help-window "*hoogle*"
+        (with-current-buffer standard-output
+          (let ((outs (ansi-color-filter-apply output)))
+            (delay-mode-hooks (haskell-mode))
+            (if info
+                (let ((lns (split-string output "\n" t " ")))
+                  (insert (car lns) "\n\n")
+                  (dolist (ln (cdr lns)) (insert "-- " ln "\n")))
+              (insert outs)
+              (forward-line -1)
+              (when (looking-at-p "^plus more results") (insert "\n-- ")))
+            (view-mode)))))))
 
 ;;;###autoload
 (defalias 'hoogle 'haskell-hoogle)
@@ -89,9 +98,9 @@ is asked to show extra info for the items matching QUERY.."
 
 (defcustom haskell-hoogle-server-command (lambda (port)
                                            (list "hoogle" "server"
-                                            "--local"
-                                            "-p"
-                                            (number-to-string port)))
+                                                 "--local"
+                                                 "-p"
+                                                 (number-to-string port)))
   "Command used to start the local hoogle server."
   :group 'haskell
   :type 'function