Include mk* scripts

1 files changed, 25 insertions, 0 deletions

diff --git a/mkslice-default b/mkslice-default
new file mode 100755
index 0000000..ee4d980
--- /dev/null
+++ b/mkslice-default
@@ -0,0 +1,25 @@
+#!/bin/sh
+
+# create slices of text
+
+set -e
+
+# resolve options
+eval set -- "$(getopt -s sh -o f -- "$@")"
+while true; do case "$1" in -f) force=1; shift;; --) shift; break;; esac; done
+
+. /lib/lsb/init-functions
+
+# actual slicing: first argument is variant, others are csplice patterns
+doit() {
+	variant=$1; shift
+	csplit -s -f $stem -b "-$variant-%03d.mdwn" $stem.mdwn "$@"
+}
+
+log_action_begin_msg "Create slices"
+for stem in "$@"; do
+	log_action_cont_msg $stem
+	doit rec \
+		'/^# \(Title\|Article\)/' '{*}'
+done
+log_action_end_msg $?