[nongnu] elpa/drupal-mode f150913830 050/308: Added skeletons for functions and hooks.

[ELPA Syncer]

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

    Added skeletons for functions and hooks.
    
    Fixes #8.
---
 drupal-mode.el | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)

diff --git a/drupal-mode.el b/drupal-mode.el
index 662f09b1a5..389472c9b1 100644
--- a/drupal-mode.el
+++ b/drupal-mode.el
@@ -148,6 +148,8 @@ Include path to the executable if it is not in your $PATH."
   (let ((map (make-sparse-keymap)))
     (define-key map "\C-cdf" 'drupal-search-documentation)
     (define-key map "\C-cdc" 'drupal-drush-cache-clear)
+    (define-key map "\C-cdih" 'drupal-insert-hook)
+    (define-key map "\C-cdif" 'drupal-insert-function)
     map)
   "Keymap for `drupal-mode'")
 
@@ -309,6 +311,29 @@ should save your files with unix style end of line."
 
 
 
+(define-skeleton drupal-insert-hook
+  "Insert Drupal hook function skeleton."
+  nil
+  '(setq v1 (skeleton-read "Hook: " "hook_"))
+  "/**\n"
+  " * Implements " v1 "().\n"
+  " */\n"
+  "function " (replace-regexp-in-string "hook" (drupal-module-name) v1) "(" @ 
- ") {\n"
+  "  " @ _ "\n"
+  "}\n")
+
+(define-skeleton drupal-insert-function
+  "Insert Drupal function skeleton."
+  nil
+  "/**\n"
+  " * " @ "\n"
+  " */\n"
+  "function " (drupal-module-name) "_" @ - "(" @ ") {\n"
+  "  " @ _ "\n"
+  "}\n")
+
+
+
 ;; Detect Drupal and Drupal version
 (defun drupal-detect-drupal-version ()
   "Detect if the buffer is part of a Drupal project.
@@ -391,6 +416,19 @@ older implementation of `locate-dominating-file'."
               (setq dir nil))))
       nil)))
 
+(defun drupal-module-name ()
+  "Return Drupal module name suitable for function names.
+This will return the best guess at the name of the Drupal module
+and encoded suitable for use as function name prefixes.
+
+Used in `drupal-insert-hook' and `drupal-insert-function'."
+  (replace-regexp-in-string "-" "_"
+                            (if drupal-module
+                                drupal-module
+                              ;; Otherwise fall back to a very naive
+                              ;; way of guessing the module name.
+                              (file-name-nondirectory 
(file-name-sans-extension (buffer-file-name))))))
+
 (defun drupal-major-version (&optional version)
   "Return major version number of version string.
 If major version number is 4 - return both major and minor."