     (let ((language (ring-ref my/languages-ring -1)))
       (ring-insert my/languages-ring language)
       (ispell-change-dictionary language)
-      (setq flyspell-mode-line-string language)
+      (setq flyspell-mode-line-string (my/current-dictionary-mode-line language))
       (force-mode-line-update)))
   (setq flyspell-mode-line-string (my/current-dictionary-mode-line ispell-dictionary)))
 

  :init (flycheck-status-emoji-mode)) ;; Warning, on macOS, requires `(set-fontset-font t 'symbol (font-spec :family "Apple Color Emoji"))`

(use-package flyspell
  :bind ("C-c d" . my/cycle-ispell-languages)
  :hook ( (text-mode . flyspell-mode)
          (prog-mode . flyspell-prog-mode))
  :config
  ;; Make sure DICPATH environment variables is there
  (setenv "DICPATH" (concat (getenv "HOME") "/Library/Spelling"))


  ;; Make appear the language in modeline, and change spelling language dynamically
  ;; Source: Manuel Uberti at https://emacs.stackexchange.com/a/48978
  (setq ispell-dictionary "en_GB")
  (defun my/current-dictionary-mode-line (language)
    "Return the current dictionary from LANGUAGE for the mode line."
    (interactive)
    ;; (let ((dict (substring language 0 2)))
    ;; (concat " " dict)))
    (concat " " language))
  (defvar my/languages-ring nil "Languages ring for Ispell")
  (let ((languages '("fr-moderne" "en_GB")))
    (setq my/languages-ring (make-ring (length languages)))
