completion for language!
This commit is contained in:
parent
4202ca1ea2
commit
a163fa4636
@ -40,6 +40,7 @@
|
|||||||
|
|
||||||
(defvar ghc-module-names nil) ;; completion for "import"
|
(defvar ghc-module-names nil) ;; completion for "import"
|
||||||
(defvar ghc-merged-keyword nil) ;; completion for type/func/...
|
(defvar ghc-merged-keyword nil) ;; completion for type/func/...
|
||||||
|
(defvar ghc-language-extensions nil)
|
||||||
|
|
||||||
(defvar ghc-keyword-prefix "ghc-keyword-")
|
(defvar ghc-keyword-prefix "ghc-keyword-")
|
||||||
(defvar ghc-keyword-Prelude nil)
|
(defvar ghc-keyword-Prelude nil)
|
||||||
@ -47,6 +48,7 @@
|
|||||||
|
|
||||||
(defun ghc-comp-init ()
|
(defun ghc-comp-init ()
|
||||||
(setq ghc-module-names (cons "hiding" (cons "qualified" (ghc-load-keyword "list"))))
|
(setq ghc-module-names (cons "hiding" (cons "qualified" (ghc-load-keyword "list"))))
|
||||||
|
(setq ghc-language-extensions (cons "LANGUAGE" (ghc-load-keyword "lang")))
|
||||||
(setq ghc-keyword-Prelude (ghc-load-keyword "browse" "Prelude"))
|
(setq ghc-keyword-Prelude (ghc-load-keyword "browse" "Prelude"))
|
||||||
(setq ghc-loaded-module '("Prelude"))
|
(setq ghc-loaded-module '("Prelude"))
|
||||||
(ghc-merge-keywords)
|
(ghc-merge-keywords)
|
||||||
@ -139,6 +141,10 @@
|
|||||||
(beginning-of-line)
|
(beginning-of-line)
|
||||||
(looking-at "import ")))
|
(looking-at "import ")))
|
||||||
ghc-module-names)
|
ghc-module-names)
|
||||||
|
((save-excursion
|
||||||
|
(beginning-of-line)
|
||||||
|
(looking-at "{-#"))
|
||||||
|
ghc-language-extensions)
|
||||||
((or (bolp)
|
((or (bolp)
|
||||||
(let ((end (point)))
|
(let ((end (point)))
|
||||||
(save-excursion
|
(save-excursion
|
||||||
|
Loading…
Reference in New Issue
Block a user