[nongnu] elpa/drupal-mode 1e06f39e9f 025/308: Added `drupal-drush-cache-clear'.

[ELPA Syncer]

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

    Added `drupal-drush-cache-clear'.
    
    The function will run drush to clear all Drupal caches.
    Put it in the Drupal menu and on C-c d c.
---
 drupal-mode.el | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/drupal-mode.el b/drupal-mode.el
index 8a72d16f6a..030b67a844 100644
--- a/drupal-mode.el
+++ b/drupal-mode.el
@@ -118,6 +118,7 @@ According to http://drupal.org/coding-standards#indenting.";
 (defvar drupal-mode-map
   (let ((map (make-sparse-keymap)))
     (define-key map "\C-cdf" 'drupal-search-documentation)
+    (define-key map "\C-cdc" 'drupal-drush-cache-clear)
     map)
   "Keymap for `drupal-mode'")
 
@@ -179,6 +180,23 @@ According to http://drupal.org/coding-standards#indenting.";
   (interactive)
   (info "drupal-mode"))
 
+(defun drupal-drush-cache-clear ()
+  "Clear all Drupal caches.
+Runs `drush cache-clear all'. Depends on `drupal-drush-program'
+pointing to Drush and depends on the buffer being part of a
+Drupal project (that means `drupal-rootdir' being set to the root
+of the project)."
+  (interactive)
+  (if (and drupal-rootdir
+           drupal-drush-program)
+      (let ((root drupal-rootdir))
+        (with-temp-buffer
+          (cd-absolute root)
+          (message "Clearing all caches...")
+          (call-process drupal-drush-program nil nil nil "cache-clear" "all")
+          (message "Clearing all caches...done")))
+    (message "Can't clear caches. No DRUPALROOT and/or no drush command.")))
+
 
 
 ;; Make a menu keymap (with a prompt string)
@@ -197,6 +215,10 @@ According to http://drupal.org/coding-standards#indenting.";
 (define-key drupal-mode-map
   [menu-bar drupal search-documentation]
   '("Search documentation" . drupal-search-documentation))
+(define-key drupal-mode-map
+  [menu-bar drupal cache-clear]
+  '(menu-item "Clear all caches" drupal-drush-cache-clear
+              :enable (and drupal-rootdir drupal-drush-program)))