From 48a5e69b515861127f566110a1f82711633dcf33 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Mon, 6 Jan 2025 21:30:13 +1100 Subject: [emacs][rofi] browse-url jira from org-jira * emacs/.emacs.d/init/ycp-web.el: Add org link handling jira; add my-org-jira-open-url as a browse-url-handler * emacs/.emacs.d/lisp/my/my-org-jira.el: add functions to fetch jira issue given a url * emacs/.emacs.d/lisp/my/my-web.el: remove the redundant my-browse-url now that we use browse-url-handlers * emacs/.emacs.d/lisp/my/my-ytdl.el: infobox to extract from ytdl supported video urls * misc/.config/rofi/config.rasi: newer versions of rofi does not do glob matching like prefix any more --- emacs/.emacs.d/lisp/my/my-web.el | 13 ------------- 1 file changed, 13 deletions(-) (limited to 'emacs/.emacs.d/lisp/my/my-web.el') diff --git a/emacs/.emacs.d/lisp/my/my-web.el b/emacs/.emacs.d/lisp/my/my-web.el index f33f30c..f2e48ba 100644 --- a/emacs/.emacs.d/lisp/my/my-web.el +++ b/emacs/.emacs.d/lisp/my/my-web.el @@ -86,19 +86,6 @@ (start-process (concat "mullvad-browser " url) nil "mullvad-browser" url)) -;; TODO: change to using hmm matching url with default app -;; override browse-url -(defun my-browse-url (url &optional arg) - (interactive "P") - (cond ((equal arg '(4)) - (funcall browse-url-secondary-browser-function url)) - ((equal arg '(16)) - (my-browse-url-tor-browser url)) - (t (luwak-open url)))) - -;; this fixes clicking url buttons like those in gnus messages -(defalias 'browse-url-button-open-url 'my-browse-url) - (defun my-browse-url-at-point (arg) (interactive "P") (my-browse-url (browse-url-url-at-point) arg)) -- cgit v1.2.3