helm-youtube.el

;;; helm-youtube.el --- Query YouTube and play videos in your browser

;; Copyright (C) 2016 Maximilian Roquemore

;; Author: Maximilian Roquemore <maximus12793@gmail.com>
;; Version: 1.1
;; Package-Requires: ((request "0.2.0") (helm "2.3.1") (cl-lib "0.5"))
;; URL: https://github.com/maximus12793/helm-youtube
;; Created: 2016-Oct-19 01:58:25
;; Keywords: youtube, multimedia

;;; Commentary:

;; This package provides an interactive prompt to search
;; youtube as you code :)

;;; MIT License
;;
;; Permission is hereby granted, free of charge, to any person obtaining
;; a copy of this software and associated documentation files (the
;; "Software"), to deal in the Software without restriction, including
;; without limitation the rights to use, copy, modify, merge, publish,
;; distribute, sublicense, and/or sell copies of the Software, and to
;; permit persons to whom the Software is furnished to do so, subject to
;; the following conditions:
;;
;; The above copyright notice and this permission notice shall be
;; included in all copies or substantial portions of the Software.
;;
;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
;; NONINFRINGEMENT.  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
;; LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
;; OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
;; WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

;;; Code:

(require 'cl-lib)
(require 'helm)
(require 'request)
(require 'json)

(defgroup helm-youtube nil
  "Helm-youtube settings."
  :group 'tools)

(defcustom helm-youtube-key nil
  "Your Google API key.";; INSERT YOUR KEY FROM GOOGLE ACCOUNT!!!
  :group 'helm-youtube)

;;;###autoload
(defun helm-youtube()
  (interactive)
  (unless helm-youtube-key
    (error "You must set `helm-youtube-key' to use this command"))
  (request
   "https://www.googleapis.com/youtube/v3/search"
   :params `(("part" . "snippet")
	     ("q" . ,(read-string "Search YouTube: "))
	     ("type" . "video")
	     ("maxResults" . "20")
	     ("key" .  ,helm-youtube-key));; <--- GOOGLE API KEY
   :parser 'json-read
   :success (cl-function
	     (lambda (&key data &allow-other-keys)
	       (helm-youtube-wrapper data)));;function
   :status-code '((400 . (lambda (&rest _) (message "Got 400.")))
		  ;; (200 . (lambda (&rest _) (message "Got 200.")))
		  (418 . (lambda (&rest _) (message "Got 418."))))
   :complete (message "searching...")))

(defun helm-youtube-tree-assoc (key tree)
  "Build the tree-assoc from KEY TREE for youtube query."
  (when (consp tree)
    (cl-destructuring-bind (x . y)  tree
      (if (eql x key) tree
	(or (helm-youtube-tree-assoc key x) (helm-youtube-tree-assoc key y))))))

(defun helm-youtube-playvideo (video-id)
  "Format the youtube URL via VIDEO-ID."
  (browse-url
   (concat "http://www.youtube.com/watch?v=" video-id)))


(defun helm-youtube-wrapper (*qqJson*)
  "Parse the json provided by *QQJSON* and provide search result targets."
  (let (*results* you-source)
    (setq *qqJson* (cdr (assoc 'items *qqJson*)))
    (cl-loop for x being the elements of *qqJson*
	     do (push (cons (cdr (helm-youtube-tree-assoc 'title x)) (cdr (helm-youtube-tree-assoc 'videoId x))) *results*))
    (let ((you-source
	   `((name . "Youtube Search Results")
	     (candidates . ,(mapcar 'car *results*))
	     (action . (lambda (candidate)
			 ;; (message-box "%s" (candidate))
			 (helm-youtube-playvideo (cdr (assoc candidate *results*)))
			 )))))
      (helm :sources '(you-source)))))

(provide 'helm-youtube)

;; Local Variables:
;; End:

;;; helm-youtube.el ends here