;;; This file:
;;;   http://angg.twu.net/elisp/video-links-2021.el.html
;;;   http://angg.twu.net/elisp/video-links-2021.el
;;;           (find-angg "elisp/video-links-2021.el")
;;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;;;
;;; (defun e () (interactive) (find-angg "elisp/video-links-2021.el"))
;;; (defun g () (interactive) (find-fline "~/tmp/ghirlandaio__portrait_of_a_young_woman.jpg"))
;;; (defun eejump-18 () (set-frame-font "Monospace 18"))
;;; (find-fline "$S/http/angg.twu.net/eev-videos/")
;;; (find-fline "$S/http/angg.twu.net/eev-videos/" "test")






















       How to use the
       "[Video links:]" blocks
       in the "intro"s of eev

       By Eduardo Ochs
       2021may10













0. NEW FEATURE!!!
   ==============
   Now the sandboxed tutorials of eev -
   like (find-eev-quick-intro) - have lots of
   blocks like these ones:

   [Video links:]
     (find-eevnavvideo "10:36" "if I type <f8> six times here")
     (find-eevnavvideo "10:50" "a shell running inside Emacs")
     (find-eev2019video "15:11" "Demo: the eepitch block (in red star lines)")
     (find-eev2019video "15:48" "Demo: eepitch on non-red star lines")
     (find-eev2019video "15:56" "Demo: eepitch in action")
     (find-eevtestblsvideo "2:33" "if I run f8 here I start a new Lua interpreter")

   [Video links:]
     (find-eev2020video "26:49" "1.5.3. `M-J' (meta-uppercase-J)")
     (find-eev2020video "26:58"   "transforms the current line")
     (find-eev2020video "27:37"   "into a defun")

   The first block is from:
   (find-eev-quick-intro "6. Controlling shell-like programs")
   (find-eev-quick-intro "6. Controlling shell-like programs" "[Video links:]")
   http://angg.twu.net/eev-intros/find-eev-quick-intro.html#6

   The second block is from:
   (find-eev-quick-intro "7.3. Defining eejump targets")
   (find-eev-quick-intro "7.3. Defining eejump targets" "[Video links:]")
   http://angg.twu.net/eev-intros/find-eev-quick-intro.html#7.3



1. They are very easy to use from a web browser...
   ===============================================
   An example:

   http://angg.twu.net/#eev
   (find-eev-quick-intro)
   (find-eev-quick-intro "7.3. Defining eejump targets")
   http://angg.twu.net/eev-intros/find-eev-quick-intro.html#7.3

   (find-eev2020video "27:37" "into a defun")
                       `---'
                  Points to:
   http://www.youtube.com/watch?v=hOAqBc42Gg8#t=27m37s
                                              `------'
                                              start at

   (find-eev2020video "27:37" "into a defun")
    `---------------'
     Points to help:
     http://angg.twu.net/eev-intros/find-videos-intro.html#2
     (find-videos-intro "2. Short links to eev video tutorials")




2. That section ends with:
   =======================
   "If you follow these `find-eev*video' sexp hyperlinks in Emacs you
    will _usually_ get a temporary buffer with links to that video...
    see the next section."

   (find-eev2020video "27:37" "into a defun")

   Let's look at the source:

   (eek "M-h M-f  find-eev2020video")
   (find-efunctiondescr 'find-eev2020video)
   (find-efunction      'find-eev2020video)




3. Let's look at the temporary buffer...
   ==========================================

   (find-eev2020video "27:37" "into a defun")


   3.1. Use the URL
   ----------------

     # Youtube:
     # (kill-new "http://www.youtube.com/watch?v=hOAqBc42Gg8#t=27m37s")
     #            http://www.youtube.com/watch?v=hOAqBc42Gg8#t=27m37s
                  ^ `M-x brg' here opens this with Google Chrome 


   3.2. Download the local copy of the video (an .mp4)
   ---------------------------------------------------

     If the last part of the temporary buffer says:

       # *** Local file not found! ***
       # *** You need to run this: ***

     then we can run the code there with <f8>s
     to download the local copy...
     See:

       (find-psne-intro)
       (find-eev-quick-intro "6. Controlling shell-like programs")
       (find-eev-quick-intro   "Here's what <F8> does:")



    3.3. Play the local copy
    ------------------------

      If the last part of the temporary buffer says:

        # Local file found. No need to download it again.

      then we can play the local copy -
      by going to the second line of the temporary buffer,
      that has this sexp, and then executing it:

        # (find-video "$S/http/angg.twu.net/eev-videos/emacsconf2020.mp4" "27:37")

      Try also this:

        (eek "<down> M-e <down> M-e")
        (find-eev2020video "27:37" "into a defun")