Merge branch 'toot-langs' into develop

2 files changed, 266 insertions, 2 deletions

diff --git a/lisp/mastodon-iso.el b/lisp/mastodon-iso.el
new file mode 100644
index 0000000..8baff3c
--- /dev/null
+++ b/lisp/mastodon-iso.el
@@ -0,0 +1,246 @@
+;;; mastodon-iso.el --- ISO language code lists for mastodon.el  -*- lexical-binding: t -*-
+
+;; Copyright (C) 2022 Marty Hiatt
+;; Author: Marty Hiatt <martianhiatus@riseup.net>
+;; Version: 1.0.0
+;; Package-Requires: ((emacs "27.1") (request "0.3.0"))
+;; Homepage: https://codeberg.org/martianh/mastodon.el
+
+;; This file is not part of GNU Emacs.
+
+;; This file is part of mastodon.el.
+
+;; mastodon.el is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; mastodon.el is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with mastodon.el.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;; Code:
+
+;; via
+;; https://github.com/VyrCossont/mastodon/blob/0836f4a656d5486784cadfd7d0cd717bb67ede4c/app/helpers/languages_helper.rb
+;; and
+;; https://github.com/Shinmera/language-codes/blob/master/data/iso-639-3.lisp
+
+(defvar mastodon-iso-639-1
+  '(("ab" "Abkhazian")
+    ("aa" "Afar")
+    ("af" "Afrikaans")
+    ("ak" "Akan")
+    ("sq" "Albanian")
+    ("am" "Amharic")
+    ("ar" "Arabic")
+    ("an" "Aragonese")
+    ("hy" "Armenian")
+    ("as" "Assamese")
+    ("av" "Avaric")
+    ("ae" "Avestan")
+    ("ay" "Aymara")
+    ("az" "Azerbaijani")
+    ("bm" "Bambara")
+    ("ba" "Bashkir")
+    ("eu" "Basque")
+    ("be" "Belarusian")
+    ("bn" "Bengali")
+    ("bh" "Bihari languages")
+    ("bi" "Bislama")
+    ("bs" "Bosnian")
+    ("br" "Breton")
+    ("bg" "Bulgarian")
+    ("my" "Burmese")
+    ("km" "Central Khmer")
+    ("ch" "Chamorro")
+    ("ce" "Chechen")
+    ("zh" "Chinese")
+    ("cv" "Chuvash")
+    ("kw" "Cornish")
+    ("co" "Corsican")
+    ("cr" "Cree")
+    ("hr" "Croatian")
+    ("cs" "Czech")
+    ("da" "Danish")
+    ("dz" "Dzongkha")
+    ("en" "English")
+    ("eo" "Esperanto")
+    ("et" "Estonian")
+    ("ee" "Ewe")
+    ("fo" "Faroese")
+    ("fj" "Fijian")
+    ("fi" "Finnish")
+    ("nl" "Dutch" "Flemish")
+    ("fr" "French")
+    ("ff" "Fulah")
+    ("gl" "Galician")
+    ("lg" "Ganda")
+    ("ka" "Georgian")
+    ("de" "German")
+    ("el" "Greek")
+    ("gn" "Guarani")
+    ("gu" "Gujarati")
+    ("ht" "Haitian" "Haitian Creole")
+    ("ha" "Hausa")
+    ("he" "Hebrew")
+    ("hz" "Herero")
+    ("hi" "Hindi")
+    ("ho" "Hiri Motu")
+    ("hu" "Hungarian")
+    ("is" "Icelandic")
+    ("io" "Ido")
+    ("ig" "Igbo")
+    ("id" "Indonesian")
+    ("ia" "Interlingua" "Interlingua (International Auxiliary Language Association)")
+    ("iu" "Inuktitut")
+    ("ik" "Inupiaq")
+    ("ga" "Irish")
+    ("it" "Italian")
+    ("ja" "Japanese")
+    ("jp" "Japanese")
+    ("jv" "Javanese")
+    ("kl" "Kalaallisut" "Greenlandic")
+    ("kn" "Kannada")
+    ("kr" "Kanuri")
+    ("ks" "Kashmiri")
+    ("kk" "Kazakh")
+    ("ki" "Kikuyu" "Gikuyu")
+    ("rw" "Kinyarwanda")
+    ("kv" "Komi")
+    ("kg" "Kongo")
+    ("ko" "Korean")
+    ("ku" "Kurdish")
+    ("kj" "Kuanyama" "Kwanyama")
+    ("ky" "Kirghiz" "Kyrgyz")
+    ("lo" "Lao")
+    ("la" "Latin")
+    ("lv" "Latvian")
+    ("li" "Limburgan" "Limburger" "Limburgish")
+    ("ln" "Lingala")
+    ("lt" "Lithuanian")
+    ("lu" "Luba-Katanga")
+    ("lb" "Luxembourgish" "Letzeburgesch")
+    ("mk" "Macedonian")
+    ("mg" "Malagasy")
+    ("ms" "Malay")
+    ("ml" "Malayalam")
+    ("dv" "Divehi" "Dhivehi" "Maldivian")
+    ("mt" "Maltese")
+    ("gv" "Manx")
+    ("mi" "Maori")
+    ("mr" "Marathi")
+    ("mh" "Marshallese")
+    ("mn" "Mongolian")
+    ("na" "Nauru")
+    ("nv" "Navajo" "Navaho")
+    ("ng" "Ndonga")
+    ("ne" "Nepali")
+    ("nd" "Ndebele, North" "North Ndebele")
+    ("se" "Northern Sami")
+    ("no" "Norwegian")
+    ("nb" "Bokmål, Norwegian" "Norwegian Bokmål")
+    ("ny" "Chichewa" "Chewa" "Nyanja")
+    ("nn" "Norwegian Nynorsk" "Nynorsk, Norwegian")
+    ("ie" "Interlingue" "Occidental")
+    ("oc" "Occitan")
+    ("oj" "Ojibwa")
+    ("cu" "Church Slavic" "Old Slavonic" "Church Slavonic" "Old Bulgarian" "Old Church Slavonic")
+    ("or" "Oriya")
+    ("om" "Oromo")
+    ("os" "Ossetian" "Ossetic")
+    ("pi" "Pali")
+    ("fa" "Persian")
+    ("pl" "Polish")
+    ("pt" "Portuguese")
+    ("pa" "Panjabi" "Punjabi")
+    ("ps" "Pushto" "Pashto")
+    ("qu" "Quechua")
+    ("ro" "Romanian" "Moldavian" "Moldovan")
+    ("rm" "Romansh")
+    ("rn" "Rundi")
+    ("ru" "Russian")
+    ("sm" "Samoan")
+    ("sg" "Sango")
+    ("sa" "Sanskrit")
+    ("sc" "Sardinian")
+    ("gd" "Gaelic" "Scottish Gaelic")
+    ("sr" "Serbian")
+    ("sn" "Shona")
+    ("ii" "Sichuan Yi" "Nuosu")
+    ("sd" "Sindhi")
+    ("si" "Sinhala" "Sinhalese")
+    ("sk" "Slovak")
+    ("sl" "Slovenian")
+    ("so" "Somali")
+    ("st" "Sotho, Southern")
+    ("nr" "Ndebele, South" "South Ndebele")
+    ("es" "Spanish" "Castilian")
+    ("su" "Sundanese")
+    ("sw" "Swahili")
+    ("ss" "Swati")
+    ("sv" "Swedish")
+    ("tl" "Tagalog")
+    ("ty" "Tahitian")
+    ("tg" "Tajik")
+    ("ta" "Tamil")
+    ("tt" "Tatar")
+    ("te" "Telugu")
+    ("th" "Thai")
+    ("bo" "Tibetan")
+    ("ti" "Tigrinya")
+    ("to" "Tonga (Tonga Islands)")
+    ("ts" "Tsonga")
+    ("tn" "Tswana")
+    ("tr" "Turkish")
+    ("tk" "Turkmen")
+    ("tw" "Twi")
+    ("uk" "Ukrainian")
+    ("ur" "Urdu")
+    ("ug" "Uighur" "Uyghur")
+    ("uz" "Uzbek")
+    ("ca" "Catalan" "Valencian")
+    ("ve" "Venda")
+    ("vi" "Vietnamese")
+    ("vo" "Volapük")
+    ("wa" "Walloon")
+    ("cy" "Welsh")
+    ("fy" "Western Frisian")
+    ("wo" "Wolof")
+    ("xh" "Xhosa")
+    ("yi" "Yiddish")
+    ("yo" "Yoruba")
+    ("za" "Zhuang" "Chuang")
+    ("zu" "Zulu")))
+
+;; web UI doesn't respect these for now
+(defvar mastodon-iso-639-regional
+  '(("es-AR" "Español (Argentina)")
+    ("es-MX" "Español (México)")
+    ("pt-BR" "Português (Brasil)")
+    ("pt-PT" "Português (Portugal)")
+    ("sr-Latn" "Srpski (latinica)")
+    ("zh-CN" "简体中文")
+    ("zh-HK" "繁體中文（香港）")
+    ("zh-TW" "繁體中文（臺灣）")))
+
+(defvar mastodon-iso-639-3
+  '(("ast" "Asturian" "Asturianu")
+    ("ckb" "Sorani (Kurdish)" "سۆرانی")
+    ("jbo" "Lojban" "la .lojban.")
+    ("kab" "Kabyle" "Taqbaylit")
+    ("kmr" "Kurmanji (Kurdish)" "Kurmancî")
+    ("ldn" "Láadan" "Láadan")
+    ("lfn" "Lingua Franca Nova" "lingua franca nova")
+    ("tok" "Toki Pona" "toki pona")
+    ("zba" "Balaibalan" "باليبلن")
+    ("zgh" "Standard Moroccan Tamazight" "ⵜⴰⵎⴰⵣⵉⵖⵜ")))
+
+(provide 'mastodon-iso)
+;;; mastodon-iso.el ends here
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index 5a735dc..18dba06 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -47,6 +47,8 @@
   (declare-function company-grab-symbol "company")
   (defvar company-backends))
 
