Holymacs ~ Jarvis module

(defun holymacs-random (items)
  "Pick a random element from a list"
  (nth (random (length items)) items))

(defun eval-replace-last-sexp ()
  (interactive)
  (let ((value (eval (preceding-sexp))))
    (kill-sexp -1)
    (insert (format "%S" value))))

(defcustom jarvis/youtube-sources '()
  "List of some Youtube videos; `jarvis/play-youtube` will pick one of them, randomly, and open it"
  :type '(repeat (list :tag "sources" (string :tag "title") (string :tag "url"))))

(defun jarvis/play-youtube (&optional url)
  "Randomly pick one of the videos defined in `jarvis/youtube-sources` and then play it."
  (interactive (list (completing-read "URL: " jarvis/youtube-sources)))
  (let ((command (format "mpv \"%s\"" url))
        (buffer-name (format "mpv: %s" url)))
    (async-shell-command command buffer-name)))

(defun jarvis/open-random-youtube ()
  "Open in mpv one of the sources in `jarvis/youtube-sources` and then open it."
  (interactive)
  (let ((url (holymacs-random jarvis/youtube-sources)))
    (jarvis/open-youtube url)))

(defun jarvis/open-youtube (&optional url)
  "Open in browser one of the sources in `jarvis/youtube-sources`."
  (interactive (list (completing-read "URL: " jarvis/youtube-sources)))
  (browse-url-default-browser url))

(use-package password-store) ;;  (password-store-get "youtube-api")
(use-package request
  :after password-store
  :config
  (defcustom jarvis/youtube-api-key "" "Youtube API key")
  (defvar jarvis/youtube-api-key "" "Youtube API key")
  (defun jarvis/channel-vids (url)
    "Get a list of videos given a Youtube channel (url)"
    (request "https://www.googleapis.com/youtube/v3/search"
      :params `(("key" . ,jarvis/youtube-api-key) ("maxResults" . 2))
      :parser 'json-read
      :success (cl-function
                (lambda (&key data &allow-other-keys)
                  (when data
                    (with-current-buffer (get-buffer-create "*youtube-vids*")
                      (erase-buffer)
                      (insert (prin1-to-string data))
                      (pop-to-buffer (current-buffer)))))))))

(use-package alarm-clock
  :config
  (defun holymacs/jarvis/set-alarm-10min-fire! ()
    (interactive)
    (alarm-clock-set "10min" "FIRE!"))
  :bind
  ("M-o ! 1" . #'holymacs/jarvis/set-alarm-10min-fire!))

(use-package bongo)

curl https://cht.sh 

(defun cht.sh-help (helpable)
  (interactive "sHelp: ")
  (cht.sh-query "/:help"))

(defun cht.sh-list ()
  (interactive)
  (cht.sh-query "/:list"))

(defun cht.sh-query (query)
  (interactive "sQuery: ")
  (let ((cmd (format "curl https://cht.sh/%s" query))
        (buffer-name (format "*cht-sh* <%s>" query)))
    (async-shell-command cmd buffer-name)))

(use-package engine-mode
  :init
  (setq engine/browser-function #'browse-url-firefox)
  :config
  (defun engine/execute-search (search-engine-url browser-function search-term)
    "Display the results of the query."
    (interactive)
    (let ((browse-url-handlers nil)
            (browse-url-browser-function browser-function))
        (browse-url
         (format-spec search-engine-url
                      (format-spec-make ?s (url-hexify-string search-term))))))

  (defengine dropbox
    "https://www.dropbox.com/search/personal?query=%s"
    :browser 'browse-url-firefox
    :keybinding "D")

  (defengine duckduckgo
    "https://duckduckgo.com/?q=%s"
    :browser 'eww-browse-url
    :keybinding "d")

  (defengine github
    "https://github.com/search?ref=simplesearch&q=%s"
    :keybinding "h")

  (defengine google
    "https://www.google.com/search?ie=utf-8&oe=utf-8&q=%s"
    :browser 'browse-url-firefox
    :keybinding "g")

  (defengine google-images
    "https://www.google.com/images?hl=en&source=hp&biw=1440&bih=795&gbv=2&aq=f&aqi=&aql=&oq=&q=%s"
    :keybinding "i")

  (defengine google-maps
    "https://maps.google.com/maps?q=%s"
    :docstring "Google Maps"
    :keybinding "m")

  (defengine google-maps
    "https://www.openstreetmap.org/search?query=%s"
    :docstring "OpenStreetMap"
    :keybinding "M")

  (defengine google-translate-to-it
    "https://translate.google.it/?sl=auto&tl=it&text=%s&op=translate"
    :docstring "Translate to IT"
    :keybinding "t")

  (defengine google-translate-to-en
    "https://translate.google.it/?sl=it&tl=en&text=%s&op=translate"
    :docstring "Translate from IT to English"
    :browser 'browse-url-firefox
    :keybinding "T")

  (defengine stack-overflow
    "https://stackoverflow.com/search?q=%s"
    :keybinding "s")

  (defengine wikipedia
    "https://www.wikipedia.org/search-redirect.php?language=it&go=Go&search=%s"
    :keybinding "w"
    :docstring "Searchin' the wikis."
    :browser 'eww-browse-url)

  (defengine youtube
    "https://www.youtube.com/results?aq=f&oq=&search_query=%s"
    :keybinding "y")

  (defengine amazon
    "https://www.amazon.it/s/ref=nb_sb_noss?&field-keywords=%s"
    :browser 'browse-url-firefox
    :keybinding "a")

  (defengine cap
    "https://www.nonsolocap.it/cap?k=%s&c=pescara"
    :browser 'browse-url-firefox
    :keybinding "C")

  (engine-mode t))