From ad041465d965c26a88b453a615ea302aed2ae230 Mon Sep 17 00:00:00 2001 From: Jeremy Dormitzer Date: Mon, 18 May 2020 17:53:06 -0400 Subject: [PATCH] Add function to open twittering uri at point in browser --- emacs/init.org | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/emacs/init.org b/emacs/init.org index bcef5cc..e4e4209 100755 --- a/emacs/init.org +++ b/emacs/init.org @@ -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