mood-line-segment-modal.el

@@ -107,16 +107,6 @@ e.g., (:foreground \"red\")."
       (concat (propertize (car mode-cons)
                           'face (cdr mode-cons))))))
 
-;; ---------------------------------- ;;
-;; Xah segment
-;; ---------------------------------- ;;
-
-(defun mood-line-segment-modal--xah-fn ()
-  "Display the current xah-fly-keys state."
-  (if (bound-and-true-p xah-fly-insert-state-p)
-      "<I>"
-      "<C>"))
-
 ;; ---------------------------------- ;;
 ;; God segment
 ;; ---------------------------------- ;;

mood-line.el

@@ -1,11 +1,11 @@
 ;;; mood-line.el --- A minimal mode line inspired by doom-modeline -*- lexical-binding: t; -*-
-;;
+
 ;; Author: Jessie Hildebrandt <jessieh.net>
 ;; Homepage: https://gitlab.com/jessieh/mood-line
 ;; Keywords: mode-line faces
-;; Version: 3.1.0
+;; Version: 3.0.1
 ;; Package-Requires: ((emacs "26.1"))
-;;
+
 ;; This file is not part of GNU Emacs.
 
 ;;; Commentary:
@@ -460,22 +460,17 @@ described in the documentation for `mood-line-format', which see."
 
 (mood-line--deflazy mood-line-segment-modal--evil-fn)
 (mood-line--deflazy mood-line-segment-modal--meow-fn)
-(mood-line--deflazy mood-line-segment-modal--xah-fn)
 (mood-line--deflazy mood-line-segment-modal--god-fn)
 
 (defun mood-line-segment-modal ()
   "Return the correct mode line segment for the first active modal mode found.
-Modal editing modes checked, in order:
+Modal modes checked, in order: `evil-mode', `meow-mode', `god-mode'."
-`evil-mode', `meow-mode', `xah-fly-keys', `god-mode'"
   (cond
    ((bound-and-true-p evil-mode)
     (mood-line-segment-modal--evil-fn))
    ((bound-and-true-p meow-mode)
     (mood-line-segment-modal--meow-fn))
-   ((bound-and-true-p xah-fly-keys)
+   ((featurep 'god-mode)
-    (mood-line-segment-modal--xah-fn))
-   ((or (bound-and-true-p 'god-local-mode)
-        (bound-and-true-p 'god-global-mode))
     (mood-line-segment-modal--god-fn))))
 
 ;; ---------------------------------- ;;