Add bba-insert-changelog-signature

Signed-off-by: Andreas Gerler <baronNOSPAMbundesbrandschatzamt.de>

diff --git a/bba.org b/bba.org
index b0268df43e1d1bacc2ceea7899dde14d297c2fcf..a2bb9578a2b87f8f2a89b540975e1f5a2c07129f 100644 (file)
--- a/bba.org
+++ b/bba.org
@@ -2826,26 +2826,33 @@ Right from [[https://gist.github.com/etherald/dcdcf579751c75a2c796][gisthub]]:
 #+END_SRC
 
 * insert-date function
+
 #+BEGIN_SRC emacs-lisp :tangle yes
   (defun bba-insert-date ()
   "Insert the current date"
   (interactive)
   (insert (format-time-string "%B %e, %Y")))
+
   (defun bba-insert-timestamp ()
   "Insert the current timestamp"
   (interactive)
   (insert (format-time-string "%Y%m%d-%H%M")))
+
   (defun bba-insert-name-timestamp ()
   "Insert the current timestamp"
   (interactive)
   (insert (format-time-string "%a %b %e %Y") " " (or (and (boundp 'user-full-name) user-full-name) (user-full-name))" <" (getenv "EMAIL") ">" ))
+
   (defun bba-insert-name ()
   "Insert name and emailaddress of current systemuser."
   (interactive)
   (insert (or (and (boundp 'user-full-name) user-full-name) (user-full-name))" <" (getenv "EMAIL") ">" ))
   (define-key global-map (kbd "s-n") 'bba-insert-name)
 
-
+  (defun bba-insert-changelog-signature ()
+    "Insert name and timestamp in changelog format."
+    (interactive)
+    (insert " -- " (or (and (boundp 'user-full-name) user-full-name) (user-full-name))" <" (getenv "EMAIL") ">  " (format-time-string "%a, %d %b %Y %H:%M:%S %z")))
 #+END_SRC
 
 * toggle fullscreen mode