dotfiles

4 files changed, 31 insertions, 28 deletions

diff --git a/bin/media-filename-to-title.sh b/bin/media-filename-to-title.sh
index 0047ac3..38dadd2 100755
--- a/bin/media-filename-to-title.sh
+++ b/bin/media-filename-to-title.sh
@@ -1,5 +1,3 @@
-#!bash
-
 for f in *; do
     ffmpeg -i "$f" -metadata title="$(basename $f)" -c copy "new_$f"
     mv "new_$f" "$f"
diff --git a/bin/split-media-files.sh b/bin/split-media-files.sh
index 1f4c8bc..c680629 100755
--- a/bin/split-media-files.sh
+++ b/bin/split-media-files.sh
@@ -1,5 +1,3 @@
-#!bash
-
 max_duration=$((4*3600))
 
 if [[ $# -ne 1 ]]; then
@@ -10,10 +8,8 @@ fi
 input_file="$1"
 
 base="$(basename $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}"
+ffmpeg -i "${input_file}" \
+       -f segment -segment_time $max_duration -segment_start_number 1 \
+       -segment_format mp3 -qscale:a 5 \
+       "${base}-%02d.mp3"
diff --git a/nix-home-config/my-env.nix b/nix-home-config/my-env.nix
index 265b114..1f4831d 100644
--- a/nix-home-config/my-env.nix
+++ b/nix-home-config/my-env.nix
@@ -12,11 +12,15 @@
     htop
     iw
     wirelesstools
-    R
-    rPackages.data_table
-    rPackages.ggplot2
-    rPackages.hms
-    rPackages.viridis
+    (rWrapper.override {
+      packages = with rPackages; [
+        data_table
+        ggplot2
+        hms
+        viridis
+        lubridate
+      ];
+    })
     emacs
     hledger
     hledger-ui
diff --git a/spacemacs b/spacemacs
index a6ce47e..ae3ec9d 100644
--- a/spacemacs
+++ b/spacemacs
@@ -208,22 +208,27 @@ It is called immediately after `dotspacemacs/init'.  You are free to put any
 user code."
   ;; bind ctrl-w to backwards-kill-word when no region is selected
   (global-set-key (kbd "C-w") 'backward-kill-word-or-kill-region)
+
+  (spacemacs|use-package-add-hook org
+    :pre-init
+    (package-initialize))
+
   (defun backward-kill-word-or-kill-region (&optional arg)
     (interactive "p")
     (if (region-active-p)
         (kill-region (region-beginning) (region-end))
       (backward-kill-word arg)))
 
-  (org-babel-do-load-languages
-   'org-babel-load-languages
-   '((emacs-lisp . nil)
-     (R . t)))
+  ;; (org-babel-do-load-languages
+  ;;  'org-babel-load-languages
+  ;;  '((emacs-lisp . nil)
+  ;;    (R . t)))
   (setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3")
-  (autoload 'org-mks "org-macs")
-  (autoload 'org-show-all "org")
-  (autoload 'org-line-number-display-width "org-compat")
-  (autoload 'org-set-local "org-element")
-  (autoload 'org-element-block-name-alist "org-element")
+  ;; (autoload 'org-mks "org-macs")
+  ;; (autoload 'org-show-all "org")
+  ;; (autoload 'org-line-number-display-width "org-compat")
+  ;; (autoload 'org-set-local "org-element")
+  ;; (autoload 'org-element-block-name-alist "org-element")
 
   (setq-default exec-path-from-shell-variables '())
 
@@ -241,10 +246,10 @@ user code."
 
 (defun kj-org-config ()
   "Org configuration."
-  (org-babel-do-load-languages
-   'org-babel-load-languages
-   '((R . t)))
   (with-eval-after-load 'org
+    (org-babel-do-load-languages
+     'org-babel-load-languages
+     '((R . t)))
     (autoload 'org-babel-execute:emacs-lisp "ob-emacs-lisp")
     (org-babel-do-load-languages
      'org-babel-load-languages
@@ -265,7 +270,7 @@ user code."
    ;;    "* TODO %?\n  %i\n  %a")))
    org-agenda-files '("~/org/todo.org")
    )
-  ; (global-git-commit-mode t)
+                                        ; (global-git-commit-mode t)
 
   (setq org-capture-templates
         `(