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

ESC C-e to process the module.

Browse Source
This commit is contained in:
Kazu Yamamoto
2010-01-06 14:39:30 +09:00
parent 35f60507c6
commit e9c4ec4e4b
5 changed files with 41 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
elisp/ghc-comp.el
View File

@@ -131,26 +131,44 @@
(defun ghc-completion-start-point ()
(save-excursion
(let ((beg (save-excursion (beginning-of-line) (point))))
(if (search-backward " " beg t)
(if (re-search-backward "[ (,`]" beg t)
(1+ (point))
beg))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Loading keywords
;;;
(defun ghc-load-module (mod)
(when (and (member mod ghc-module-names)
(not (member mod ghc-loaded-module)))
(let ((keywords (ghc-load-keyword "browse" mod)))
(when (or (consp keywords) (null keywords))
(set (intern (concat ghc-keyword-prefix mod)) keywords)
(setq ghc-loaded-module (cons mod ghc-loaded-module))))))
(defun ghc-merge-keywords ()
(let* ((modkeys (mapcar 'ghc-module-keyword ghc-loaded-module))
(keywords (cons ghc-reserved-keyword modkeys))
(uniq-sorted (sort (ghc-uniq-lol keywords) 'string<)))
(setq ghc-merged-keyword uniq-sorted)))
(defun ghc-import-module ()
(interactive)
(ghc-load-module (ghc-read-module-name (ghc-extract-module)))
(ghc-merge-keywords))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Background Idle Timer
;;;
(defun ghc-idle-timer ()
(let ((mods (ghc-gather-import-modules))
keywords)
(dolist (mod mods)
(when (and (member mod ghc-module-names)
(not (member mod ghc-loaded-module)))
(setq keywords (ghc-load-keyword "browse" mod))
(when (or (consp keywords) (null keywords))
(set (intern (concat ghc-keyword-prefix mod)) keywords)
(setq ghc-loaded-module (cons mod ghc-loaded-module)))))
(ghc-merge-keywords)))
(dolist (mod (ghc-gather-import-modules))
(ghc-load-module mod))
(ghc-merge-keywords))
(defun ghc-gather-import-modules ()
(let ((bufs (mapcar 'buffer-name (buffer-list)))
@@ -171,12 +189,6 @@
(forward-line)))
ret))
(defun ghc-merge-keywords ()
(let* ((modkeys (mapcar 'ghc-module-keyword ghc-loaded-module))
(keywords (cons ghc-reserved-keyword modkeys))
(uniq-sorted (sort (ghc-uniq-lol keywords) 'string<)))
(setq ghc-merged-keyword uniq-sorted)))
(defun ghc-module-keyword (mod)
(symbol-value (intern (concat ghc-keyword-prefix mod))))