From a710006083ce5f4fea784ef074d39a7372b3fa6a Mon Sep 17 00:00:00 2001 From: jao Date: Fri, 22 Jan 2021 02:42:04 +0000 Subject: rename --- eos/jao-embark-targets.el | 68 ++++++++++++++++++++++++++++++++++++++++++++ eos/jao-embark.el | 72 ----------------------------------------------- 2 files changed, 68 insertions(+), 72 deletions(-) create mode 100644 eos/jao-embark-targets.el delete mode 100644 eos/jao-embark.el diff --git a/eos/jao-embark-targets.el b/eos/jao-embark-targets.el new file mode 100644 index 0000000..f55398c --- /dev/null +++ b/eos/jao-embark-targets.el @@ -0,0 +1,68 @@ +;;; jao-embark-targets.el --- embark actions -*- lexical-binding: t; -*- + +;; Copyright (C) 2021 jao + +;; Author: jao +;; Keywords: convenience + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +;;; Commentary: + +;; Embark targets and actions + +;;; Code: + +(require 'embark) + +(declare-function w3m-anchor "w3m") + +(defvar jao-embark-targets-video-url-rx + (format "^https?://\\(?:www\\.\\)?%s/.+" + (regexp-opt '("youtu.be" + "youtube.com" + "blip.tv" + "vimeo.com" + "infoq.com") + t)) + "A regular expression matching URLs that point to video streams") + +(defun jao-embark-targets--w3m-anchor () + (when (not (region-active-p)) + (when-let ((url (or (w3m-anchor) w3m-current-url))) + (cons 'url url)))) + +(defun jao-embark-targets--refine-url (url) + (if (string-match-p jao-embark-targets-video-url-rx url) + (cons 'video-url url) + (cons 'url url))) + +(defun jao-embark-targets-play-video-url (&optional url) + (interactive "sURL: ") + (let ((cmd (format "mpv %s" (shell-quote-argument url)))) + (start-process-shell-command "mpv" nil cmd))) + +(embark-define-keymap jao-embark-targets-video-url-map + "Actions on URLs pointing to remote video streams." + :parent embark-url-map + ("p" jao-embark-targets-play-video-url)) + +(define-key embark-url-map (kbd "f") #'browse-url-firefox) + +(add-to-list 'embark-target-finders #'jao-embark-targets--w3m-anchor) +(add-to-list 'embark-transformer-alist '(url . jao-embark-targets--refine-url)) +(add-to-list 'embark-keymap-alist '(video-url . jao-embark-targets-video-url-map)) + +(provide 'jao-embark-targets) +;;; jao-embark-targets.el ends here diff --git a/eos/jao-embark.el b/eos/jao-embark.el deleted file mode 100644 index a59e241..0000000 --- a/eos/jao-embark.el +++ /dev/null @@ -1,72 +0,0 @@ -;;; jao-embark.el --- embark actions -*- lexical-binding: t; -*- - -;; Copyright (C) 2021 jao - -;; Author: jao -;; Keywords: convenience - -;; This program is free software; you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; This program is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with this program. If not, see . - -;;; Commentary: - -;; Actions and utilities for embark - -;;; Code: - -(require 'embark) - -(declare-function w3m-anchor "w3m") - -(defvar jao-embark-video-url-rx - (format "^https?://\\(?:www\\.\\)?%s/.+" - (regexp-opt '("youtu.be" - "youtube.com" - "blip.tv" - "vimeo.com" - "infoq.com") - t)) - "A regular expression matching URLs that point to video streams") - -(defun jao-embark-w3m-anchor () - (when (not (region-active-p)) - (when-let ((url (or (w3m-anchor) w3m-current-url))) - (cons 'url url)))) - -(defun jao-refine-url (url) - (if (string-match-p jao-embark-video-url-rx url) - (cons 'video-url url) - (cons 'url url))) - -;;;###autoload -(defun jao-embark-play-video-url (&optional url) - (interactive "sURL: ") - (let ((cmd (format "mpv %s" (shell-quote-argument url)))) - (start-process-shell-command "mpv" nil cmd))) - -(define-key embark-url-map (kbd "f") #'browse-url-firefox) - -(embark-define-keymap jao-embark-video-url-map - "Actions on URLs pointing to remote video streams." - :parent embark-url-map - ("p" jao-embark-play-video-url)) - -;;;###autoload -(defun jao-embark-setup () - (interactive) - (add-to-list 'embark-target-finders #'jao-embark-w3m-anchor) - (add-to-list 'embark-transformer-alist '(url . jao-refine-url)) - (add-to-list 'embark-keymap-alist '(video-url . jao-embark-video-url-map))) - -(provide 'jao-embark) -;;; jao-embark.el ends here -- cgit v1.2.3