diff --git a/doc/anim/company-mode-import-statement.gif b/doc/anim/company-mode-import-statement.gif new file mode 100644 index 000000000..beb58c466 Binary files /dev/null and b/doc/anim/company-mode-import-statement.gif differ diff --git a/doc/gifcasts/gifcasts.el b/doc/gifcasts/gifcasts.el index 8db014584..8d768ad37 100644 --- a/doc/gifcasts/gifcasts.el +++ b/doc/gifcasts/gifcasts.el @@ -77,3 +77,54 @@ (kill-buffer "Main.hs"))))))) nil) + +(gifcast-animate + (set-frame-size (window-frame (get-buffer-window)) 70 15) + (when (get-buffer "Main.hs") + (kill-buffer "Main.hs")) + (switch-to-buffer (get-buffer-create "Main.hs")) + (set-visited-file-name "Main.hs" t) + (delete-other-windows) + (tabbar-mode -1) + (tool-bar-mode -1) + (linum-mode -1) + (blink-cursor-mode -1) + (message nil) + + (haskell-mode) + (company-mode) + (setq company-idle-delay 0.01) + (linum-mode -1) + + (insert (concat + "\n\n\n" + "main :: IO ()\n" + "main = return ()\n")) + (save-buffer) + + (haskell-process-load-file) + (sit-for 5) + (select-window (get-buffer-window "Main.hs")) + + (goto-char (+ 1 (point-min))) + (gifcast-keys-async + "" + (gifcast-capture) + (gifcast-keys-async + "import" + (gifcast-capture) + (gifcast-keys-async + " Control." + (gifcast-capture) + (gifcast-keys-async + "A" + (gifcast-capture) + (gifcast-keys-async + "\C-m" + (gifcast-capture) + (gifcast-generate "../anim/company-mode-import-statement.gif") + + (haskell-kill-session-process) + (set-buffer-modified-p nil) + (kill-buffer "Main.hs")))))) + nil) diff --git a/doc/haskell-mode.texi b/doc/haskell-mode.texi index 3c02597eb..262ce7572 100644 --- a/doc/haskell-mode.texi +++ b/doc/haskell-mode.texi @@ -218,6 +218,15 @@ extensions. This is part of @code{haskell-interactive-mode}. @image{anim/company-mode-language-pragma} @end ifhtml +If haskell-interactive-mode is enabled and working haskell mode provides +completions for import statements taking into account currently loaded +and available packages. + +@ifhtml +@image{anim/company-mode-import-statement} +@end ifhtml + + @node Unicode support @chapter Unicode support