Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

keybinding for hoogle.

  • Loading branch information...
commit 182db0e5849393f4360defc2c8b5de45603e5316 1 parent 1790c5f
@kazu-yamamoto kazu-yamamoto authored
Showing with 7 additions and 0 deletions.
  1. +7 −0 elisp/ghc.el
View
7 elisp/ghc.el
@@ -33,6 +33,11 @@
;;; Customize Variables
;;;
+(defun ghc-find-C-h ()
+ (if keyboard-translate-table
+ (aref keyboard-translate-table ?\C-h)
+ ?\C-h))
+
(defvar ghc-completion-key "\e\t")
(defvar ghc-document-key "\e\C-d")
(defvar ghc-import-key "\e\C-m")
@@ -45,6 +50,7 @@
(defvar ghc-info-key "\C-c\C-i")
(defvar ghc-check-key "\C-x\C-s")
(defvar ghc-toggle-key "\C-c\C-c")
+(defvar ghc-hoogle-key (format "\C-c%c" (ghc-find-C-h)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
@@ -68,6 +74,7 @@
(define-key haskell-mode-map ghc-sort-key 'ghc-sort-lines)
(define-key haskell-mode-map ghc-check-key 'ghc-save-buffer)
(define-key haskell-mode-map ghc-toggle-key 'ghc-flymake-toggle-command)
+ (define-key haskell-mode-map ghc-hoogle-key 'haskell-hoogle)
(ghc-comp-init)
(setq ghc-initialized t)))
Please sign in to comment.
Something went wrong with that request. Please try again.