From: Andreas Gerler <baron@bundesbrandschatzamt.de>
Date: Mon, 11 Nov 2013 11:01:43 +0000 (+0000)
Subject: added cfe-insert-bundle for cfengine bundle templates.
X-Git-Url: http://git.bundesbrandschatzamt.de/?a=commitdiff_plain;h=c7e805570c4b90e0177433f3cac532364d84d3ba;p=emacsconfig.git

added cfe-insert-bundle for cfengine bundle templates.

Signed-off-by: Andreas Gerler <baron@bundesbrandschatzamt.de>
---

diff --git a/init.el b/init.el
index 653fe21c..1afbb932 100644
--- a/init.el
+++ b/init.el
@@ -162,7 +162,7 @@ load-path))
 ;; cfe-config-adduser runs ldapsearch with cn=user to fill some values.
 
 (defun cfe-config-adduser ( user )
-"Insert usertemplate for config.cf"
+  "Insert usertemplate for config.cf"
   (interactive "sUser: ")
   (insert "      \"users[" user "][login]\" string => \"" user "\";
       \"users[" user "][fullname]\" string => \"" (substring ( shell-command-to-string (concat "ldapse " user " givenName ")) 0 -1) " " (substring ( shell-command-to-string (concat "ldapse " user " sn ")) 0 -1) "\";
@@ -176,6 +176,30 @@ load-path))
       \"users[" user "][authorized_keys][0]\" string => \"\";" )
 
 )
+
+(defun cfe-insert-bundle ( name )
+  "Insert bundletemplate"
+  (interactive "sBundle: ")
+  (insert "#=head2 bundle " name "
+#
+#
+#
+#=cut
+#
+
+bundle " name "
+{
+  vars:
+
+  files:
+
+  methods:
+
+  classes:
+
+}")
+)
+
 ;;(defun scpload (&rest args)
 ;;"scp copy from pottwal"
 ;;   (shell-command ( scp andreas@pottwal: emacstmp/))
@@ -324,6 +348,7 @@ nil)
 (define-key global-map "\C-c\C-c" 'centered-cursor-mode)
 
 (define-key global-map "\C-cc" 'load-git-cfengine)
+(define-key global-map "\C-cb" 'cfe-insert-bundle)
 
 ;; NUMBERIC KEYPAD. nice number pad conveniences as extra function keys