     ((executable-find "aspell")
       (setq ispell-program-name "aspell")
       ;; Please note ispell-extra-args contains ACTUAL parameters passed to aspell
-      (setq ispell-extra-args '("--sug-mode=ultra" "--lang=en_GB")))))
+      (setq ispell-extra-args '("--sug-mode=ultra" "--lang=en_GB"))))
+
+  ;; 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")
+  (defvar my/languages-ring nil "Languages ring for Ispell")
+  (let ((languages '("fr-moderne" "en_GB")))
+    (setq my/languages-ring (make-ring (length languages)))
+    (dolist (elem languages) (ring-insert my/languages-ring elem)))
+  (defun my/cycle-ispell-languages ()
+    "Cycle ispell languages in `my/languages-ring'. Change dictionary and mode-line lighter accordingly."
+    (interactive)
+    (let ((language (ring-ref my/languages-ring -1)))
+      (ring-insert my/languages-ring language)
+      (ispell-change-dictionary language)
+      (setq flyspell-mode-line-string language)
+      (force-mode-line-update)))
+  (setq flyspell-mode-line-string (my/current-dictionary-mode-line ispell-dictionary)))
 
 (use-package groovy-mode
   :mode ("\\.groovy\\'" . groovy-mode))


(use-package modus-operandi-theme
  :config
  (my/theme-load 'modus-operandi))

(use-package modus-vivendi-theme)


  (dashboard-set-navigator     t)
  (dashboard-startup-banner    'logo))

(use-package editorconfig
  :config
  (editorconfig-mode           t))              ; Enable EditorConfig
