emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/drupal-mode a53c312da1 089/308: Improved info file auto-in


From: ELPA Syncer
Subject: [nongnu] elpa/drupal-mode a53c312da1 089/308: Improved info file auto-insert skeleton.
Date: Tue, 25 Jan 2022 10:59:32 -0500 (EST)

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

    Improved info file auto-insert skeleton.
---
 drupal/autoinsert.el | 21 ++++++++++++++++-----
 1 file changed, 16 insertions(+), 5 deletions(-)

diff --git a/drupal/autoinsert.el b/drupal/autoinsert.el
index e3c90411ac..91cf0d0289 100644
--- a/drupal/autoinsert.el
+++ b/drupal/autoinsert.el
@@ -30,14 +30,25 @@
 (define-auto-insert '("\\.module" . "Drupal module file") 
'drupal/autoinsert-insert-module-skeleton)
 
 (define-skeleton drupal/autoinsert-insert-info-skeleton
-  "Drupal info skeleton."
+  "Drupal info file skeleton."
   nil
-  "name = " @ - "\n"
-  "description = " @ "\n"
-  "core = " (drupal-major-version) ".x\n")
+  '(setq v1 (file-name-nondirectory (file-name-sans-extension 
(buffer-file-name))))
+  '(setq v2 (if (drupal-major-version) (>= (string-to-number 
(drupal-major-version)) 7) t))
+  "name = " @ - (upcase-initials (replace-regexp-in-string "[-_\\.]+" " " v1)) 
\n
+  "description = " @ \n
+  "core = " @ (drupal-major-version) & ".x" "\n"
+  (when v2 "; stylesheets[all][] = ") & @ (when v2 "css/") & v1 & ".base.css\n"
+  (when v2 "; scripts[] = ") & @ (when v2 "scripts/") & v1 & ".js\n"
+  (when v2 "; files[] = ") & @ (when v2 v1) & ".test\n"
+  "; dependencies" (when v2 "[]") " = " @ "\n"
+  "; package = " @ "\n"
+  "; php = " @ "\n"
+  (when v2 "; configure = ") & @ (when v2 "admin/config/something/") & v1 & 
"\n"
+  (when v2 "; required = ") & @ (when v2 "TRUE\n")
+  (when v2 "; hidden = ") & @ (when v2 "TRUE\n"))
 
 (define-skeleton drupal/autoinsert-insert-module-skeleton
-  "Drupal module skeleton."
+  "Drupal module file skeleton."
   nil
   "<?php\n"
   "\n"



reply via email to

[Prev in Thread] Current Thread [Next in Thread]