hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Using "hoogle search".

Browse Source
This commit is contained in:
Kazu Yamamoto 2011-12-28 17:04:47 +09:00
parent 94efd2f250
commit 432de2e4f9
1 changed files with 11 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
elisp/ghc-ins-mod.el
View File

@ -10,27 +10,22 @@
(defvar ghc-hoogle-command "hoogle") (defvar ghc-hoogle-command "hoogle")
(defvar ghc-hoogle-keywords '("data" "server" "combine" "convert" "test" "dump" "rank" "log"))
(defun ghc-insert-module () (defun ghc-insert-module ()
(interactive) (interactive)
(if (not (ghc-which ghc-hoogle-command)) (if (not (ghc-which ghc-hoogle-command))
(message "\"%s\" not found" ghc-hoogle-command) (message "\"%s\" not found" ghc-hoogle-command)
(let* ((expr0 (thing-at-point 'symbol)) (let* ((expr0 (thing-at-point 'symbol))
(expr (ghc-read-expression expr0))) (expr (ghc-read-expression expr0)))
(if (member expr ghc-hoogle-keywords)
(message "\"%s\" not allowed" expr)
(let ((mods (ghc-function-to-modules expr))) (let ((mods (ghc-function-to-modules expr)))
(if (null mods) (if (null mods)
(message "No module guessed") (message "No module guessed")
(let* ((first (car mods)) (let* ((first (car mods))
(ini (cons first 0))
(mod (if (= (length mods) 1) (mod (if (= (length mods) 1)
first first
(completing-read "Module name: " mods nil t ini)))) (completing-read "Module name: " mods nil t first))))
(save-excursion (save-excursion
(ghc-goto-module-position) (ghc-goto-module-position)
(insert "import " mod "\n"))))))))) (insert "import " mod "\n"))))))))
(defun ghc-goto-module-position () (defun ghc-goto-module-position ()
(goto-char (point-max)) (goto-char (point-max))
@ -42,7 +37,7 @@
(defun ghc-function-to-modules (fn) (defun ghc-function-to-modules (fn)
(with-temp-buffer (with-temp-buffer
(call-process ghc-hoogle-command nil t nil fn) (call-process ghc-hoogle-command nil t nil "search" fn)
(goto-char (point-min)) (goto-char (point-min))
(let ((regex (concat "^\\([a-zA-Z0-9.]+\\) " fn " ")) (let ((regex (concat "^\\([a-zA-Z0-9.]+\\) " fn " "))
ret) ret)