Merge pull request #840 from gracjan/pr-anim-import-statement-complete

Add anim showing import statement completion

Author: gracjan

doc/anim/company-mode-import-statement.gif

@@ -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)

doc/gifcasts/gifcasts.el

@@ -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