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
zcmZ=uEKUh^3|27IGc*8UJ_ZH`7XJVL85kLu7?>IV|7T#}Wng4r%w~W97A6K31||kp
z1~y&>RtDxA1||ju1_K86|Ns8~<z--JVDbm6GhpCg;N)fCfM{f4&}ZOcV&Gz6V&G=r
z;bq`vU@8LH!ywAQ%fQFWz{|j7#>l|H!XV7R&mh3dz|X*x2bSkz5M&VIWe{XwG-P04
z;9%hT|A*`U9|jh#g1p3BUIrlsCKCom1{Ma6|Gyc8x&HrVVBtzG&&=ax5N2S^Wnf@n
zV_^UPi~0XA21Z^60R|>JMg|6M1|bF!22oxH5s0BY41E88a{d3wz{2I}qM*RbAPUjS
z&mj2!2lM|Q|Nrwc@G&svgT2M@|2y~p?+p9~4BX|Jc`5nj@p*~4sSFHE3_J`>3}XMk
z@iK@putYI1Fo-eeGl(-t{Qt@z$;%+lz+?*+lVp%$kmhBOf|w`9ApZXg_x~@L=J7H}
zLtG)wAi*HR#~{PNxRF6tkU<s{8xoMvlVOl&kYkYNWsrj?m0^%&P~c-w04Y@zWKd*a
zW6%XbUIuxHbqov)|37p8|IEN;z`&MYT2fG2!oa}v|0~E$Nk~K~G3YZWF)=7HFfk}I
zsPHl<L#$F_P-jqOP~&A#g@l<BgX;fJT>n2Yuy8p#I*0Hws3C0l$o>B#gMa}8PijtL
zL2+tId`TuGgj5)q7}WoN;AK#U7^=ab&!EAe$;+U@z?8(mz@WjP%b>-e&C8$#<7+eM
zFzE6!=s*nDV9@;kp8NlMY@wwK2?9+9Ee1V420c&^=nFFFGjK2{Fw`*AFevacXhTfV
zX3+Wnj{E;REKcNQ(1fS~1=L&a|8LO(>H{dWzJWrE6Ji|$10#b0KZ60|1rA8+pe7mS
z<E+fU#K@4ClUWQhm$8U}iGh(LGQT)AH?t%aB!q@9<QtWFXfrS{aC?Tchxs_`B^DH*
zDIuQA?U`}@NwO(S!~g%Fl7LeI#)s0ZMtX*NrVI=M3>*v$7xJ^VF)%O)g4pMu%r0dB
zg^vixH4NOIVGP`yjSSqJ4Gi3z^$bi5RxpoP<rkD#F=XWDrY04omg^=b7H3;AI42fo
z7v<;YS}~O6BwI0nZLwm2`H7D~fPtMMjKPP&nL&>sk)eR0fPtSuh=GG4k|Cd=m?4!R
zmm!m(gdvqdh(Ra6phO?VbbXlN`eixE`e38=VI~VRFzPdae9HL$9|Hs9|G%KD&BnmQ
zV8~#^%U}pA?->5S`TzR=E5`qCK#E?2h*uz$Mhr|0#{XaPG8iLNzWD$A|1-w_FF=Z(
zgNSFKWb~4Ofe%!4@(VC9GqC-C%3#7^%3${Y34=M~|EHkvG+|)*|M>r-{}2B^;QIfV
zK|(JvwX7sRv7jKYG$)6Fp@D&cVFH7emX;Rx|3{cPg8TnNED4<Z{{xgH&BtKMz%KCr
zK7+;od;jk;STb1szr*$aJ|4?>87v?L1*puoW@4}gRR#ZVGyT5}^4UF*&+dX;ZwVr-
z7<d>A{@?n4lfmZyjsMpfWEd3wU;BUc{}l#3uK%~7MK#y|o6zE%kHLlkREXbzmc-ou
zuVeGrH54y!{l5w=gt-4-!Qy4X|92P+9|$q%YCX)>f28v``iV|VRHmh&>s9}w&lqGG
zIG(%Sh-Bc`da2`j%m3(W)l;gjH$wUO7|cLLh^-)lEkgi<3qvYHF+(;(2}3?Z0fPdA
z0fP~P9)kgc1%n=g5rYAPA%iJ{0)sAt0)rugIatP$L65-@EN{qQz@W$A!Vty~#GuEJ
x%TT~z!u<aU!&N>8bC3;of(&*Han!Z}R_HMpF&Hu!Cl)6cF)%Xl{JM8<EdU;trYrye

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
+