From 0bebd58588720537b5b9d949035d4f25db0b1dbc Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Tue, 28 May 2024 19:02:38 +0200 Subject: set default language in compose buffer from is set from mastodon-profile-acccount-preferences-data --- lisp/mastodon-toot.el | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'lisp') diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index 3eadf91..f17cc85 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -1878,11 +1878,20 @@ EDIT means we are editing an existing toot, not composing a new one." (switch-to-buffer-other-window buffer) (text-mode) (mastodon-toot-mode t) + ;; set visibility: (setq mastodon-toot--visibility (or (plist-get mastodon-profile-account-settings 'privacy) ;; use toot visibility setting from the server: (mastodon-profile--get-source-value 'privacy) "public")) ; fallback + ;; default language: + ;; NB: this is not necessarily set in + ;; `mastodon-profile-credential-account' nor in + ;; `mastodon-profile-account-settings'! + (setq mastodon-toot--language + (alist-get 'posting:default:language + mastodon-profile-acccount-preferences-data)) + ;; display original toot: (if mastodon-toot-display-orig-in-reply-buffer (progn (mastodon-toot--display-docs-and-status-fields reply-text) -- cgit v1.2.3