Как настроить Emacs для перехода по ссылкам двумя способами, зависит от клавиши CTRL

Question

Есть ли способ изменить ссылку перехода в emacs, чтобы открыть ее в w3m при нажатии и в Chrome при нажатии с помощью CTRL.

Answer 1

Вот как вы можете это сделать:

(defun browse-url-with-w3m (event)
  (interactive "e")
  (let ((browse-url-browser-function 'w3m-browse-url))
    (browse-url-at-mouse event)))

(defun browse-url-with-default-browser (event)
  (interactive "e")
  (let ((browse-url-browser-function 'browse-url-default-browser))
    (browse-url-at-mouse event)))

(global-set-key (kbd "<mouse-1>") 'browse-url-with-w3m)
(global-set-key (kbd "<C-down-mouse-1>") 'browse-url-with-default-browser)

Обратите внимание, что я предполагаю, что Chrome - это ваш браузер по умолчанию и вы используете emacs-w3m.Конечно, вы можете настроить переменную browse-url-browser-function.

Answer 2

Небольшая модификация решения Daimrod отлично работала для меня с тремя различными браузерами:

(defun browse-url-with-default-browser (event)
  (interactive "e")
  (let ((browse-url-browser-function 'browse-url-default-browser))
       (mouse-set-point event)    
       (org-open-at-point)))

(defun browse-url-with-generic (event)
  (interactive "e")
  (let ((browse-url-browser-function 'browse-url-generic))
       (mouse-set-point event)    
   (org-open-at-point)))

(defun browse-url-with-w3m (event)
  (interactive "e")
  (let ((browse-url-browser-function 'w3m-browse-url))
   (mouse-set-point event)    
   (org-open-at-point)))

(global-set-key (kbd "<mouse-1>") 'browse-url-with-default-browser)
(global-set-key (kbd "<C-mouse-1>") 'browse-url-with-generic)
(global-set-key (kbd "C-x <mouse-1>") 'browse-url-with-w3m)

(custom-set-variables
  '(browse-url-browser-function (quote browse-url-default-browser))
  '(browse-url-generic-program "chromium-browser"))

Хотя Firefox не мой системный браузер по умолчанию, Emacs почему-то рассматривает его как стандартный,Итак, Firefox запускается с mouse-1 , Chromium с C-mouse-1 и w3m с Cx mouse-1