Add function to open twittering uri at point in browser
This commit is contained in:
parent
9196b1abe3
commit
ad041465d9
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user