From 807ae752ac83695c3b280c47b9b13f8b4e99e284 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Tue, 28 Aug 2018 20:47:16 +0200 Subject: [PATCH] Add bba-insert-changelog-signature Signed-off-by: Andreas Gerler --- bba.org | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/bba.org b/bba.org index b0268df4..a2bb9578 100644 --- 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 -- 2.47.3