From 41f3b9490baf125c05433a30b22961f3ad9bc993 Mon Sep 17 00:00:00 2001 From: jao Date: Thu, 25 Mar 2021 23:18:41 +0000 Subject: dead code (jao-embark-targets) --- lib/eos/jao-embark-targets.el | 97 ------------------------------------------- 1 file changed, 97 deletions(-) delete mode 100644 lib/eos/jao-embark-targets.el (limited to 'lib/eos') diff --git a/lib/eos/jao-embark-targets.el b/lib/eos/jao-embark-targets.el deleted file mode 100644 index 1887b79..0000000 --- a/lib/eos/jao-embark-targets.el +++ /dev/null @@ -1,97 +0,0 @@ -;;; 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") -(declare-function org-link-any-re "ol") -(declare-function org-open-link-from-string "ol") -(declare-function org-in-regexp "org-macs") - -(defun jao-embark-targets--org-link () - (when (derived-mode-p 'org-mode) - (when (org-in-regexp org-link-any-re) - (let ((lnk (match-string-no-properties 2))) - (if (string-match-p "http://.+" lnk) - (cons 'url lnk) - (cons 'org-link (match-string-no-properties 0))))))) - -(embark-define-keymap jao-embark-targets-org-link-map - "Actions for org links" - ((kbd "RET") org-open-link-from-string)) - -(add-to-list 'embark-target-finders #'jao-embark-targets--org-link) -(add-to-list 'embark-keymap-alist '(org-link . jao-embark-targets-org-link-map)) - -(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 (player url) - (interactive "sURL: ") - (let ((cmd (format "%s %s" player (shell-quote-argument url)))) - (start-process-shell-command player nil cmd))) - -(defun jao-embark-targets-mpv (&optional url) - "Play video stream with mpv" - (interactive "sURL: ") - (jao-embark-targets--play-video "mpv" url)) - -(defun jao-embark-targets-vlc (&optional url) - "Play video stream with vlc" - (interactive "sURL: ") - (jao-embark-targets--play-video "vlc" url)) - -(embark-define-keymap jao-embark-targets-video-url-map - "Actions on URLs pointing to remote video streams." - :parent embark-url-map - ("v" jao-embark-targets-vlc) - ("m" jao-embark-targets-mpv)) - -(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 -- cgit v1.2.3