From 24bf342a63adaf11f41994a39ea45d0f0ad1231b Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Sun, 15 Mar 2015 15:41:25 -0400
Subject: [PATCH] Add osx/youtube/vlc scripts

---
 elisp/yt-stopwatch/probe.scpt      | Bin 0 -> 2030 bytes
 elisp/yt-stopwatch/yt-stopwatch.el |  39 +++++++++++++++++++++++++++++
 init.el                            |   2 ++
 init/init-youtube.el               |   6 +++++
 4 files changed, 47 insertions(+)
 create mode 100644 elisp/yt-stopwatch/probe.scpt
 create mode 100644 elisp/yt-stopwatch/yt-stopwatch.el
 create mode 100644 init/init-youtube.el

diff --git a/elisp/yt-stopwatch/probe.scpt b/elisp/yt-stopwatch/probe.scpt
new file mode 100644
index 0000000000000000000000000000000000000000..f9270315b1d5780983177dabd96ab9300243969b
GIT binary patch
literal 2030
zcmb_dTTfJ16#mX(fZ-hW41*P+VjZa{*ST<0Mlm5sQxX%Jw$fmmnh_?E!f+<c0545y
z|3TmT8~V_f{sUk7A`it<ROD6=@vikktE=BWGgCsLNgv#2_ILJW?QdQ7I%__Nr-#pX
ze-ey_q7mJF06cyX7%)*_Z~(=zG0Jt_JSIHcDMXPX6pV2UL{Kbm<h4RE%zjra0xwDw
z!9D0f7?uf(!Zu13!JN=s*iUkwBA6Y9p6`PnWr|>qyZaUbC|3j{%DESo{KX$UR%$$+
zR49kpM&ms2%AeS05j@t=^vJj(k&)zyA{w?;AX_jL%3z+M5}T*q!G1+>NlW3ASC+iu
z(Y~|6prTFgQ9lCmvOr#n&_oyx+1TWTEid4Yz^0mEXZj-TNPvEovRBA+g$j5sP_Tk7
zA3&x2fhxs;+2yWP;awb51edP@2jrP8&vx@E9L!ol3RL@04dX`~3gD2wjmm8Fs&N?a
z;jkjO23K=8=tEG89tq$Gop08UqTD~`Kegp4tO$yn$xLc8L(6F)Ijgc4RYR+5Ow`bs
z_i<Da+>5Hgan$0NBDgWDL9INo<OyTe-QDx4!m(`)k8OF3vIt5OWARivF?=yIl8w+&
zk{*{wid-&f9d*^AUJ=Yoj7}YmZ9t<U<mQcN(&jg1$tf!jZF#s?w3@RasOQ;`4<Q|b
zaDe<?hU05Kyw=7n3pwS1Ef4lEQK5d@jr+FT|5u<M>1aLI(JINR19LCpN5q)%(*C#H
z2F~>``Uc`-BWX=-OfY_ichE^Ek|P=B+^#m`v`l^2$Ys0lvtk|(#Z#$WLjQNc?z?<#
zb*McrE^I(aFh9?|3tK|b5QWMZY0NlZ{lxWv9$#Diev)H@Um2}oAAnu*E&CPrZ|F%Z
z??}u^Wn#GOBomh=64T8?@$_g6J;VveNyacWHWY)aC5F6DKI$vR0M4O@cO6HHkDs5l
z7lUw+MgmEUAj5Y#nn)ks!5+?&hshmwsl$0@mW?p9r-r=I@LGS`MeI?uC_=8@LGH<>
z+%@E$7TVNsS4+0Ax5|b>>$c<_S(i0K?r5QP4Qo1$Ho&67(&;Zl0gB{zw4ogxvWgQ1
zC-kok9$ArPS&~IdR!|v=C#EtEZ*+WeYz(-<;C_b&Hd~f=e-XAU?UCTNEbd5YA9WU&
z$!(mJ1-XSz#N?*M>3=IzIGO(|h~SioQ}m%wZkTdId$yoGyQQt~)DUA)jL5wFhSM@9
zzp{u0<+{wuF9=yOpDWcCx3lHkhttqSd@fgsZ64WGXl=Q^!v#xbb4AD|@9we_kei4u
zmZQ00X*9gtwDS3C(-#*;I-|X_{a4pmFum)&bA#|VY&7-G_g~$t{kgVx?!4cJ4qZaJ
z0_eg=ILkyzW0VQyFwuhiw`*bAMHq?@M-iq)J6D_8qd4L2bP}WPew6zmG7R8jzLPxP
mR=``H^-+=<&IE7<U%qV(`JzYbqG*k$hbH(TmToO9{O~s(mZmHK

literal 0
HcmV?d00001

diff --git a/elisp/yt-stopwatch/yt-stopwatch.el b/elisp/yt-stopwatch/yt-stopwatch.el
new file mode 100644
index 000000000..4e23a55fb
--- /dev/null
+++ b/elisp/yt-stopwatch/yt-stopwatch.el
@@ -0,0 +1,39 @@
+
+(defconst yt-stopwatch-script-path (file-name-directory load-file-name))
+
+(defun yt-stopwatch-record-time ()
+  (interactive)
+  (beginning-of-line)
+  (insert (format "* %ss - " (yt-stopwatch--reformat-time (cdr (yt-stopwatch--probe))))))
+
+(defun yt-stopwatch--reformat-time (seconds)
+  (format-time-string "%H:%M:%S" (encode-time (string-to-number (car seconds)) 0 0 0 0 0)))
+
+(defun yt-stopwatch-video-name ()
+  (interactive)
+  (beginning-of-line)
+  (insert (format "%s\n" (car (yt-stopwatch--probe)))))
+
+(defun yt-stopwatch--probe ()
+  (let ((out (shell-command-to-string (format "osascript %s/probe.scpt" yt-stopwatch-script-path))))
+    (if (string-equal out "---\n")
+        (user-error "VLC isn't running or no video playing")
+      (split-string out " || " t "[\n \t]+"))))
+
+(defun yt-stopwatch-test ()
+  (interactive)
+  (let ((data (yt-stopwatch--probe)))
+    (message "Video: %s \n Time: %ss" (car data) (cdr data))))
+
+(defvar yt-stopwatch-mode-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map (kbd "C-c y") 'yt-stopwatch-record-time)
+    (define-key map (kbd "C-c C-y") 'yt-stopwatch-video-name)
+    map))
+
+(define-minor-mode yt-stopwatch-mode
+  :keymap yt-stopwatch-mode-map
+  :group yt-stopwatch-mode)
+
+(provide 'yt-stopwatch)
+;;; yt-stopwatch.el ends here
diff --git a/init.el b/init.el
index 0e9c9a466..e51f76eda 100644
--- a/init.el
+++ b/init.el
@@ -42,6 +42,7 @@
 (let ((default-directory my-elisp-dir))
   (normal-top-level-add-subdirs-to-load-path))
 
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Just the... bear necessities...
 (mapc 'require
@@ -85,6 +86,7 @@
         ;; init-vala
         init-web
         init-yasnippet         ; type for me
+        init-youtube           ; tools for youtube vids
 
         my-bindings
         my-settings
diff --git a/init/init-youtube.el b/init/init-youtube.el
new file mode 100644
index 000000000..9b7b47bd0
--- /dev/null
+++ b/init/init-youtube.el
@@ -0,0 +1,6 @@
+
+(require 'yt-stopwatch)
+
+(provide 'init-youtube)
+;;; init-youtube.el ends here
+