Advertisement
Guest User

Untitled

a guest
Jun 20th, 2019
96
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.45 KB | None | 0 0
  1. g runs the command mu4e-view-go-to-url (found in mu4e-view-mode-map), which is
  2. an interactive compiled Lisp function in
  3. โ€˜/usr/local/Cellar/mu/1.2.0/share/emacs/site-lisp/mu/mu4e/mu4e-view.elโ€™.
  4.  
  5. It is bound to g, <menu-bar> <headers> <goto-url>.
  6.  
  7. (mu4e-view-go-to-url &optional MULTI)
  8.  
  9. Offer to go to url(s). If MULTI (prefix-argument) is nil, go to
  10. a single one, otherwise, offer to go to a range of urls.
  11.  
  12. (defun mu4e-view-save-url (&optional multi)
  13. "Offer to save urls(s) to the kill-ring. If
  14. MULTI (prefix-argument) is nil, save a single one, otherwise, offer
  15. to save a range of URLs."
  16. ...
  17.  
  18. mu4e-view-save-url is an interactive compiled Lisp function in
  19. โ€˜/usr/local/Cellar/mu/1.2.0/share/emacs/site-lisp/mu/mu4e/mu4e-view.elโ€™.
  20.  
  21. It is bound to k, <menu-bar> <headers> <save-url>.
  22.  
  23. (mu4e-view-save-url &optional MULTI)
  24.  
  25. Offer to save urls(s) to the kill-ring. If
  26. MULTI (prefix-argument) is nil, save a single one, otherwise, offer
  27. to save a range of URLs.
  28.  
  29. ;; set Chromium path on macOS
  30. (setq browse-url-chromium-program "/Applications/Chromium.app/Contents/MacOS/Chromium")
  31.  
  32. ;; code to follow links in different browser
  33. (defun browse-url-at-point-chromium (&optional ARG)
  34. (interactive)
  35. (let ((url (get-text-property (point) 'shr-url)))
  36. (if url
  37. (browse-url-chromium url ARG)
  38. (let ((url (browse-url-url-at-point)))
  39. (browse-url-chromium url ARG)))))
  40.  
  41. (define-key mu4e-view-mode-map (kbd "J") 'browse-url-at-point-chromium)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement