bag of changes

3 files changed, 27 insertions, 0 deletions

diff --git a/bin/split-media-files.sh b/bin/split-media-files.sh
new file mode 100755
index 0000000..5f79c81
--- /dev/null
+++ b/bin/split-media-files.sh
@@ -0,0 +1,19 @@
+#!bash
+
+max_duration=$((4*3600))
+
+if [[ $# -ne 1 ]]; then
+    echo 1>&2 "Usage: $0 <media-file>"
+    exit 1
+fi
+
+input_file="$1"
+
+base="$(echo $input_file | perl -pe 's/(.*)\.([^.]*)$/$1/')"
+extension="$(echo $input_file | perl -pe 's/(.*)\.([^.]*)$/$2/')"
+if [[ $extension == "m4b" ]]; then
+  extension=m4a
+fi
+
+ffmpeg -i "${input_file}" -c copy -f segment -segment_time $max_duration \
+       "${base}-%03d.${extension}"
diff --git a/nix-home-config/my-env.nix b/nix-home-config/my-env.nix
index 51c6c3b..6a97cf5 100644
--- a/nix-home-config/my-env.nix
+++ b/nix-home-config/my-env.nix
@@ -24,5 +24,7 @@
     bwm_ng
     signal-desktop
     nix-index
+    ffmpeg
+    vlc
   ];
 }
diff --git a/spacemacs b/spacemacs
index 27d72dd..a6ce47e 100644
--- a/spacemacs
+++ b/spacemacs
@@ -244,6 +244,12 @@ user code."
   (org-babel-do-load-languages
    'org-babel-load-languages
    '((R . t)))
+  (with-eval-after-load 'org
+    (autoload 'org-babel-execute:emacs-lisp "ob-emacs-lisp")
+    (org-babel-do-load-languages
+     'org-babel-load-languages
+     '((R . t)
+       (emacs-lisp . t))))
 
   (setq my-running-journal "~/www/running-2019.org")