+(require 'mastodon-iso)
+
 (defvar mastodon-instance-url)
 (defvar mastodon-tl--buffer-spec)
 (defvar mastodon-tl--enable-proportional-fonts)
@@ -169,6 +171,9 @@ change the setting on the server, see
 (defvar-local mastodon-toot-poll nil
   "A list of poll options for the toot being composed.")
 
+(defvar-local mastodon-toot--language nil
+  "The language of the toot being composed, in ISO 639 (two-letter).")
+
 (defvar-local mastodon-toot--reply-to-id nil
   "Buffer-local variable to hold the id of the toot being replied to.")
 
@@ -211,6 +216,7 @@ send.")
     (define-key map (kbd "C-c C-a") #'mastodon-toot--attach-media)
     (define-key map (kbd "C-c !") #'mastodon-toot--clear-all-attachments)
     (define-key map (kbd "C-c C-p") #'mastodon-toot--create-poll)
+    (define-key map (kbd "C-c C-l") #'mastodon-toot--set-toot-lang)
     map)
   "Keymap for `mastodon-toot'.")
 
@@ -661,7 +667,8 @@ instance to edit a toot."
                           ("visibility" . ,mastodon-toot--visibility)
                           ("sensitive" . ,(when mastodon-toot--content-nsfw
                                             (symbol-name t)))
-                          ("spoiler_text" . ,spoiler)))
+                          ("spoiler_text" . ,spoiler)
+                          ("language" . ,mastodon-toot--language)))
          (args-media (when mastodon-toot--media-attachments
                        (mastodon-http--build-array-args-alist
                         "media_ids[]"
@@ -1141,6 +1148,18 @@ LENGTH is the maximum character length allowed for a poll option."
     ("14 days" . ,(number-to-string (* 60 60 24 14)))
     ("30 days" . ,(number-to-string (* 60 60 24 30)))))
 
+(defun mastodon-toot--set-toot-lang ()
+  "Prompt for a language and return its two letter ISO 639 1 code."
+  (interactive)
+  (let* ((langs (mapcar (lambda (x)
+                          (cons (cadr x)
+                                (car x)))
+                        mastodon-iso-639-1))
+         (choice (completing-read "Language for this toot: "
+                                  langs)))
+    (setq mastodon-toot--language
+          (alist-get choice langs nil nil 'equal))))
+
 ;; we'll need to revisit this if the binds get
 ;; more diverse than two-chord bindings
 (defun mastodon-toot--get-mode-kbinds ()
@@ -1329,7 +1348,6 @@ This is how mastodon does it."
       (replace-match (match-string 2))) ; replace with handle only
     (length (buffer-substring (point-min) (point-max)))))
 
-
 (defun mastodon-toot--save-toot-text (&rest _args)
   "Save the current toot text in `mastodon-toot-current-toot-text'.
 Added to `after-change-functions' in new toot buffers."