From e620ef7cd4ff10a78334cd5e4293756e33f58f71 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Fri, 26 Aug 2022 18:01:48 +0200 Subject: completion customizes edit for handling tags completion --- lisp/mastodon-search.el | 2 +- lisp/mastodon-toot.el | 12 +++++++++--- 2 files changed, 10 insertions(+), 4 deletions(-) (limited to 'lisp') diff --git a/lisp/mastodon-search.el b/lisp/mastodon-search.el index 5756ae4..89df311 100644 --- a/lisp/mastodon-search.el +++ b/lisp/mastodon-search.el @@ -59,7 +59,7 @@ Returns a nested list containing user handle, display name, and URL." (interactive "sSearch mastodon for: ") (let* ((url (mastodon-http--api "accounts/search")) - (response (if (equal mastodon-toot--enable-completion-for-mentions "following") + (response (if (equal mastodon-toot--completion-style-for-mentions "following") (mastodon-http--get-search-json url query "following=true") (mastodon-http--get-search-json url query)))) (mapcar #'mastodon-search--get-user-info-@ response))) diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index b3de461..b33350d 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -103,13 +103,19 @@ followers-only), or \"direct\"." :group 'mastodon-toot :type 'integer) -(defcustom mastodon-toot--enable-completion-for-mentions - (if (require 'company nil :noerror) "following" "off") - "Whether to enable company completion for mentions. +(defcustom mastodon-toot--enable-completion + (if (require 'company nil :noerror) t nil) + "Whether to enable completion of mentions and hashtags. Used for completion in toot compose buffer. This is only used if company mode is installed." + :group 'mastodon-toot + :type 'boolean) + +(defcustom mastodon-toot--completion-style-for-mentions + (if (require 'company nil :noerror) "following" "off") + "The company completion style to use for mentions." :group 'mastodon-toot :type '(choice (const :tag "off" nil) -- cgit v1.2.3