Case splitting in M-t and initial-code in C-u M-t
This commit is contained in:
parent
7ecb66f32e
commit
8eeeacd58d
@ -19,7 +19,8 @@
|
||||
((ghc-check-overlay-at (point))
|
||||
(ghc-check-insert-from-warning))
|
||||
(t
|
||||
(message "Nothing to be done"))))
|
||||
(when (null (ghc-try-case-split))
|
||||
(message "Nothing to be done")))))
|
||||
|
||||
(defun ghc-insert-module-template ()
|
||||
(let* ((fullname (file-name-sans-extension (buffer-file-name)))
|
||||
|
@ -125,10 +125,9 @@ unloaded modules are loaded")
|
||||
|
||||
(defun ghc-complete ()
|
||||
(interactive)
|
||||
(when (null (ghc-try-rewrite))
|
||||
(if (ghc-should-scroll)
|
||||
(ghc-scroll-completion-buffer)
|
||||
(ghc-try-complete))))
|
||||
(ghc-try-complete)))
|
||||
|
||||
(defun ghc-should-scroll ()
|
||||
(let ((window (ghc-completion-window)))
|
||||
|
@ -33,18 +33,6 @@
|
||||
(insert (ghc-sinfo-get-info info)) )
|
||||
)
|
||||
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;;;
|
||||
;;; Combined rewriting
|
||||
;;;
|
||||
|
||||
(defun ghc-try-rewrite ()
|
||||
"Try to apply initial code generation and case splitting"
|
||||
(interactive)
|
||||
(when (null (ghc-try-initial-code-from-signature))
|
||||
(ghc-try-case-split)))
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;;;
|
||||
;;; Case splitting
|
||||
|
@ -74,7 +74,7 @@
|
||||
(defvar ghc-shallower-key "\C-c<")
|
||||
(defvar ghc-deeper-key "\C-c>")
|
||||
;(defvar ghc-case-split-key "\C-c\C-s")
|
||||
;(defvar ghc-initial-sig-key "\C-c\C-g")
|
||||
(defvar ghc-initial-sig-key "\C-u\et")
|
||||
(defvar ghc-refine-key "\C-c\C-f")
|
||||
(defvar ghc-auto-key "\C-c\C-a")
|
||||
(defvar ghc-prev-hole-key "\C-c\ep")
|
||||
@ -112,7 +112,7 @@
|
||||
(define-key haskell-mode-map ghc-shallower-key 'ghc-make-indent-shallower)
|
||||
(define-key haskell-mode-map ghc-deeper-key 'ghc-make-indent-deeper)
|
||||
;(define-key haskell-mode-map ghc-case-split-key 'ghc-case-split)
|
||||
;(define-key haskell-mode-map ghc-initial-sig-key 'ghc-initial-code-from-signature)
|
||||
(define-key haskell-mode-map ghc-initial-sig-key 'ghc-initial-code-from-signature)
|
||||
(define-key haskell-mode-map ghc-refine-key 'ghc-refine)
|
||||
(define-key haskell-mode-map ghc-auto-key 'ghc-auto)
|
||||
(define-key haskell-mode-map ghc-prev-hole-key 'ghc-goto-prev-hole)
|
||||
|
Loading…
Reference in New Issue
Block a user