alchemist-complete needs a debug functionality

CHANGELOG.md

@@ -1,5 +1,12 @@
 # Changelog
 
+## v0.10.0-dev (unreleased)
+
+### Enhancements
+
+   * [Complete] Add the function `alchemist-complete-debug-mode` for controlling
+     the display of the error output from completion.
+
 ## v0.9.0
 
 ### Enhancements

alchemist-complete.el

@@ -30,6 +30,19 @@
   :prefix "alchemist-complete-"
   :group 'alchemist)
 
+(defvar alchemist-complete-debug-mode nil)
+
+(defun alchemist-complete-debug-mode ()
+  "Enables the debug mode for completion if `alchemist-complete-debug-mode'
+is `nil', otherwise it disable it."
+  (interactive)
+  (setq alchemist-complete-debug-mode (not alchemist-complete-debug-mode))
+  (let ((state (if alchemist-complete-debug-mode
+                  "ENABLED"
+                "DISABLED")))
+    (message "Alchemist complete debug mode is: %s" state)
+    ))
+
 (defun alchemist-complete--clean-functions (candidates)
   (mapcar (lambda (c) (replace-regexp-in-string "/[0-9]$" "" c)) candidates))
 
@@ -113,6 +126,9 @@ IO.inspect Alchemist.expand('%s')
                                                            candidates)))
                                         (funcall callback candidates)))
                                      (t
+                                      (when alchemist-complete-debug-mode
+                                        (alchemist-utils--warn (format "\n== ALCHEMIST COMPLETION FAILED ==\n== OUTPUT BEGIN:\n%s== OUTPUT END:"
+                                                                       (alchemist-utils--get-buffer-content (process-buffer process)))))
                                       (funcall callback '())))
                                (alchemist-utils--erase-buffer (process-buffer process)))))
 

alchemist-utils.el

@@ -63,6 +63,10 @@ It walks the directory tree until it finds a elixir project root indicator."
   (with-current-buffer buffer
     (buffer-substring (point-min) (point-max))))
 
+(defun alchemist-utils--warn (message)
+  (kill-buffer "*Warnings*")
+  (warn message))
+
 (provide 'alchemist-utils)
 
 ;;; alchemist-utils.el ends here

alchemist.el

@@ -5,7 +5,7 @@
 ;; Author: Samuel Tonini <tonini.samuel@gmail.com>
 
 ;; URL: http://www.github.com/tonini/alchemist.el
-;; Version: 0.9.0
+;; Version: 0.10.0-cvs
 ;; Package-Requires: ((emacs "24"))
 ;; Keywords: languages, mix, elixir, elixirc, hex
 
@@ -55,7 +55,7 @@
   "Hook which enables `alchemist-mode'"
   (alchemist-mode 1))
 
-(defvar alchemist--version "0.9.0")
+(defvar alchemist--version "0.10.0-cvs")
 
 ;;;###autoload
 (defun alchemist-version (&optional show-version)