ghc-mod/elisp/ghc-doc.el
2010-03-11 14:15:28 +09:00

61 lines
1.7 KiB
EmacsLisp

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; ghc.el
;;;
;; Author: Kazu Yamamoto <Kazu@Mew.org>
;; Created: Sep 25, 2009
(require 'ghc-func)
(require 'ghc-comp)
;;; Code:
(defun ghc-browse-document (&optional haskell-org)
(interactive "P")
(let* ((mod0 (ghc-extract-module))
(mod (ghc-read-module-name mod0))
(pkg (ghc-resolve-package-name mod)))
(ghc-display-document pkg mod haskell-org)))
(defun ghc-resolve-package-name (mod)
(with-temp-buffer
(call-process "ghc-pkg" nil t nil "find-module" "--simple-output" mod)
(goto-char (point-min))
(when (looking-at "^\\([^-]+\\)-")
(match-string-no-properties 1))))
(defun ghc-resolve-document-path (pkg)
(with-temp-buffer
(call-process "ghc-pkg" nil t nil "field" pkg "haddock-html")
(goto-char (point-max))
(forward-line -1)
(beginning-of-line)
(when (looking-at "^haddock-html: \\([^ \n]+\\)$")
(match-string-no-properties 1))))
(defvar ghc-doc-local-format "file://%s/%s.html")
(defvar ghc-doc-hackage-format
"http://hackage.haskell.org/packages/archive/%s/latest/doc/html/%s.html")
(defun ghc-display-document (pkg mod haskell-org)
(when (and pkg mod)
(let* ((mod- (ghc-replace-character mod ?. ?-))
(url (if haskell-org
(format ghc-doc-hackage-format pkg mod-)
(format ghc-doc-local-format
(ghc-resolve-document-path pkg) mod-))))
(browse-url url))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar ghc-input-map nil)
(unless ghc-input-map
(setq ghc-input-map
(if (boundp 'minibuffer-local-map)
(copy-keymap minibuffer-local-map)
(make-sparse-keymap)))
(define-key ghc-input-map "\t" 'ghc-complete))
(provide 'ghc-doc)