[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/mastodon 1da8ab0675 05/45: add cmd to url-lookup with no f
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/mastodon 1da8ab0675 05/45: add cmd to url-lookup with no fedi-like check |
Date: |
Thu, 1 Feb 2024 10:00:37 -0500 (EST) |
branch: elpa/mastodon
commit 1da8ab0675928f84790bd684db28d0b7ee14dab8
Author: marty hiatt <martianhiatus@riseup.net>
Commit: marty hiatt <martianhiatus@riseup.net>
add cmd to url-lookup with no fedi-like check
---
lisp/mastodon.el | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/lisp/mastodon.el b/lisp/mastodon.el
index bb06d1b7b5..6e05bd8da8 100644
--- a/lisp/mastodon.el
+++ b/lisp/mastodon.el
@@ -341,7 +341,7 @@ from the server and load anew."
;; URL lookup: should be available even if `mastodon.el' not loaded:
;;;###autoload
-(defun mastodon-url-lookup (&optional query-url)
+(defun mastodon-url-lookup (&optional query-url force)
"If a URL resembles a mastodon link, try to load in `mastodon.el'.
Does a WebFinger lookup.
URL can be arg QUERY-URL, or URL at point, or provided by the user.
@@ -352,7 +352,8 @@ not, just browse the URL in the normal fashion."
(thing-at-point-url-at-point)
(mastodon-tl--property 'shr-url :no-move)
(read-string "Lookup URL: "))))
- (if (not (mastodon--fedi-url-p query))
+ (if (and (not force)
+ (not (mastodon--fedi-url-p query)))
;; (shr-browse-url query) ; doesn't work (keep our shr keymap)
(browse-url query)
(message "Performing lookup...")
@@ -374,6 +375,11 @@ not, just browse the URL in the normal fashion."
(t
(browse-url query)))))))
+(defun mastodon-url-lookup-force ()
+ "Call `mastodon-url-lookup' without checking if URL is fedi-like."
+ (interactive)
+ (mastodon-url-lookup nil :force))
+
(defun mastodon--fedi-url-p (query)
"Check if QUERY resembles a fediverse URL."
;; calqued off
https://github.com/tuskyapp/Tusky/blob/c8fc2418b8f5458a817bba221d025b822225e130/app/src/main/java/com/keylesspalace/tusky/BottomSheetActivity.kt
- [nongnu] elpa/mastodon updated (a8c80d25b7 -> 136e4d387a), ELPA Syncer, 2024/02/01
- [nongnu] elpa/mastodon e5c9f403b6 14/45: Merge branch 'quote-region' into develop, ELPA Syncer, 2024/02/01
- [nongnu] elpa/mastodon ee33bd1d2d 22/45: toot--send: check for media with media-attachment-ids for speed, ELPA Syncer, 2024/02/01
- [nongnu] elpa/mastodon 2f68bc776d 29/45: tl--content: only call tl--media if we have media, ELPA Syncer, 2024/02/01
- [nongnu] elpa/mastodon f0137a0ad6 42/45: Add 'o' binding to open the current toot in a browser, ELPA Syncer, 2024/02/01
- [nongnu] elpa/mastodon 2e195ee009 01/45: update cmd index, ELPA Syncer, 2024/02/01
- [nongnu] elpa/mastodon 1da8ab0675 05/45: add cmd to url-lookup with no fedi-like check,
ELPA Syncer <=
- [nongnu] elpa/mastodon d9959ace12 04/45: update info re patches, ELPA Syncer, 2024/02/01
- [nongnu] elpa/mastodon 406d87cc7a 07/45: display-media-p var > defcustom, ELPA Syncer, 2024/02/01
- [nongnu] elpa/mastodon 33d0011c7c 11/45: toot--reply: call toot--compose-buffer not just toot, ELPA Syncer, 2024/02/01
- [nongnu] elpa/mastodon 0c7322e839 24/45: refactor mastodon-toot--make-capf, ELPA Syncer, 2024/02/01
- [nongnu] elpa/mastodon 0c048e154b 20/45: copy image caption cmd, ELPA Syncer, 2024/02/01
- [nongnu] elpa/mastodon 703655f109 26/45: Merge branch 'emoji-capf' into develop, ELPA Syncer, 2024/02/01
- [nongnu] elpa/mastodon a6680b093e 13/45: remove ; ; Version: strings in buffers other than mastodon.el, ELPA Syncer, 2024/02/01
- [nongnu] elpa/mastodon 8108187270 10/45: buffer-for: fix () to ensure goto point min works on cycle, ELPA Syncer, 2024/02/01
- [nongnu] elpa/mastodon 3b3f5228ac 35/45: profile: Use v2 search when looking for users, ELPA Syncer, 2024/02/01
- [nongnu] elpa/mastodon 6fc44fe225 34/45: fix signature of make-capf so we call it right!, ELPA Syncer, 2024/02/01