From 13e5720faaad9d7da629b060e1c04ef891445bce Mon Sep 17 00:00:00 2001
From: Andreas Gerler <baron@bundesbrandschatzamt.de>
Date: Thu, 25 Aug 2016 23:45:40 +0200
Subject: [PATCH] added bba-copy-org-src-block

- useful in training sessions to duplicate previous org src block.
---
 bba.org | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/bba.org b/bba.org
index 8348ec8b..7b5cf050 100644
--- a/bba.org
+++ b/bba.org
@@ -871,6 +871,32 @@ Very useful for repetitive literate devops jobs.
 
 #+END_SRC
 
+
+** copy previous src block
+[2016-08-25 Thu 23:36]
+
+This is helpful in training sessions.
+
+#+BEGIN_SRC emacs-lisp
+  (defun bba-copy-org-src-block()
+    "copy last org src block and insert it at point."
+    (interactive)
+    (push-mark)
+    (re-search-backward "\#\\+BEGIN_SRC")
+    (set-mark-command nil)
+    (re-search-forward "\#\\+END_SRC")
+    (forward-line)
+    (beginning-of-line)
+    (kill-ring-save 1 1 1)
+    (set-mark-command '1)
+    (set-mark-command '1)
+    (yank)
+    )
+
+  (define-key org-mode-map "\C-c\S-w" 'bba-copy-org-src-block)
+#+END_SRC
+
+
 ** Define some shortcuts to access major org files.
 
 #+BEGIN_SRC emacs-lisp
-- 
2.47.3