Add function to open twittering uri at point in browser

This commit is contained in:
Jeremy Dormitzer 2020-05-18 17:53:06 -04:00
parent 9196b1abe3
commit ad041465d9

View File

@ -6397,5 +6397,16 @@ Socially networking from Emacs:
:init
(leader-def-key "at" #'twit)
:config
(setq twittering-use-master-password t))
(setq twittering-use-master-password t)
(defun twittering-browse-uri (uri)
(interactive (list (or (get-text-property (point) 'uri)
(if (get-text-property (point) 'field)
(let* ((id (get-text-property (point) 'id))
(status (twittering-find-status id)))
(twittering-get-status-url-from-alist status))
nil))))
(when uri (browse-url uri)))
:general
(twittering-mode-map "SPC" leader-map)
(twittering-mode-map "W" #'twittering-browse-uri))
#+END_SRC