[nongnu] elpa/drupal-mode ae4dd40f05 122/308: Added pcomplete for drush.

[ELPA Syncer]

branch: elpa/drupal-mode
commit ae4dd40f05514b1a8a4206339704db69fd6097f2
Author: Arne Jørgensen <arne@arnested.dk>
Commit: Arne Jørgensen <arne@arnested.dk>

    Added pcomplete for drush.
    
    Courtesy of Damon Haley.
---
 drupal-mode.el      |  3 +++
 drupal/pcomplete.el | 62 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 65 insertions(+)

diff --git a/drupal-mode.el b/drupal-mode.el
index 446b8bf579..0af85a91ef 100644
--- a/drupal-mode.el
+++ b/drupal-mode.el
@@ -118,6 +118,7 @@ whitespace at the end."
   :group 'drupal-drush)
 
 
+;;;###autoload
 (defcustom drupal-drush-program (executable-find "drush")
   "Name of the Drush executable.
 Include path to the executable if it is not in your $PATH."
@@ -682,6 +683,8 @@ mode-hook."
 (eval-after-load 'ispell '(require 'drupal/ispell))
 (eval-after-load 'flymake-phpcs '(require 'drupal/flymake-phpcs))
 ;;;###autoload
+(eval-after-load 'pcomplete '(require 'drupal/pcomplete))
+;;;###autoload
 (eval-after-load 'webjump '(require 'drupal/webjump))
 
 
diff --git a/drupal/pcomplete.el b/drupal/pcomplete.el
new file mode 100644
index 0000000000..164b2c5476
--- /dev/null
+++ b/drupal/pcomplete.el
@@ -0,0 +1,62 @@
+;;; drupal/pcomplete.el --- Drush support for pcomplete.el
+
+;; Copyright (C) 2013 Damon Haley
+
+;; Author: Damon Haley <dkh@member.fsf.org>
+
+;; This file is part of Drupal mode.
+
+;; Drupal mode is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published
+;; by the Free Software Foundation, either version 3 of the License,
+;; or (at your option) any later version.
+
+;; Drupal mode is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with Drupal mode.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Enable drush support for pcomplete.el.
+
+;;; Code:
+
+(require 'pcomplete)
+
+(defun drupal/pcomplete-drush-commands ()
+  "Return the most common drush commands by parsing the drush output."
+  (with-temp-buffer
+    (call-process drupal-drush-program nil t nil
+                  "--early=includes/complete.inc")
+    (goto-char 0)
+    (let (commands)
+      (while (re-search-forward
+              "^[[:blank:]]*\\([@]?[[:word:]-.]+\\)"
+              nil t)
+        (push (match-string-no-properties 1) commands))
+      (sort commands #'string<))))
+
+(defvar drupal/pcomplete-drush-commands (drupal/pcomplete-drush-commands)
+  "List of `drush' commands.")
+
+(defun drupal/pcomplete-drush-completion ()
+  "Completion for `drush'."
+  ;; Completion for the command argument.
+  (pcomplete-here* drupal/pcomplete-drush-commands)
+  (cond
+   ((pcomplete-match "help" 1)
+    (pcomplete-here* drupal/pcomplete-drush-commands))
+   (t
+    (while (pcomplete-here (pcomplete-entries))))))
+
+(defalias 'pcomplete/drush 'drupal/pcomplete-drush-completion)
+
+
+
+(provide 'drupal/pcomplete)
+
+;;; drupal/pcomplete.el ends here